From f4c665b88bdc95286c37bbb6d78703953c8deb99 Mon Sep 17 00:00:00 2001
From: gogonzo <gogonzo@users.noreply.github.com>
Date: Tue, 23 Apr 2024 17:57:45 +0000
Subject: [PATCH] deploy: 8a5d87389b47c6964aa3fc187ba2e6d68ea2b770

---
 main/coverage-report/index.html | 57867 +++++++++++++++---------------
 1 file changed, 28944 insertions(+), 28923 deletions(-)

diff --git a/main/coverage-report/index.html b/main/coverage-report/index.html
index cd768a248..d2ea158f6 100644
--- a/main/coverage-report/index.html
+++ b/main/coverage-report/index.html
@@ -95,7 +95,7 @@
   font-size: 11px;
 }</style>
   <div class="col-md-8 col-md-offset-2">
-    <h2>teal.slice coverage - 65.89%</h2>
+    <h2>teal.slice coverage - 65.91%</h2>
     <div class="tabbable">
       <ul class="nav nav-tabs" data-tabsetid="covr">
         <li class="active">
@@ -107,19 +107,19 @@ <h2>teal.slice coverage - 65.89%</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-3765d05627eafaed14f7" style="width:100%;height:500px;"></div>
-          <script type="application/json" data-for="htmlwidget-3765d05627eafaed14f7">{"x":{"filter":"none","vertical":false,"fillContainer":false,"data":[["<a href=\"#\">R/zzz.R<\/a>","<a href=\"#\">R/include_css_js.R<\/a>","<a href=\"#\">R/FilterStateExpr.R<\/a>","<a href=\"#\">R/FilterStatesSE.R<\/a>","<a href=\"#\">R/FilterStateLogical.R<\/a>","<a href=\"#\">R/FilterStateDatettime.R<\/a>","<a href=\"#\">R/FilterStateDate.R<\/a>","<a href=\"#\">R/FilterStateEmpty.R<\/a>","<a href=\"#\">R/variable_types.R<\/a>","<a href=\"#\">R/FilteredData.R<\/a>","<a href=\"#\">R/FilteredData-utils.R<\/a>","<a href=\"#\">R/FilterStateChoices.R<\/a>","<a href=\"#\">R/FilteredDataset.R<\/a>","<a href=\"#\">R/choices_labeled.R<\/a>","<a href=\"#\">R/FilteredDatasetMAE.R<\/a>","<a href=\"#\">R/FilterStateRange.R<\/a>","<a href=\"#\">R/FilteredDatasetDefault.R<\/a>","<a href=\"#\">R/FilterState.R<\/a>","<a href=\"#\">R/FilterStates-utils.R<\/a>","<a href=\"#\">R/FilterStatesMAE.R<\/a>","<a href=\"#\">R/FilterStates.R<\/a>","<a href=\"#\">R/FilteredDatasetDataframe.R<\/a>","<a href=\"#\">R/teal_slices.R<\/a>","<a href=\"#\">R/FilteredDataset-utils.R<\/a>","<a href=\"#\">R/teal_slice.R<\/a>","<a href=\"#\">R/filter_panel_api.R<\/a>","<a href=\"#\">R/FilterState-utils.R<\/a>","<a href=\"#\">R/count_labels.R<\/a>","<a href=\"#\">R/utils.R<\/a>","<a href=\"#\">R/test_utils.R<\/a>","<a href=\"#\">R/FilterPanelAPI.R<\/a>","<a href=\"#\">R/calls_combine_by.R<\/a>","<a href=\"#\">R/FilterStatesDF.R<\/a>","<a href=\"#\">R/FilterStatesMatrix.R<\/a>"],[51,17,275,305,409,552,439,172,58,1096,203,600,396,88,259,741,123,797,247,61,754,279,282,149,388,185,298,232,68,41,116,38,199,43],[17,4,59,157,153,242,168,40,13,435,51,252,137,45,106,329,18,289,60,10,284,97,77,20,92,25,89,85,16,14,10,6,5,3],[0,0,12,40,45,87,69,18,7,260,33,166,91,31,76,241,14,237,51,9,259,90,72,19,88,24,87,85,16,14,10,6,5,3],[17,4,47,117,108,155,99,22,6,175,18,86,46,14,30,88,4,52,9,1,25,7,5,1,4,1,2,0,0,0,0,0,0,0],["0","0","2","11","3","5","5","2","5","13","7","32","36","6","16","24","3","71","52","23","72","27","379","44","425","2","83","30","47","20","4","45","103","25"],["0.00%","0.00%","20.34%","25.48%","29.41%","35.95%","41.07%","45.00%","53.85%","59.77%","64.71%","65.87%","66.42%","68.89%","71.70%","73.25%","77.78%","82.01%","85.00%","90.00%","91.20%","92.78%","93.51%","95.00%","95.65%","96.00%","97.75%","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-3541555f26d1f4086f61" style="width:100%;height:500px;"></div>
+          <script type="application/json" data-for="htmlwidget-3541555f26d1f4086f61">{"x":{"filter":"none","vertical":false,"fillContainer":false,"data":[["<a href=\"#\">R/zzz.R<\/a>","<a href=\"#\">R/include_css_js.R<\/a>","<a href=\"#\">R/FilterStateExpr.R<\/a>","<a href=\"#\">R/FilterStatesSE.R<\/a>","<a href=\"#\">R/FilterStateLogical.R<\/a>","<a href=\"#\">R/FilterStateDatettime.R<\/a>","<a href=\"#\">R/FilterStateDate.R<\/a>","<a href=\"#\">R/FilterStateEmpty.R<\/a>","<a href=\"#\">R/variable_types.R<\/a>","<a href=\"#\">R/FilteredData.R<\/a>","<a href=\"#\">R/FilteredData-utils.R<\/a>","<a href=\"#\">R/FilterStateChoices.R<\/a>","<a href=\"#\">R/FilteredDataset.R<\/a>","<a href=\"#\">R/choices_labeled.R<\/a>","<a href=\"#\">R/FilteredDatasetMAE.R<\/a>","<a href=\"#\">R/FilterStateRange.R<\/a>","<a href=\"#\">R/FilteredDatasetDefault.R<\/a>","<a href=\"#\">R/FilterState.R<\/a>","<a href=\"#\">R/FilterStates-utils.R<\/a>","<a href=\"#\">R/FilterStatesMAE.R<\/a>","<a href=\"#\">R/FilterStates.R<\/a>","<a href=\"#\">R/FilteredDatasetDataframe.R<\/a>","<a href=\"#\">R/teal_slices.R<\/a>","<a href=\"#\">R/FilteredDataset-utils.R<\/a>","<a href=\"#\">R/teal_slice.R<\/a>","<a href=\"#\">R/filter_panel_api.R<\/a>","<a href=\"#\">R/FilterState-utils.R<\/a>","<a href=\"#\">R/count_labels.R<\/a>","<a href=\"#\">R/utils.R<\/a>","<a href=\"#\">R/test_utils.R<\/a>","<a href=\"#\">R/FilterPanelAPI.R<\/a>","<a href=\"#\">R/calls_combine_by.R<\/a>","<a href=\"#\">R/FilterStatesDF.R<\/a>","<a href=\"#\">R/FilterStatesMatrix.R<\/a>"],[51,17,275,305,409,552,442,172,58,1096,203,600,396,88,259,741,123,797,247,61,754,279,282,149,388,185,298,232,68,41,116,38,199,43],[17,4,59,157,153,242,170,40,13,435,51,252,137,45,106,329,18,289,60,10,284,97,77,20,92,25,89,85,16,14,10,6,5,3],[0,0,12,40,45,87,71,18,7,260,33,166,91,31,76,241,14,237,51,9,259,90,72,19,88,24,87,85,16,14,10,6,5,3],[17,4,47,117,108,155,99,22,6,175,18,86,46,14,30,88,4,52,9,1,25,7,5,1,4,1,2,0,0,0,0,0,0,0],["0","0","2","11","3","5","5","2","5","13","7","32","36","6","16","24","3","71","52","23","72","27","379","44","425","2","83","30","47","20","4","45","103","25"],["0.00%","0.00%","20.34%","25.48%","29.41%","35.95%","41.76%","45.00%","53.85%","59.77%","64.71%","65.87%","66.42%","68.89%","71.70%","73.25%","77.78%","82.01%","85.00%","90.00%","91.20%","92.78%","93.51%","95.00%","95.65%","96.00%","97.75%","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/FilteredData.R" class="hidden">
+            <div id="R/FilterStatesSE.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"># FilteredData ------</pre>
+                      <pre class="language-r"># SEFilterStates ------</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -133,7 +133,7 @@ <h2>teal.slice coverage - 65.89%</h2>
                     <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name FilteredData</pre>
+                      <pre class="language-r">#' @name SEFilterStates</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -147,1981 +147,1981 @@ <h2>teal.slice coverage - 65.89%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @title `FilterStates` subclass for `SummarizedExperiment`s</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @title Class to encapsulate filtered datasets</pre>
+                      <pre class="language-r">#' @description Handles filter states in a `SummaryExperiment`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</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">8</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">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Manages filtering of all datasets in the application or module.</pre>
+                      <pre class="language-r">SEFilterStates &lt;- R6::R6Class( # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  classname = "SEFilterStates",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details</pre>
+                      <pre class="language-r">  inherit = FilterStates,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The main purpose of this class is to provide a collection of reactive datasets,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' each dataset having a filter state that determines how it is filtered.</pre>
+                      <pre class="language-r">  # public methods ----</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">  public = list(</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 each dataset, `get_filter_expr` returns the call to filter the dataset according</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' to the filter state. The data itself can be obtained through `get_data`.</pre>
+                      <pre class="language-r">    #' Initialize `SEFilterStates` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The datasets are filtered lazily, i.e. only when requested / needed in a `shiny` app.</pre>
+                      <pre class="language-r">    #' @param data (`SummarizedExperiment`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #'   the `R` object which `subset` function is applied on.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' By design, any `dataname` set through `set_dataset` cannot be removed because</pre>
+                      <pre class="language-r">    #' @param data_reactive (`function(sid)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' other code may already depend on it. As a workaround, the underlying</pre>
+                      <pre class="language-r">    #'   should return a `SummarizedExperiment` object or `NULL`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data can be set to `NULL`.</pre>
+                      <pre class="language-r">    #'   This object is needed for the `FilterState` counts being updated on a change in filters.</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">    #'   If function returns `NULL` then filtered counts are not shown.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The class currently supports variables of the following types within datasets:</pre>
+                      <pre class="language-r">    #'   Function has to have `sid` argument being a character.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `choices`: variable of type `factor`, e.g. `ADSL$COUNTRY`, `iris$Species`</pre>
+                      <pre class="language-r">    #' @param dataname (`character(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'      zero or more options can be selected, when the variable is a factor</pre>
+                      <pre class="language-r">    #'   name of the data used in the expression</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `logical`: variable of type `logical`, e.g. `ADSL$TRT_FLAG`</pre>
+                      <pre class="language-r">    #'   specified to the function argument attached to this `FilterStates`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'      exactly one option must be selected, `TRUE` or `FALSE`</pre>
+                      <pre class="language-r">    #' @param datalabel (`character(1)`) optional</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `ranges`: variable of type `numeric`, e.g. `ADSL$AGE`, `iris$Sepal.Length`</pre>
+                      <pre class="language-r">    #'   text label. Should be the name of experiment.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'      numerical range, a range within this range can be selected</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">#' - `dates`: variable of type `Date`, `POSIXlt`</pre>
+                      <pre class="language-r">    initialize = function(data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Other variables cannot be used for filtering the data in this class.</pre>
+                      <pre class="language-r">                          data_reactive = function(sid = "") NULL,</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">                          dataname,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Common arguments are:</pre>
+                      <pre class="language-r">                          datalabel = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">35</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">92<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' 1. `filtered`: whether to return a filtered result or not</pre>
+                      <pre class="language-r">      if (!requireNamespace("SummarizedExperiment", quietly = TRUE)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">36</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' 2. `dataname`: the name of one of the datasets in this `FilteredData` object</pre>
+                      <pre class="language-r">        stop("Cannot load SummarizedExperiment - please install the package or restart your session.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' 3. `varname`: one of the columns in a dataset</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">38</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">92<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      checkmate::assert_function(data_reactive, args = "sid")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">39</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">92<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">      checkmate::assert_class(data, "SummarizedExperiment")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">40</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">91<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # use non-exported function from teal.slice</pre>
+                      <pre class="language-r">      super$initialize(data, data_reactive, dataname, datalabel)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">41</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">91<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' FilteredData &lt;- getFromNamespace("FilteredData", "teal.slice")</pre>
+                      <pre class="language-r">      if (!is.null(datalabel)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">42</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">84<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        private$dataname_prefixed &lt;- sprintf("%s[['%s']]", dataname, datalabel)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(shiny)</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' datasets &lt;- FilteredData$new(list(iris = iris, mtcars = mtcars))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">46</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">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # get datanames</pre>
+                      <pre class="language-r">    #' Set filter state.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">48</td>
                     <td class="coverage"></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">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' @param state (`teal_slices`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' datasets$set_filter_state(</pre>
+                      <pre class="language-r">    #'    `teal_slice` objects should contain the field `arg %in% c("subset", "select")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   teal_slices(teal_slice(dataname = "iris", varname = "Species", selected = "virginica"))</pre>
+                      <pre class="language-r">    #'</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">    #' @return `NULL`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' isolate(datasets$get_call("iris"))</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    set_filter_state = function(state) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">55</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">61<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' datasets$set_filter_state(</pre>
+                      <pre class="language-r">      isolate({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">56</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">61<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   teal_slices(teal_slice(dataname = "mtcars", varname = "mpg", selected = c(15, 20)))</pre>
+                      <pre class="language-r">        logger::log_trace("{ class(self)[1] }$set_filter_state initializing, dataname: { private$dataname }")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">57</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">61<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">        checkmate::assert_class(state, "teal_slices")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">58</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">59<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        lapply(state, function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">59</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' isolate(datasets$get_filter_state())</pre>
+                      <pre class="language-r">          checkmate::assert_choice(x$arg, choices = c("subset", "select"), null.ok = TRUE, .var.name = "teal_slice$arg")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' isolate(datasets$get_call("iris"))</pre>
+                      <pre class="language-r">        })</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">61</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">59<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' isolate(datasets$get_call("mtcars"))</pre>
+                      <pre class="language-r">        count_type &lt;- attr(state, "count_type")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">62</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">59<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        if (length(count_type)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">63</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examplesIf requireNamespace("MultiAssayExperiment")</pre>
+                      <pre class="language-r">          private$count_type &lt;- count_type</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ### set_filter_state</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(shiny)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">66</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">59<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        subset_states &lt;- Filter(function(x) x$arg == "subset", state)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">67</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">59<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data(miniACC, package = "MultiAssayExperiment")</pre>
+                      <pre class="language-r">        private$set_filter_state_impl(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">68</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">59<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' datasets &lt;- FilteredData$new(list(iris = iris, mae = miniACC))</pre>
+                      <pre class="language-r">          state = subset_states,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">69</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">59<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' fs &lt;- teal_slices(</pre>
+                      <pre class="language-r">          data = SummarizedExperiment::rowData(private$data),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">70</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">59<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   teal_slice(</pre>
+                      <pre class="language-r">          data_reactive = function(sid = "") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">71</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     dataname = "iris", varname = "Sepal.Length", selected = c(5.1, 6.4),</pre>
+                      <pre class="language-r">            data &lt;- private$data_reactive()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">72</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     keep_na = TRUE, keep_inf = FALSE</pre>
+                      <pre class="language-r">            if (!is.null(data)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">73</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">              SummarizedExperiment::rowData(data)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   teal_slice(</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     dataname = "iris", varname = "Species", selected = c("setosa", "versicolor"),</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     keep_na = FALSE</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">
+                  <tr class="covered">
                     <td class="num">78</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">59<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   teal_slice(</pre>
+                      <pre class="language-r">        select_states &lt;- Filter(function(x) x$arg == "select", state)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">79</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">59<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     dataname = "mae", varname = "years_to_birth", selected = c(30, 50),</pre>
+                      <pre class="language-r">        private$set_filter_state_impl(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">80</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">59<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     keep_na = TRUE, keep_inf = FALSE</pre>
+                      <pre class="language-r">          state = select_states,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">81</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">59<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">          data = SummarizedExperiment::colData(private$data),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">82</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">59<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   teal_slice(dataname = "mae", varname = "vital_status", selected = "1", keep_na = FALSE),</pre>
+                      <pre class="language-r">          data_reactive = function(sid = "") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">83</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   teal_slice(dataname = "mae", varname = "gender", selected = "female", keep_na = TRUE),</pre>
+                      <pre class="language-r">            data &lt;- private$data_reactive()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">84</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   teal_slice(</pre>
+                      <pre class="language-r">            if (!is.null(data)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">85</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     dataname = "mae", varname = "ARRAY_TYPE",</pre>
+                      <pre class="language-r">              SummarizedExperiment::colData(data)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     selected = "", keep_na = TRUE, experiment = "RPPAArray", arg = "subset"</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' datasets$set_filter_state(state = fs)</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">59<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' isolate(datasets$get_filter_state())</pre>
+                      <pre class="language-r">        logger::log_trace("{ class(self)[1] }$set_filter_state initialized, dataname: { private$dataname }")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">91</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">59<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        invisible(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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">93</td>
                     <td class="coverage"></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="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">FilteredData &lt;- R6::R6Class( # nolint</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  "FilteredData",</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # public methods ----</pre>
+                      <pre class="language-r">    #' `shiny` UI module to add filter variable.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  public = list(</pre>
+                      <pre class="language-r">    #' @param id (`character(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Initialize a `FilteredData` object.</pre>
+                      <pre class="language-r">    #' @return `shiny.tag`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param data_objects (`named list`)</pre>
+                      <pre class="language-r">    ui_add = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">101</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   List of data objects.</pre>
+                      <pre class="language-r">      data &lt;- private$data</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">102</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   Names of the list will be used as `dataname` for respective datasets.</pre>
+                      <pre class="language-r">      checkmate::assert_string(id)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">103</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param join_keys (`join_keys`) optional joining keys, see [`teal.data::join_keys()`].</pre>
+                      <pre class="language-r">      ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">104</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">      row_input &lt;- if (ncol(SummarizedExperiment::rowData(data)) == 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">105</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    initialize = function(data_objects, join_keys = teal.data::join_keys()) {</pre>
+                      <pre class="language-r">        tags$div("no sample variables available")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">106</td>
-                    <td class="coverage">67<em>x</em></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_list(data_objects, any.missing = FALSE, min.len = 0, names = "unique")</pre>
+                      <pre class="language-r">      } else if (nrow(SummarizedExperiment::rowData(data)) == 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">107</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # unpack data.object from the nested list</pre>
+                      <pre class="language-r">        tags$div("no samples available")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">108</td>
-                    <td class="coverage">67<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data_objects &lt;- lapply(data_objects, function(dataset) {</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">109</td>
-                    <td class="coverage">101<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (is.list(dataset) &amp;&amp; "dataset" %in% names(dataset)) {</pre>
+                      <pre class="language-r">        teal.widgets::optionalSelectInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">110</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          dataset$dataset</pre>
+                      <pre class="language-r">          ns("row_to_add"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">111</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">          choices = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">112</td>
-                    <td class="coverage">101<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          dataset</pre>
+                      <pre class="language-r">          options = shinyWidgets::pickerOptions(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">113</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">            liveSearch = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">114</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">            noneSelectedText = "Select gene variable"</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">      # Note the internals of data_objects are checked in set_dataset</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">117</td>
-                    <td class="coverage">67<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_class(join_keys, "join_keys")</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">118</td>
-                    <td class="coverage">66<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      self$set_join_keys(join_keys)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">119</td>
-                    <td class="coverage">66<em>x</em></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      child_parent &lt;- sapply(</pre>
+                      <pre class="language-r">      col_input &lt;- if (ncol(SummarizedExperiment::colData(data)) == 0) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">120</td>
-                    <td class="coverage">66<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        names(data_objects),</pre>
+                      <pre class="language-r">        tags$div("no sample variables available")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">121</td>
-                    <td class="coverage">66<em>x</em></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        function(i) teal.data::parent(join_keys, i),</pre>
+                      <pre class="language-r">      } else if (nrow(SummarizedExperiment::colData(data)) == 0) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">122</td>
-                    <td class="coverage">66<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        USE.NAMES = TRUE,</pre>
+                      <pre class="language-r">        tags$div("no samples available")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">123</td>
-                    <td class="coverage">66<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        simplify = FALSE</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">124</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">        teal.widgets::optionalSelectInput(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">125</td>
-                    <td class="coverage">66<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ordered_datanames &lt;- topological_sort(child_parent)</pre>
+                      <pre class="language-r">          ns("col_to_add"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">126</td>
-                    <td class="coverage">66<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ordered_datanames &lt;- intersect(ordered_datanames, names(data_objects))</pre>
+                      <pre class="language-r">          choices = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">127</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          options = shinyWidgets::pickerOptions(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">128</td>
-                    <td class="coverage">66<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      for (dataname in ordered_datanames) {</pre>
+                      <pre class="language-r">            liveSearch = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">129</td>
-                    <td class="coverage">100<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ds_object &lt;- data_objects[[dataname]]</pre>
+                      <pre class="language-r">            noneSelectedText = "Select sample variable"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">130</td>
-                    <td class="coverage">100<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        self$set_dataset(data = ds_object, dataname = dataname)</pre>
+                      <pre class="language-r">          )</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>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">133</td>
-                    <td class="coverage">66<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      self$set_available_teal_slices(x = reactive(NULL))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">134</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<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="covered">
                     <td class="num">135</td>
-                    <td class="coverage">66<em>x</em></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">        row_input,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">136</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">        col_input</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">137</td>
                     <td class="coverage"></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="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">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Gets `datanames`.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @details</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' The `datanames` are returned in the order in which they must be evaluated (in case of dependencies).</pre>
+                      <pre class="language-r">    #' `shiny` server module to add filter variable.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return Character vector.</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datanames = function() {</pre>
+                      <pre class="language-r">    #' Module controls available choices to select as a filter variable.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">144</td>
-                    <td class="coverage">118<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      names(private$filtered_datasets)</pre>
+                      <pre class="language-r">    #' Selected filter variable is being removed from available choices.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">    #' Removed filter variable gets back to available choices.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' This module unlike other `FilterStates` classes manages two</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">    #' sets of filter variables - one for `colData` and another for</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Gets data label for the dataset.</pre>
+                      <pre class="language-r">    #' `rowData`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Useful to display in `Show R Code`.</pre>
+                      <pre class="language-r">    #'</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">    #' @param id (`character(1)`)</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 dataname (`character(1)`) name of the dataset</pre>
+                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return Character string.</pre>
+                      <pre class="language-r">    #' @return `NULL`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_datalabel = function(dataname) {</pre>
+                      <pre class="language-r">    srv_add = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">154</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$get_filtered_dataset(dataname)$get_dataset_label()</pre>
+                      <pre class="language-r">      data &lt;- private$data</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">155</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">      data_reactive &lt;- private$data_reactive</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">156</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      moduleServer(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">157</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">        id = id,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">158</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Set list of external filter states available for activation.</pre>
+                      <pre class="language-r">        function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">159</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @details</pre>
+                      <pre class="language-r">          logger::log_trace("SEFilterState$srv_add initializing, dataname: { private$dataname }")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Unlike adding new filter from the column, these filters can come with some prespecified settings.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">161</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' `teal_slices` are wrapped in a `reactive` so they can be updated from elsewhere in the app.</pre>
+                      <pre class="language-r">          row_data &lt;- SummarizedExperiment::rowData(data)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">162</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Filters passed in `x` are limited to those that can be set for this `FilteredData` object,</pre>
+                      <pre class="language-r">          col_data &lt;- SummarizedExperiment::colData(data)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' i.e. they have the correct `dataname` and `varname` (waived `teal_slice_fixed` as they do not have `varname`).</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">164</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' List is accessible in `ui/srv_active` through `ui/srv_available_filters`.</pre>
+                      <pre class="language-r">          avail_row_data_choices &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">165</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param x (`reactive`)</pre>
+                      <pre class="language-r">            slices_for_subset &lt;- Filter(function(x) x$arg == "subset", self$get_filter_state())</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">166</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'  should return `teal_slices`</pre>
+                      <pre class="language-r">            active_filter_row_vars &lt;- unique(unlist(lapply(slices_for_subset, "[[", "varname")))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `NULL`, invisibly.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">168</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set_available_teal_slices = function(x) {</pre>
+                      <pre class="language-r">            choices &lt;- setdiff(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">169</td>
-                    <td class="coverage">67<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_class(x, "reactive")</pre>
+                      <pre class="language-r">              get_supported_filter_varnames(data = row_data),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">170</td>
-                    <td class="coverage">67<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$available_teal_slices &lt;- reactive({</pre>
+                      <pre class="language-r">              active_filter_row_vars</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # Available filters should be limited to the ones relevant for this FilteredData.</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">172</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        current_state &lt;- isolate(self$get_filter_state())</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">173</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        allowed &lt;- attr(current_state, "include_varnames")</pre>
+                      <pre class="language-r">            data_choices_labeled(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">174</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        forbidden &lt;- attr(current_state, "exclude_varnames")</pre>
+                      <pre class="language-r">              data = row_data,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">175</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        foo &lt;- function(slice) {</pre>
+                      <pre class="language-r">              choices = choices,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">176</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (slice$dataname %in% self$datanames()) {</pre>
+                      <pre class="language-r">              varlabels = character(0),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">177</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (slice$fixed) {</pre>
+                      <pre class="language-r">              keys = NULL</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">178</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              TRUE</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">179</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">180</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              isTRUE(slice$varname %in% allowed[[slice$dataname]]) ||</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">181</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                isFALSE(slice$varname %in% forbidden[[slice$dataname]])</pre>
+                      <pre class="language-r">          avail_col_data_choices &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">182</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">            slices_for_select &lt;- Filter(function(x) x$arg == "select", self$get_filter_state())</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">183</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          } else {</pre>
+                      <pre class="language-r">            active_filter_col_vars &lt;- unique(unlist(lapply(slices_for_select, "[[", "varname")))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">184</td>
-                    <td class="coverage">!</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">
+                  <tr class="missed">
                     <td class="num">185</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">            choices &lt;- setdiff(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">186</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">              get_supported_filter_varnames(data = col_data),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">187</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        Filter(foo, x())</pre>
+                      <pre class="language-r">              active_filter_col_vars</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">188</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">189</td>
-                    <td class="coverage">67<em>x</em></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">
+                  <tr class="missed">
                     <td class="num">190</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">            data_choices_labeled(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">191</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">              data = col_data,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">192</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">              choices = choices,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">193</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Get list of filter states available for this object.</pre>
+                      <pre class="language-r">              varlabels = character(0),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">194</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @details</pre>
+                      <pre class="language-r">              keys = NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' All `teal_slice` objects that have been created since the beginning of the app session</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' are stored in one `teal_slices` object. This returns a subset of that `teal_slices`,</pre>
+                      <pre class="language-r">          })</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' describing filter states that can be set for this object.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">198</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `reactive` that returns `teal_slices`.</pre>
+                      <pre class="language-r">          observeEvent(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">199</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_available_teal_slices = function() {</pre>
+                      <pre class="language-r">            avail_row_data_choices(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">200</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$available_teal_slices</pre>
+                      <pre class="language-r">            ignoreNULL = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">201</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">            handlerExpr = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">202</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">              logger::log_trace(paste(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">203</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # datasets methods ----</pre>
+                      <pre class="language-r">                "SEFilterStates$srv_add@1 updating available row data choices,",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">204</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                "dataname: { private$dataname }"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">205</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">
+                  <tr class="missed">
                     <td class="num">206</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Gets a `call` to filter the dataset according to the filter state.</pre>
+                      <pre class="language-r">              if (is.null(avail_row_data_choices())) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">207</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @details</pre>
+                      <pre class="language-r">                shinyjs::hide("row_to_add")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' It returns a `call` to filter the dataset only, assuming the</pre>
+                      <pre class="language-r">              } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">209</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' other (filtered) datasets it depends on are available.</pre>
+                      <pre class="language-r">                shinyjs::show("row_to_add")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">211</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Together with `self$datanames()` which returns the datasets in the correct</pre>
+                      <pre class="language-r">              teal.widgets::updateOptionalSelectInput(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">212</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' evaluation order, this generates the whole filter code, see the function</pre>
+                      <pre class="language-r">                session,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">213</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' `FilteredData$get_filter_code`.</pre>
+                      <pre class="language-r">                "row_to_add",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">214</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">                choices = avail_row_data_choices()</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' For the return type, note that `rlang::is_expression` returns `TRUE` on the</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">216</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' return type, both for base `R` expressions and calls (single expression,</pre>
+                      <pre class="language-r">              logger::log_trace(paste(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">217</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' capturing a function call).</pre>
+                      <pre class="language-r">                "SEFilterStates$srv_add@1 updated available row data choices,",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">218</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">                "dataname: { private$dataname }"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">219</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' The filtered dataset has the name given by `self$filtered_dataname(dataname)`</pre>
+                      <pre class="language-r">              ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">221</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' This can be used for the `Show R Code` generation.</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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">
+                  <tr class="missed">
                     <td class="num">223</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param dataname (`character(1)`) name of the dataset</pre>
+                      <pre class="language-r">          observeEvent(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">224</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">            avail_col_data_choices(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">225</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return A list of `call`s.</pre>
+                      <pre class="language-r">            ignoreNULL = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">226</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">            handlerExpr = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">227</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_call = function(dataname) {</pre>
+                      <pre class="language-r">              logger::log_trace(paste(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">228</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_subset(dataname, self$datanames())</pre>
+                      <pre class="language-r">                "SEFilterStates$srv_add@2 updating available col data choices,",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">229</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$get_filtered_dataset(dataname)$get_call()</pre>
+                      <pre class="language-r">                "dataname: { private$dataname }"</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">
+                  <tr class="missed">
                     <td class="num">231</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">              if (is.null(avail_col_data_choices())) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">232</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">                shinyjs::hide("col_to_add")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Gets filtered or unfiltered dataset.</pre>
+                      <pre class="language-r">              } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">234</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">                shinyjs::show("col_to_add")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' For `filtered = FALSE`, the original data set with `set_data` is returned including all attributes.</pre>
+                      <pre class="language-r">              }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">236</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">              teal.widgets::updateOptionalSelectInput(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">237</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param dataname (`character(1)`) name of the dataset.</pre>
+                      <pre class="language-r">                session,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">238</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param filtered (`logical(1)`) whether to return a filtered or unfiltered dataset.</pre>
+                      <pre class="language-r">                "col_to_add",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">239</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">                choices = avail_col_data_choices()</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return A data object, a `data.frame` or a `MultiAssayExperiment`.</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">241</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">              logger::log_trace(paste(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">242</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_data = function(dataname, filtered = TRUE) {</pre>
+                      <pre class="language-r">                "SEFilterStates$srv_add@2 updated available col data choices,",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">243</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_subset(dataname, self$datanames())</pre>
+                      <pre class="language-r">                "dataname: { private$dataname }"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">244</td>
-                    <td class="coverage">23<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_flag(filtered)</pre>
+                      <pre class="language-r">              ))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">245</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data &lt;- private$get_filtered_dataset(dataname)$get_dataset(filtered)</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">246</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (filtered) data() else data</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">247</td>
                     <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="missed">
                     <td class="num">248</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          observeEvent(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">249</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">            eventExpr = input$col_to_add,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">250</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Get join keys between two datasets.</pre>
+                      <pre class="language-r">            handlerExpr = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">251</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">              logger::log_trace(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">252</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `join_keys`</pre>
+                      <pre class="language-r">                sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">253</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">                  "SEFilterStates$srv_add@3 adding FilterState of column %s to col data, dataname: %s",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">254</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_join_keys = function() {</pre>
+                      <pre class="language-r">                  deparse1(input$col_to_add),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">255</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$join_keys</pre>
+                      <pre class="language-r">                  private$dataname</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">256</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">                )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">257</td>
                     <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="missed">
                     <td class="num">258</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">              varname &lt;- input$col_to_add</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">259</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Creates filter overview table to be displayed in the application.</pre>
+                      <pre class="language-r">              self$set_filter_state(teal_slices(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">260</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' One row is created per dataset, according to the `get_filter_overview` methods</pre>
+                      <pre class="language-r">                teal_slice(private$dataname, varname, experiment = private$datalabel, arg = "select")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">261</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' of the contained `FilteredDataset` objects.</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">    #'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">263</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param datanames (`character`) vector of dataset names.</pre>
+                      <pre class="language-r">              logger::log_trace(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">264</td>
-                    <td class="coverage"></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">
+                  <tr class="missed">
                     <td class="num">265</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return A `data.frame` listing the numbers of observations in all datasets.</pre>
+                      <pre class="language-r">                  "SEFilterStates$srv_add@3 added FilterState of column %s to col data, dataname: %s",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">266</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">                  deparse1(varname),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">267</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_filter_overview = function(datanames) {</pre>
+                      <pre class="language-r">                  private$dataname</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">268</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rows &lt;- lapply(</pre>
+                      <pre class="language-r">                )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">269</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        datanames,</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">270</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        function(dataname) {</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">271</td>
-                    <td class="coverage">11<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          private$get_filtered_dataset(dataname)$get_filter_overview()</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">        }</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">      )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">274</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      unssuported_idx &lt;- vapply(rows, function(x) all(is.na(x[-1])), logical(1))</pre>
+                      <pre class="language-r">          observeEvent(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">275</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::bind_rows(c(rows[!unssuported_idx], rows[unssuported_idx]))</pre>
+                      <pre class="language-r">            eventExpr = input$row_to_add,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">276</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">            handlerExpr = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">277</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">              logger::log_trace(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">278</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">                sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">279</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Get keys for the dataset.</pre>
+                      <pre class="language-r">                  "SEFilterStates$srv_add@4 adding FilterState of variable %s to row data, dataname: %s",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">280</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">                  deparse1(input$row_to_add),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">281</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param dataname (`character(1)`) name of the dataset.</pre>
+                      <pre class="language-r">                  private$dataname</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">282</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</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">    #' @return Character vector of key column names.</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">284</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">              varname &lt;- input$row_to_add</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">285</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_keys = function(dataname) {</pre>
+                      <pre class="language-r">              self$set_filter_state(teal_slices(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">286</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$get_filtered_dataset(dataname)$get_keys()</pre>
+                      <pre class="language-r">                teal_slice(private$dataname, varname, experiment = private$datalabel, arg = "subset")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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">
@@ -2131,30375 +2131,30556 @@ <h2>teal.slice coverage - 65.89%</h2>
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">289</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">              logger::log_trace(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">290</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Adds a dataset to this `FilteredData`.</pre>
+                      <pre class="language-r">                sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">291</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">                  "SEFilterStates$srv_add@4 added FilterState of variable %s to row data, dataname: %s",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">292</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @details</pre>
+                      <pre class="language-r">                  deparse1(varname),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">293</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' `set_dataset` creates a `FilteredDataset` object which keeps `dataset` for the filtering purpose.</pre>
+                      <pre class="language-r">                  private$dataname</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">294</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' If this data has a parent specified in the `join_keys` object stored in `private$join_keys`</pre>
+                      <pre class="language-r">                )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">295</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' then created `FilteredDataset` (child) gets linked with other `FilteredDataset` (parent).</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">296</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' "Child" dataset return filtered data then dependent on the reactive filtered data of the</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">297</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' "parent". See more in documentation of `parent` argument in `DataframeFilteredDataset` constructor.</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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">
+                  <tr class="missed">
                     <td class="num">299</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param data (`data.frame` or `MultiAssayExperiment`)</pre>
+                      <pre class="language-r">          logger::log_trace("SEFilterState$srv_add initialized, dataname: { private$dataname }")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">300</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   data to be filtered.</pre>
+                      <pre class="language-r">          NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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">302</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param dataname (`character(1)`)</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">303</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   the name of the `dataset` to be added to this object.</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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">305</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>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/FilteredData.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">306</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r"># FilteredData ------</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">307</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set_dataset = function(data, dataname) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">308</td>
-                    <td class="coverage">105<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::assert_string(dataname)</pre>
+                      <pre class="language-r">#' @name FilteredData</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">309</td>
-                    <td class="coverage">105<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">      logger::log_trace("FilteredData$set_dataset setting dataset, name: { dataname }")</pre>
+                      <pre class="language-r">#' @docType class</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">310</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # to include it nicely in the Show R Code;</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">311</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # the UI also uses `datanames` in ids, so no whitespaces allowed</pre>
+                      <pre class="language-r">#' @title Class to encapsulate filtered datasets</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">312</td>
-                    <td class="coverage">105<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">      check_simple_name(dataname)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">313</td>
+                    <td class="num">8</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">314</td>
-                    <td class="coverage">105<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">      parent_dataname &lt;- teal.data::parent(private$join_keys, dataname)</pre>
+                      <pre class="language-r">#' Manages filtering of all datasets in the application or module.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">315</td>
-                    <td class="coverage">105<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">      keys &lt;- private$join_keys[dataname, dataname]</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">316</td>
-                    <td class="coverage">104<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">      if (is.null(keys)) keys &lt;- character(0)</pre>
+                      <pre class="language-r">#' @details</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">317</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' The main purpose of this class is to provide a collection of reactive datasets,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">318</td>
-                    <td class="coverage">105<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">      if (length(parent_dataname) == 0) {</pre>
+                      <pre class="language-r">#' each dataset having a filter state that determines how it is filtered.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">319</td>
-                    <td class="coverage">95<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">        private$filtered_datasets[[dataname]] &lt;- init_filtered_dataset(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">320</td>
-                    <td class="coverage">95<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">          dataset = data,</pre>
+                      <pre class="language-r">#' For each dataset, `get_filter_expr` returns the call to filter the dataset according</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">321</td>
-                    <td class="coverage">95<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">          dataname = dataname,</pre>
+                      <pre class="language-r">#' to the filter state. The data itself can be obtained through `get_data`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">322</td>
-                    <td class="coverage">95<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">          keys = keys</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">323</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' The datasets are filtered lazily, i.e. only when requested / needed in a `shiny` app.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">324</td>
+                    <td class="num">19</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">325</td>
-                    <td class="coverage">10<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">        join_keys &lt;- private$join_keys[dataname, parent_dataname]</pre>
+                      <pre class="language-r">#' By design, any `dataname` set through `set_dataset` cannot be removed because</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">326</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">21</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (is.null(join_keys)) join_keys &lt;- character(0)</pre>
+                      <pre class="language-r">#' other code may already depend on it. As a workaround, the underlying</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">327</td>
-                    <td class="coverage">10<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">        private$filtered_datasets[[dataname]] &lt;- init_filtered_dataset(</pre>
+                      <pre class="language-r">#' data can be set to `NULL`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">328</td>
-                    <td class="coverage">10<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">          dataset = data,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">329</td>
-                    <td class="coverage">10<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">          dataname = dataname,</pre>
+                      <pre class="language-r">#' The class currently supports variables of the following types within datasets:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">330</td>
-                    <td class="coverage">10<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">          keys = keys,</pre>
+                      <pre class="language-r">#' - `choices`: variable of type `factor`, e.g. `ADSL$COUNTRY`, `iris$Species`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">331</td>
-                    <td class="coverage">10<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">          parent_name = parent_dataname,</pre>
+                      <pre class="language-r">#'      zero or more options can be selected, when the variable is a factor</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">332</td>
-                    <td class="coverage">10<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">          parent = reactive(self$get_data(parent_dataname, filtered = TRUE)),</pre>
+                      <pre class="language-r">#' - `logical`: variable of type `logical`, e.g. `ADSL$TRT_FLAG`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">333</td>
-                    <td class="coverage">10<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">          join_keys = join_keys</pre>
+                      <pre class="language-r">#'      exactly one option must be selected, `TRUE` or `FALSE`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">334</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' - `ranges`: variable of type `numeric`, e.g. `ADSL$AGE`, `iris$Sepal.Length`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">335</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'      numerical range, a range within this range can be selected</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">336</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' - `dates`: variable of type `Date`, `POSIXlt`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">337</td>
-                    <td class="coverage">105<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">      invisible(self)</pre>
+                      <pre class="language-r">#' Other variables cannot be used for filtering the data in this class.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">338</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">339</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Common arguments are:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">340</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">#' 1. `filtered`: whether to return a filtered result or not</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">341</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Set the `join_keys`.</pre>
+                      <pre class="language-r">#' 2. `dataname`: the name of one of the datasets in this `FilteredData` object</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">342</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' 3. `varname`: one of the columns in a dataset</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">343</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param join_keys (`join_keys`), see [`teal.data::join_keys()`].</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">344</td>
+                    <td class="num">39</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">345</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `self`, invisibly.</pre>
+                      <pre class="language-r">#' # use non-exported function from teal.slice</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">346</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' FilteredData &lt;- getFromNamespace("FilteredData", "teal.slice")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">347</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set_join_keys = function(join_keys) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">348</td>
-                    <td class="coverage">66<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">      checkmate::assert_class(join_keys, "join_keys")</pre>
+                      <pre class="language-r">#' library(shiny)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">349</td>
-                    <td class="coverage">66<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">44</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$join_keys &lt;- join_keys</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">350</td>
-                    <td class="coverage">66<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">      invisible(self)</pre>
+                      <pre class="language-r">#' datasets &lt;- FilteredData$new(list(iris = iris, mtcars = mtcars))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">351</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">352</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' # get datanames</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">353</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Functions useful for restoring from another dataset ----</pre>
+                      <pre class="language-r">#' datasets$datanames()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">354</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">355</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">#' datasets$set_filter_state(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">356</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Gets states of all contained `FilterState` objects.</pre>
+                      <pre class="language-r">#'   teal_slices(teal_slice(dataname = "iris", varname = "Species", selected = "virginica"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">357</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">358</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return A `teal_slices` object.</pre>
+                      <pre class="language-r">#' isolate(datasets$get_call("iris"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">359</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">360</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_filter_state = function() {</pre>
+                      <pre class="language-r">#' datasets$set_filter_state(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">361</td>
-                    <td class="coverage">53<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">      states &lt;- unname(lapply(private$filtered_datasets, function(x) x$get_filter_state()))</pre>
+                      <pre class="language-r">#'   teal_slices(teal_slice(dataname = "mtcars", varname = "mpg", selected = c(15, 20)))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">362</td>
-                    <td class="coverage">53<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">      slices &lt;- Filter(Negate(is.null), states)</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">363</td>
-                    <td class="coverage">53<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">      slices &lt;- do.call(c, slices)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">364</td>
-                    <td class="coverage">53<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">      if (!is.null(slices)) {</pre>
+                      <pre class="language-r">#' isolate(datasets$get_filter_state())</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">365</td>
-                    <td class="coverage">53<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">        attr(slices, "allow_add") &lt;- private$allow_add</pre>
+                      <pre class="language-r">#' isolate(datasets$get_call("iris"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">366</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' isolate(datasets$get_call("mtcars"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">367</td>
-                    <td class="coverage">53<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">      slices</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">368</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#' @examplesIf requireNamespace("MultiAssayExperiment")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">369</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' ### set_filter_state</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">370</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">#' library(shiny)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">371</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Returns a formatted string representing this `FilteredData` object.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">372</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' data(miniACC, package = "MultiAssayExperiment")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">373</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param show_all (`logical(1)`) passed to `format.teal_slice`.</pre>
+                      <pre class="language-r">#' datasets &lt;- FilteredData$new(list(iris = iris, mae = miniACC))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">374</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param trim_lines (`logical(1)`) passed to `format.teal_slice`.</pre>
+                      <pre class="language-r">#' fs &lt;- teal_slices(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">375</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#'   teal_slice(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">376</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `character(1)` the formatted string.</pre>
+                      <pre class="language-r">#'     dataname = "iris", varname = "Sepal.Length", selected = c(5.1, 6.4),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">377</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#'     keep_na = TRUE, keep_inf = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">378</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    format = function(show_all = FALSE, trim_lines = TRUE) {</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">379</td>
-                    <td class="coverage">5<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">      datasets &lt;- lapply(self$datanames(), private$get_filtered_dataset)</pre>
+                      <pre class="language-r">#'   teal_slice(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">380</td>
-                    <td class="coverage">5<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">      ind &lt;- vapply(datasets, inherits, logical(1L), what = "DefaultFilteredDataset")</pre>
+                      <pre class="language-r">#'     dataname = "iris", varname = "Species", selected = c("setosa", "versicolor"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">381</td>
-                    <td class="coverage">5<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">      states &lt;- do.call(c, lapply(datasets[!ind], function(ds) ds$get_filter_state()))</pre>
+                      <pre class="language-r">#'     keep_na = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">382</td>
-                    <td class="coverage">5<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">      states_fmt &lt;- format(states, show_all = show_all, trim_lines = trim_lines)</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">383</td>
-                    <td class="coverage">5<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">      holders_fmt &lt;- vapply(datasets[ind], format, character(1L), show_all = show_all, trim_lines = trim_lines)</pre>
+                      <pre class="language-r">#'   teal_slice(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">384</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     dataname = "mae", varname = "years_to_birth", selected = c(30, 50),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">385</td>
-                    <td class="coverage">5<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">      sprintf(</pre>
+                      <pre class="language-r">#'     keep_na = TRUE, keep_inf = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">386</td>
-                    <td class="coverage">5<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">        "%s:\n%s",</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">387</td>
-                    <td class="coverage">5<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">        class(self)[1],</pre>
+                      <pre class="language-r">#'   teal_slice(dataname = "mae", varname = "vital_status", selected = "1", keep_na = FALSE),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">388</td>
-                    <td class="coverage">5<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">        paste(c(states_fmt, holders_fmt), collapse = "\n")</pre>
+                      <pre class="language-r">#'   teal_slice(dataname = "mae", varname = "gender", selected = "female", keep_na = TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">389</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'   teal_slice(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">390</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#'     dataname = "mae", varname = "ARRAY_TYPE",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">391</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     selected = "", keep_na = TRUE, experiment = "RPPAArray", arg = "subset"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">392</td>
+                    <td class="num">87</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">393</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Prints this `FilteredData` object.</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">394</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' datasets$set_filter_state(state = fs)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">395</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param ... additional arguments passed to `format`.</pre>
+                      <pre class="language-r">#' isolate(datasets$get_filter_state())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">396</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">397</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    print = function(...) {</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">398</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">93</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      cat(isolate(self$format(...)), "\n")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">399</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">FilteredData &lt;- R6::R6Class( # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">400</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  "FilteredData",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">401</td>
+                    <td class="num">96</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  # public methods ----</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">97</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  public = list(</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">402</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Sets active filter states.</pre>
+                      <pre class="language-r">    #' Initialize a `FilteredData` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">403</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">    #' @param data_objects (`named list`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">404</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param state (`teal_slices`)</pre>
+                      <pre class="language-r">    #'   List of data objects.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">405</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">    #'   Names of the list will be used as `dataname` for respective datasets.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">406</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `NULL`, invisibly.</pre>
+                      <pre class="language-r">    #' @param join_keys (`join_keys`) optional joining keys, see [`teal.data::join_keys()`].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">407</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set_filter_state = function(state) {</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">408</td>
-                    <td class="coverage">31<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">      isolate({</pre>
+                      <pre class="language-r">    initialize = function(data_objects, join_keys = teal.data::join_keys()) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">409</td>
-                    <td class="coverage">31<em>x</em></td>
+                    <td class="num">106</td>
+                    <td class="coverage">67<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        logger::log_trace("{ class(self)[1] }$set_filter_state initializing")</pre>
+                      <pre class="language-r">      checkmate::assert_list(data_objects, any.missing = FALSE, min.len = 0, names = "unique")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">410</td>
-                    <td class="coverage">31<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">        checkmate::assert_class(state, "teal_slices")</pre>
+                      <pre class="language-r">      # unpack data.object from the nested list</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">411</td>
-                    <td class="coverage">31<em>x</em></td>
+                    <td class="num">108</td>
+                    <td class="coverage">67<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        allow_add &lt;- attr(state, "allow_add")</pre>
+                      <pre class="language-r">      data_objects &lt;- lapply(data_objects, function(dataset) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">412</td>
-                    <td class="coverage">31<em>x</em></td>
+                    <td class="num">109</td>
+                    <td class="coverage">101<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!is.null(allow_add)) {</pre>
+                      <pre class="language-r">        if (is.list(dataset) &amp;&amp; "dataset" %in% names(dataset)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">110</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          dataset$dataset</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">111</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">413</td>
-                    <td class="coverage">31<em>x</em></td>
+                    <td class="num">112</td>
+                    <td class="coverage">101<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          private$allow_add &lt;- allow_add</pre>
+                      <pre class="language-r">          dataset</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">414</td>
+                    <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">415</td>
+                    <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="col-sm-12">
+                      <pre class="language-r">      # Note the internals of data_objects are checked in set_dataset</pre>
+                    </td>
+                  </tr>
                   <tr class="covered">
-                    <td class="num">416</td>
-                    <td class="coverage">31<em>x</em></td>
+                    <td class="num">117</td>
+                    <td class="coverage">67<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        lapply(self$datanames(), function(dataname) {</pre>
+                      <pre class="language-r">      checkmate::assert_class(join_keys, "join_keys")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">417</td>
-                    <td class="coverage">63<em>x</em></td>
+                    <td class="num">118</td>
+                    <td class="coverage">66<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          states &lt;- Filter(function(x) identical(x$dataname, dataname), state)</pre>
+                      <pre class="language-r">      self$set_join_keys(join_keys)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">418</td>
-                    <td class="coverage">63<em>x</em></td>
+                    <td class="num">119</td>
+                    <td class="coverage">66<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          private$get_filtered_dataset(dataname)$set_filter_state(states)</pre>
+                      <pre class="language-r">      child_parent &lt;- sapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">419</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">120</td>
+                    <td class="coverage">66<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        })</pre>
+                      <pre class="language-r">        names(data_objects),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">420</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">121</td>
+                    <td class="coverage">66<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        function(i) teal.data::parent(join_keys, i),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">421</td>
-                    <td class="coverage">31<em>x</em></td>
+                    <td class="num">122</td>
+                    <td class="coverage">66<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        logger::log_trace("{ class(self)[1] }$set_filter_state initialized")</pre>
+                      <pre class="language-r">        USE.NAMES = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">422</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">123</td>
+                    <td class="coverage">66<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">        simplify = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">423</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">424</td>
-                    <td class="coverage">31<em>x</em></td>
+                    <td class="num">125</td>
+                    <td class="coverage">66<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(NULL)</pre>
+                      <pre class="language-r">      ordered_datanames &lt;- topological_sort(child_parent)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">425</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">126</td>
+                    <td class="coverage">66<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">      ordered_datanames &lt;- intersect(ordered_datanames, names(data_objects))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">426</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">427</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">128</td>
+                    <td class="coverage">66<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">      for (dataname in ordered_datanames) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">428</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">129</td>
+                    <td class="coverage">100<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Removes one or more `FilterState` from a `FilteredData` object.</pre>
+                      <pre class="language-r">        ds_object &lt;- data_objects[[dataname]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">429</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">130</td>
+                    <td class="coverage">100<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">        self$set_dataset(data = ds_object, dataname = dataname)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">430</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param state (`teal_slices`)</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">431</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   specifying `FilterState` objects to remove;</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">432</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">133</td>
+                    <td class="coverage">66<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   `teal_slice`s may contain only `dataname` and `varname`, other elements are ignored.</pre>
+                      <pre class="language-r">      self$set_available_teal_slices(x = reactive(NULL))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">433</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">434</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">135</td>
+                    <td class="coverage">66<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `NULL`, invisibly.</pre>
+                      <pre class="language-r">      invisible(self)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">435</td>
+                    <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">
-                    <td class="num">436</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    remove_filter_state = function(state) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">437</td>
-                    <td class="coverage">8<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">      isolate({</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">438</td>
-                    <td class="coverage">8<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">        checkmate::assert_class(state, "teal_slices")</pre>
+                      <pre class="language-r">    #' Gets `datanames`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">439</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">140</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        datanames &lt;- unique(vapply(state, "[[", character(1L), "dataname"))</pre>
+                      <pre class="language-r">    #' @details</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">440</td>
-                    <td class="coverage">8<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">        checkmate::assert_subset(datanames, self$datanames())</pre>
+                      <pre class="language-r">    #' The `datanames` are returned in the order in which they must be evaluated (in case of dependencies).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">441</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' @return Character vector.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">442</td>
-                    <td class="coverage">8<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">        logger::log_trace(</pre>
+                      <pre class="language-r">    datanames = function() {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">443</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">144</td>
+                    <td class="coverage">118<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "{ class(self)[1] }$remove_filter_state removing filter(s), dataname: { private$dataname }"</pre>
+                      <pre class="language-r">      names(private$filtered_datasets)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">444</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">445</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">446</td>
-                    <td class="coverage">8<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        lapply(datanames, function(dataname) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">447</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          slices &lt;- Filter(function(x) identical(x$dataname, dataname), state)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">448</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          private$get_filtered_dataset(dataname)$remove_filter_state(slices)</pre>
-                    </td>
-                  </tr>
                   <tr class="never">
-                    <td class="num">449</td>
+                    <td class="num">147</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">450</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' Gets data label for the dataset.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">451</td>
-                    <td class="coverage">8<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">        logger::log_trace(</pre>
+                      <pre class="language-r">    #' Useful to display in `Show R Code`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">452</td>
-                    <td class="coverage">8<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">          "{ class(self)[1] }$remove_filter_state removed filter(s), dataname: { private$dataname }"</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">453</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    #' @param dataname (`character(1)`) name of the dataset</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">454</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">    #' @return Character string.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">455</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    get_datalabel = function(dataname) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">456</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">154</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(NULL)</pre>
+                      <pre class="language-r">      private$get_filtered_dataset(dataname)$get_dataset_label()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">457</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">458</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">459</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">460</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Remove all `FilterStates` of a `FilteredDataset` or all `FilterStates` of a `FilteredData` object.</pre>
+                      <pre class="language-r">    #' Set list of external filter states available for activation.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">461</td>
+                    <td class="num">159</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">462</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param datanames (`character`)</pre>
+                      <pre class="language-r">    #' Unlike adding new filter from the column, these filters can come with some prespecified settings.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">463</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   names of datasets for which to remove all filter states.</pre>
+                      <pre class="language-r">    #' `teal_slices` are wrapped in a `reactive` so they can be updated from elsewhere in the app.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">464</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   Defaults to all datasets in this `FilteredData` object.</pre>
+                      <pre class="language-r">    #' Filters passed in `x` are limited to those that can be set for this `FilteredData` object,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">465</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param force (`logical(1)`)</pre>
+                      <pre class="language-r">    #' i.e. they have the correct `dataname` and `varname` (waived `teal_slice_fixed` as they do not have `varname`).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">466</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   flag specifying whether to include anchored filter states.</pre>
+                      <pre class="language-r">    #' List is accessible in `ui/srv_active` through `ui/srv_available_filters`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">467</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">    #' @param x (`reactive`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">468</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `NULL`, invisibly.</pre>
+                      <pre class="language-r">    #'  should return `teal_slices`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">469</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">    #' @return `NULL`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">470</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    clear_filter_states = function(datanames = self$datanames(), force = FALSE) {</pre>
+                      <pre class="language-r">    set_available_teal_slices = function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">471</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">169</td>
+                    <td class="coverage">67<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      logger::log_trace(</pre>
+                      <pre class="language-r">      checkmate::assert_class(x, "reactive")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">472</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">170</td>
+                    <td class="coverage">67<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "FilteredData$clear_filter_states called, datanames: { toString(datanames) }"</pre>
+                      <pre class="language-r">      private$available_teal_slices &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">473</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">        # Available filters should be limited to the ones relevant for this FilteredData.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">474</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">172</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        current_state &lt;- isolate(self$get_filter_state())</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">475</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">173</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      for (dataname in datanames) {</pre>
+                      <pre class="language-r">        allowed &lt;- attr(current_state, "include_varnames")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">476</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">174</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        fdataset &lt;- private$get_filtered_dataset(dataname = dataname)</pre>
+                      <pre class="language-r">        forbidden &lt;- attr(current_state, "exclude_varnames")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">477</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">175</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        fdataset$clear_filter_states(force)</pre>
+                      <pre class="language-r">        foo &lt;- function(slice) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">478</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">176</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">          if (slice$dataname %in% self$datanames()) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">177</td>
+                    <td class="coverage">13<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            if (slice$fixed) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">178</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">479</td>
+                    <td class="num">179</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">480</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">180</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      logger::log_trace(</pre>
+                      <pre class="language-r">              isTRUE(slice$varname %in% allowed[[slice$dataname]]) ||</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">481</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">181</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        paste(</pre>
+                      <pre class="language-r">                isFALSE(slice$varname %in% forbidden[[slice$dataname]])</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">482</td>
-                    <td class="coverage">7<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">          "FilteredData$clear_filter_states removed all non-anchored FilterStates,",</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">483</td>
-                    <td class="coverage">7<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">          "datanames: { toString(datanames) }"</pre>
+                      <pre class="language-r">          } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">184</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">484</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">485</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="covered">
+                    <td class="num">187</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        Filter(foo, x())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">486</td>
+                    <td class="num">188</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">487</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">189</td>
+                    <td class="coverage">67<em>x</em></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      invisible(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">488</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">489</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">490</td>
+                    <td class="num">192</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">491</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # shiny modules -----</pre>
+                      <pre class="language-r">    #' Get list of filter states available for this object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">492</td>
+                    <td class="num">194</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">493</td>
+                    <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">    #' All `teal_slice` objects that have been created since the beginning of the app session</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">494</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' top-level `shiny` module for the filter panel in the `teal` app.</pre>
+                      <pre class="language-r">    #' are stored in one `teal_slices` object. This returns a subset of that `teal_slices`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">495</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Contains 1) filter overview panel, 2) filter active panel, and 3) add filters panel.</pre>
+                      <pre class="language-r">    #' describing filter states that can be set for this object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">496</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">    #' @return `reactive` that returns `teal_slices`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">497</td>
+                    <td class="num">199</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param id (`character(1)`)</pre>
+                      <pre class="language-r">    get_available_teal_slices = function() {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">200</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      private$available_teal_slices</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">498</td>
+                    <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">499</td>
+                    <td class="num">202</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `shiny.tag`</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">500</td>
+                    <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_filter_panel = function(id) {</pre>
+                      <pre class="language-r">    # datasets methods ----</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">501</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">204</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="missed">
-                    <td class="num">502</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">205</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tags$div(</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">503</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">206</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = ns(NULL), # used for hiding / showing</pre>
+                      <pre class="language-r">    #' Gets a `call` to filter the dataset according to the filter state.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">504</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">207</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        include_css_files(pattern = "filter-panel"),</pre>
+                      <pre class="language-r">    #' @details</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">505</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">208</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        self$ui_overview(ns("overview")),</pre>
+                      <pre class="language-r">    #' It returns a `call` to filter the dataset only, assuming the</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">506</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">209</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        self$ui_active(ns("active")),</pre>
+                      <pre class="language-r">    #' other (filtered) datasets it depends on are available.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">507</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">210</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (private$allow_add) {</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">508</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">          self$ui_add(ns("add"))</pre>
+                      <pre class="language-r">    #' Together with `self$datanames()` which returns the datasets in the correct</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">509</td>
+                    <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">    #' evaluation order, this generates the whole filter code, see the function</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">510</td>
+                    <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    #' `FilteredData$get_filter_code`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">511</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">512</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' For the return type, note that `rlang::is_expression` returns `TRUE` on the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">513</td>
+                    <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">    #' return type, both for base `R` expressions and calls (single expression,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">514</td>
+                    <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Server function for filter panel.</pre>
+                      <pre class="language-r">    #' capturing a function call).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">515</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">516</td>
+                    <td class="num">219</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param id (`character(1)`)</pre>
+                      <pre class="language-r">    #' The filtered dataset has the name given by `self$filtered_dataname(dataname)`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">517</td>
+                    <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">518</td>
+                    <td class="num">221</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param active_datanames (`function` or `reactive`)</pre>
+                      <pre class="language-r">    #' This can be used for the `Show R Code` generation.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">519</td>
+                    <td class="num">222</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   returning `datanames` that should be shown on the filter panel.</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">520</td>
+                    <td class="num">223</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   Must be a subset of the `datanames` in this `FilteredData`.</pre>
+                      <pre class="language-r">    #' @param dataname (`character(1)`) name of the dataset</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">521</td>
+                    <td class="num">224</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   If the function returns `NULL` (as opposed to `character(0)`),</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">522</td>
+                    <td class="num">225</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   the filter panel will be hidden.</pre>
+                      <pre class="language-r">    #' @return A list of `call`s.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">523</td>
+                    <td class="num">226</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">524</td>
+                    <td class="num">227</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    srv_filter_panel = function(id, active_datanames = self$datanames) {</pre>
+                      <pre class="language-r">    get_call = function(dataname) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">525</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">228</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_function(active_datanames)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">526</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      moduleServer(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">527</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        id = id,</pre>
+                      <pre class="language-r">      checkmate::assert_subset(dataname, self$datanames())</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">528</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">229</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        function(input, output, session) {</pre>
+                      <pre class="language-r">      private$get_filtered_dataset(dataname)$get_call()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">529</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">230</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_trace("FilteredData$srv_filter_panel initializing")</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">530</td>
+                    <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">531</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">232</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          active_datanames_resolved &lt;- reactive({</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">532</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">233</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            checkmate::assert_subset(active_datanames(), self$datanames())</pre>
+                      <pre class="language-r">    #' Gets filtered or unfiltered dataset.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">533</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">234</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            active_datanames()</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">534</td>
+                    <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          })</pre>
+                      <pre class="language-r">    #' For `filtered = FALSE`, the original data set with `set_data` is returned including all attributes.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">535</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="covered">
-                    <td class="num">536</td>
-                    <td class="coverage">1<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">          self$srv_overview("overview", active_datanames_resolved)</pre>
+                      <pre class="language-r">    #' @param dataname (`character(1)`) name of the dataset.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">537</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">238</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          self$srv_active("active", active_datanames_resolved)</pre>
+                      <pre class="language-r">    #' @param filtered (`logical(1)`) whether to return a filtered or unfiltered dataset.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">538</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">239</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (private$allow_add) {</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">539</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">240</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            self$srv_add("add", active_datanames_resolved)</pre>
+                      <pre class="language-r">    #' @return A data object, a `data.frame` or a `MultiAssayExperiment`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">540</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">541</td>
+                    <td class="num">242</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    get_data = function(dataname, filtered = TRUE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">542</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">243</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_trace("FilteredData$srv_filter_panel initialized")</pre>
+                      <pre class="language-r">      checkmate::assert_subset(dataname, self$datanames())</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">543</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">244</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          NULL</pre>
+                      <pre class="language-r">      checkmate::assert_flag(filtered)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">544</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">245</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">      data &lt;- private$get_filtered_dataset(dataname)$get_dataset(filtered)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">545</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">246</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      if (filtered) data() else data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">546</td>
+                    <td class="num">247</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">547</td>
+                    <td class="num">248</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">548</td>
+                    <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">549</td>
+                    <td class="num">250</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Server module responsible for displaying active filters.</pre>
+                      <pre class="language-r">    #' Get join keys between two datasets.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">550</td>
+                    <td class="num">251</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">551</td>
+                    <td class="num">252</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
+                      <pre class="language-r">    #' @return `join_keys`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">552</td>
+                    <td class="num">253</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `shiny.tag`</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">553</td>
+                    <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_active = function(id) {</pre>
+                      <pre class="language-r">    get_join_keys = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">554</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">255</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ns &lt;- NS(id)</pre>
+                      <pre class="language-r">      private$join_keys</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">555</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">256</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">556</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">257</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = id, # not used, can be used to customize CSS behavior</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">557</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">258</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        class = "well",</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">558</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">259</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$div(</pre>
+                      <pre class="language-r">    #' Creates filter overview table to be displayed in the application.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">559</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">260</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          class = "filter-panel-active-header",</pre>
+                      <pre class="language-r">    #' One row is created per dataset, according to the `get_filter_overview` methods</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">560</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">261</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          tags$span("Active Filter Variables", class = "text-primary mb-4"),</pre>
+                      <pre class="language-r">    #' of the contained `FilteredDataset` objects.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">561</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">          private$ui_available_filters(ns("available_filters")),</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">562</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">263</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          actionLink(</pre>
+                      <pre class="language-r">    #' @param datanames (`character`) vector of dataset names.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">563</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">264</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            inputId = ns("minimise_filter_active"),</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">564</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">265</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            label = NULL,</pre>
+                      <pre class="language-r">    #' @return A `data.frame` listing the numbers of observations in all datasets.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">565</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">266</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            icon = icon("angle-down", lib = "font-awesome"),</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">566</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">267</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            title = "Minimise panel",</pre>
+                      <pre class="language-r">    get_filter_overview = function(datanames) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">567</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">268</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            class = "remove_all pull-right"</pre>
+                      <pre class="language-r">      rows &lt;- lapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">568</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">269</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">        datanames,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">569</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">270</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          actionLink(</pre>
+                      <pre class="language-r">        function(dataname) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">570</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">271</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            inputId = ns("remove_all_filters"),</pre>
+                      <pre class="language-r">          private$get_filtered_dataset(dataname)$get_filter_overview()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">571</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">272</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="missed">
-                    <td class="num">572</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">273</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            icon("circle-xmark", lib = "font-awesome"),</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">573</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">274</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            title = "Remove active filters",</pre>
+                      <pre class="language-r">      unssuported_idx &lt;- vapply(rows, function(x) all(is.na(x[-1])), logical(1))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">574</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">275</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            class = "remove_all pull-right"</pre>
+                      <pre class="language-r">      dplyr::bind_rows(c(rows[!unssuported_idx], rows[unssuported_idx]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">575</td>
+                    <td class="num">276</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">576</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>
-                  <tr class="missed">
-                    <td class="num">577</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">278</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$div(</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">578</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">279</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          id = ns("filter_active_vars_contents"),</pre>
+                      <pre class="language-r">    #' Get keys for the dataset.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">579</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">280</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          tagList(</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">580</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">281</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            lapply(</pre>
+                      <pre class="language-r">    #' @param dataname (`character(1)`) name of the dataset.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">581</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">282</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              self$datanames(),</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">582</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">283</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              function(dataname) {</pre>
+                      <pre class="language-r">    #' @return Character vector of key column names.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">583</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">284</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                fdataset &lt;- private$get_filtered_dataset(dataname)</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">584</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">285</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                fdataset$ui_active(id = ns(dataname))</pre>
+                      <pre class="language-r">    get_keys = function(dataname) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">286</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      private$get_filtered_dataset(dataname)$get_keys()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">585</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">586</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">587</td>
+                    <td class="num">289</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">588</td>
+                    <td class="num">290</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">    #' Adds a dataset to this `FilteredData`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">589</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">        shinyjs::hidden(</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">590</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">292</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          tags$div(</pre>
+                      <pre class="language-r">    #' @details</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">591</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">293</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            id = ns("filters_active_count"),</pre>
+                      <pre class="language-r">    #' `set_dataset` creates a `FilteredDataset` object which keeps `dataset` for the filtering purpose.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">592</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">294</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            textOutput(ns("teal_filters_count"))</pre>
+                      <pre class="language-r">    #' If this data has a parent specified in the `join_keys` object stored in `private$join_keys`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">593</td>
+                    <td class="num">295</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">    #' then created `FilteredDataset` (child) gets linked with other `FilteredDataset` (parent).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">594</td>
+                    <td class="num">296</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    #' "Child" dataset return filtered data then dependent on the reactive filtered data of the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">595</td>
+                    <td class="num">297</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    #' "parent". See more in documentation of `parent` argument in `DataframeFilteredDataset` constructor.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">596</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">597</td>
+                    <td class="num">299</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' @param data (`data.frame` or `MultiAssayExperiment`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">598</td>
+                    <td class="num">300</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">    #'   data to be filtered.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">599</td>
+                    <td class="num">301</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Server module responsible for displaying active filters.</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">600</td>
+                    <td class="num">302</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param id (`character(1)`)</pre>
+                      <pre class="language-r">    #' @param dataname (`character(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">601</td>
+                    <td class="num">303</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
+                      <pre class="language-r">    #'   the name of the `dataset` to be added to this object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">602</td>
+                    <td class="num">304</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param active_datanames (`reactive`)</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">603</td>
+                    <td class="num">305</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   defining subset of `self$datanames()` to be displayed.</pre>
+                      <pre class="language-r">    #' @return `self`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">604</td>
+                    <td class="num">306</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">605</td>
+                    <td class="num">307</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    srv_active = function(id, active_datanames = self$datanames) {</pre>
+                      <pre class="language-r">    set_dataset = function(data, dataname) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">606</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">308</td>
+                    <td class="coverage">105<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_function(active_datanames)</pre>
+                      <pre class="language-r">      checkmate::assert_string(dataname)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">607</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">309</td>
+                    <td class="coverage">105<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      moduleServer(id, function(input, output, session) {</pre>
+                      <pre class="language-r">      logger::log_trace("FilteredData$set_dataset setting dataset, name: { dataname }")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">608</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">310</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        logger::log_trace("FilteredData$srv_active initializing")</pre>
+                      <pre class="language-r">      # to include it nicely in the Show R Code;</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">609</td>
+                    <td class="num">311</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      # the UI also uses `datanames` in ids, so no whitespaces allowed</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">610</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">312</td>
+                    <td class="coverage">105<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$srv_available_filters("available_filters")</pre>
+                      <pre class="language-r">      check_simple_name(dataname)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">611</td>
+                    <td class="num">313</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">612</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        observeEvent(input$minimise_filter_active, {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">613</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          shinyjs::toggle("filter_active_vars_contents")</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">614</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          shinyjs::toggle("filters_active_count")</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">615</td>
-                    <td class="coverage">!</td>
+                    <td class="num">314</td>
+                    <td class="coverage">105<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          toggle_icon(session$ns("minimise_filter_active"), c("fa-angle-right", "fa-angle-down"))</pre>
+                      <pre class="language-r">      parent_dataname &lt;- teal.data::parent(private$join_keys, dataname)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">616</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">315</td>
+                    <td class="coverage">105<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          toggle_title(session$ns("minimise_filter_active"), c("Restore panel", "Minimise Panel"))</pre>
+                      <pre class="language-r">      keys &lt;- private$join_keys[dataname, dataname]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">617</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">316</td>
+                    <td class="coverage">104<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        })</pre>
+                      <pre class="language-r">      if (is.null(keys)) keys &lt;- character(0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">618</td>
+                    <td class="num">317</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">619</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">318</td>
+                    <td class="coverage">105<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        observeEvent(private$get_filter_count(), {</pre>
+                      <pre class="language-r">      if (length(parent_dataname) == 0) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">620</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">319</td>
+                    <td class="coverage">95<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyjs::toggle("remove_all_filters", condition = private$get_filter_count() != 0)</pre>
+                      <pre class="language-r">        private$filtered_datasets[[dataname]] &lt;- init_filtered_dataset(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">621</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">320</td>
+                    <td class="coverage">95<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyjs::show("filter_active_vars_contents")</pre>
+                      <pre class="language-r">          dataset = data,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">622</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">321</td>
+                    <td class="coverage">95<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyjs::hide("filters_active_count")</pre>
+                      <pre class="language-r">          dataname = dataname,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">623</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">322</td>
+                    <td class="coverage">95<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          toggle_icon(session$ns("minimise_filter_active"), c("fa-angle-right", "fa-angle-down"), TRUE)</pre>
+                      <pre class="language-r">          keys = keys</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">624</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">323</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          toggle_title(session$ns("minimise_filter_active"), c("Restore panel", "Minimise Panel"), TRUE)</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">625</td>
+                    <td class="num">324</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">626</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">325</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        join_keys &lt;- private$join_keys[dataname, parent_dataname]</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">326</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        if (is.null(join_keys)) join_keys &lt;- character(0)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">627</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">327</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        observeEvent(active_datanames(), {</pre>
+                      <pre class="language-r">        private$filtered_datasets[[dataname]] &lt;- init_filtered_dataset(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">628</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">328</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          lapply(self$datanames(), function(dataname) {</pre>
+                      <pre class="language-r">          dataset = data,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">629</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">329</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (dataname %in% active_datanames()) {</pre>
+                      <pre class="language-r">          dataname = dataname,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">630</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">330</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              shinyjs::show(dataname)</pre>
+                      <pre class="language-r">          keys = keys,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">631</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">331</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            } else {</pre>
+                      <pre class="language-r">          parent_name = parent_dataname,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">632</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">332</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              shinyjs::hide(dataname)</pre>
+                      <pre class="language-r">          parent = reactive(self$get_data(parent_dataname, filtered = TRUE)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">633</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">333</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">          join_keys = join_keys</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">634</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">635</td>
+                    <td class="num">335</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        })</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">636</td>
+                    <td class="num">336</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
+                  <tr class="covered">
+                    <td class="num">337</td>
+                    <td class="coverage">105<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      invisible(self)</pre>
+                    </td>
+                  </tr>
                   <tr class="never">
-                    <td class="num">637</td>
+                    <td class="num">338</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # should not use for-loop as variables are otherwise only bound by reference</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">638</td>
+                    <td class="num">339</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # and last dataname would be used</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">639</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">340</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        lapply(</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">640</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">341</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          self$datanames(),</pre>
+                      <pre class="language-r">    #' Set the `join_keys`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">641</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">342</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          function(dataname) {</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">642</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">343</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            fdataset &lt;- private$get_filtered_dataset(dataname)</pre>
+                      <pre class="language-r">    #' @param join_keys (`join_keys`), see [`teal.data::join_keys()`].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">643</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">344</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            fdataset$srv_active(id = dataname)</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">644</td>
+                    <td class="num">345</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">645</td>
+                    <td class="num">346</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">646</td>
+                    <td class="num">347</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    set_join_keys = function(join_keys) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">647</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">348</td>
+                    <td class="coverage">66<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        output$teal_filters_count &lt;- renderText({</pre>
+                      <pre class="language-r">      checkmate::assert_class(join_keys, "join_keys")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">648</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">349</td>
+                    <td class="coverage">66<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          n_filters_active &lt;- private$get_filter_count()</pre>
+                      <pre class="language-r">      private$join_keys &lt;- join_keys</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">649</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">350</td>
+                    <td class="coverage">66<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          req(n_filters_active &gt; 0L)</pre>
+                      <pre class="language-r">      invisible(self)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">650</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">351</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">651</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">352</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "%s filter%s applied across datasets",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">652</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">353</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            n_filters_active,</pre>
+                      <pre class="language-r">    # Functions useful for restoring from another dataset ----</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">653</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">354</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ifelse(n_filters_active == 1, "", "s")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">654</td>
+                    <td class="num">355</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">655</td>
+                    <td class="num">356</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        })</pre>
+                      <pre class="language-r">    #' Gets states of all contained `FilterState` objects.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">656</td>
+                    <td class="num">357</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">657</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">358</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        observeEvent(input$remove_all_filters, {</pre>
+                      <pre class="language-r">    #' @return A `teal_slices` object.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">658</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">359</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_trace("FilteredData$srv_filter_panel@1 removing all non-anchored filters")</pre>
+                      <pre class="language-r">    #'</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">360</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    get_filter_state = function() {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">659</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">361</td>
+                    <td class="coverage">53<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          self$clear_filter_states()</pre>
+                      <pre class="language-r">      states &lt;- unname(lapply(private$filtered_datasets, function(x) x$get_filter_state()))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">660</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">362</td>
+                    <td class="coverage">53<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_trace("FilteredData$srv_filter_panel@1 removed all non-anchored filters")</pre>
+                      <pre class="language-r">      slices &lt;- Filter(Negate(is.null), states)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">661</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">363</td>
+                    <td class="coverage">53<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        })</pre>
+                      <pre class="language-r">      slices &lt;- do.call(c, slices)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">662</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">364</td>
+                    <td class="coverage">53<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        logger::log_trace("FilteredData$srv_active initialized")</pre>
+                      <pre class="language-r">      if (!is.null(slices)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">663</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">365</td>
+                    <td class="coverage">53<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        NULL</pre>
+                      <pre class="language-r">        attr(slices, "allow_add") &lt;- private$allow_add</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">664</td>
+                    <td class="num">366</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">367</td>
+                    <td class="coverage">53<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      slices</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">665</td>
+                    <td class="num">368</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">666</td>
+                    <td class="num">369</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">667</td>
+                    <td class="num">370</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">668</td>
+                    <td class="num">371</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Server module responsible for displaying drop-downs with variables to add a filter.</pre>
+                      <pre class="language-r">    #' Returns a formatted string representing this `FilteredData` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">669</td>
+                    <td class="num">372</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">670</td>
+                    <td class="num">373</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
+                      <pre class="language-r">    #' @param show_all (`logical(1)`) passed to `format.teal_slice`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">671</td>
+                    <td class="num">374</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `shiny.tag`</pre>
+                      <pre class="language-r">    #' @param trim_lines (`logical(1)`) passed to `format.teal_slice`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">672</td>
+                    <td class="num">375</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_add = function(id) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">673</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="missed">
-                    <td class="num">674</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">376</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tags$div(</pre>
+                      <pre class="language-r">    #' @return `character(1)` the formatted string.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">675</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">377</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = id, # not used, can be used to customize CSS behavior</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">676</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">378</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        class = "well",</pre>
+                      <pre class="language-r">    format = function(show_all = FALSE, trim_lines = TRUE) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">677</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">379</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$div(</pre>
+                      <pre class="language-r">      datasets &lt;- lapply(self$datanames(), private$get_filtered_dataset)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">678</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">380</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          class = "row",</pre>
+                      <pre class="language-r">      ind &lt;- vapply(datasets, inherits, logical(1L), what = "DefaultFilteredDataset")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">679</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">381</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          tags$div(</pre>
+                      <pre class="language-r">      states &lt;- do.call(c, lapply(datasets[!ind], function(ds) ds$get_filter_state()))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">680</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">382</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            class = "col-sm-9",</pre>
+                      <pre class="language-r">      states_fmt &lt;- format(states, show_all = show_all, trim_lines = trim_lines)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">681</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">383</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            tags$label("Add Filter Variables", class = "text-primary mb-4")</pre>
+                      <pre class="language-r">      holders_fmt &lt;- vapply(datasets[ind], format, character(1L), show_all = show_all, trim_lines = trim_lines)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">682</td>
+                    <td class="num">384</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">683</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">385</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          tags$div(</pre>
+                      <pre class="language-r">      sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">684</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">386</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            class = "col-sm-3",</pre>
+                      <pre class="language-r">        "%s:\n%s",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">685</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">387</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            actionLink(</pre>
+                      <pre class="language-r">        class(self)[1],</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">686</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">388</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ns("minimise_filter_add_vars"),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">687</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              label = NULL,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">688</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              icon = icon("angle-down", lib = "font-awesome"),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">689</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              title = "Minimise panel",</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">690</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              class = "remove pull-right"</pre>
+                      <pre class="language-r">        paste(c(states_fmt, holders_fmt), collapse = "\n")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">691</td>
+                    <td class="num">389</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">692</td>
+                    <td class="num">390</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">693</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="missed">
-                    <td class="num">694</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">392</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$div(</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">695</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">393</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          id = ns("filter_add_vars_contents"),</pre>
+                      <pre class="language-r">    #' Prints this `FilteredData` object.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">696</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">394</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          tagList(</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">697</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">395</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            lapply(</pre>
+                      <pre class="language-r">    #' @param ... additional arguments passed to `format`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">698</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">396</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              self$datanames(),</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">699</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">397</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              function(dataname) {</pre>
+                      <pre class="language-r">    print = function(...) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">700</td>
+                    <td class="num">398</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                fdataset &lt;- private$get_filtered_dataset(dataname)</pre>
+                      <pre class="language-r">      cat(isolate(self$format(...)), "\n")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">701</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">399</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                tags$span(id = ns(dataname), fdataset$ui_add(ns(dataname)))</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">702</td>
+                    <td class="num">400</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">703</td>
+                    <td class="num">401</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">704</td>
+                    <td class="num">402</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">    #' Sets active filter states.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">705</td>
+                    <td class="num">403</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">706</td>
+                    <td class="num">404</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    #' @param state (`teal_slices`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">707</td>
+                    <td class="num">405</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">708</td>
+                    <td class="num">406</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' @return `NULL`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">709</td>
+                    <td class="num">407</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">    set_filter_state = function(state) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">710</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">408</td>
+                    <td class="coverage">31<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Server module responsible for displaying drop-downs with variables to add a filter.</pre>
+                      <pre class="language-r">      isolate({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">711</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">409</td>
+                    <td class="coverage">31<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param id (`character(1)`)</pre>
+                      <pre class="language-r">        logger::log_trace("{ class(self)[1] }$set_filter_state initializing")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">712</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">410</td>
+                    <td class="coverage">31<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
+                      <pre class="language-r">        checkmate::assert_class(state, "teal_slices")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">713</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">411</td>
+                    <td class="coverage">31<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param active_datanames (`reactive`)</pre>
+                      <pre class="language-r">        allow_add &lt;- attr(state, "allow_add")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">714</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">412</td>
+                    <td class="coverage">31<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   defining subset of `self$datanames()` to be displayed.</pre>
+                      <pre class="language-r">        if (!is.null(allow_add)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">715</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">413</td>
+                    <td class="coverage">31<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `NULL`.</pre>
+                      <pre class="language-r">          private$allow_add &lt;- allow_add</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">716</td>
+                    <td class="num">414</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    srv_add = function(id, active_datanames = reactive(self$datanames())) {</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">717</td>
-                    <td class="coverage">1<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">      checkmate::assert_class(active_datanames, "reactive")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">718</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">416</td>
+                    <td class="coverage">31<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      moduleServer(id, function(input, output, session) {</pre>
+                      <pre class="language-r">        lapply(self$datanames(), function(dataname) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">719</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">417</td>
+                    <td class="coverage">63<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        logger::log_trace("FilteredData$srv_add initializing")</pre>
+                      <pre class="language-r">          states &lt;- Filter(function(x) identical(x$dataname, dataname), state)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">720</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">418</td>
+                    <td class="coverage">63<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        observeEvent(input$minimise_filter_add_vars, {</pre>
+                      <pre class="language-r">          private$get_filtered_dataset(dataname)$set_filter_state(states)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">721</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">419</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyjs::toggle("filter_add_vars_contents")</pre>
+                      <pre class="language-r">        })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">722</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">420</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          toggle_icon(session$ns("minimise_filter_add_vars"), c("fa-angle-right", "fa-angle-down"))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">723</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">421</td>
+                    <td class="coverage">31<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          toggle_title(session$ns("minimise_filter_add_vars"), c("Restore panel", "Minimise Panel"))</pre>
+                      <pre class="language-r">        logger::log_trace("{ class(self)[1] }$set_filter_state initialized")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">724</td>
+                    <td class="num">422</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        })</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">725</td>
+                    <td class="num">423</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">726</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">424</td>
+                    <td class="coverage">31<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        observeEvent(active_datanames(), {</pre>
+                      <pre class="language-r">      invisible(NULL)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">727</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">425</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          lapply(self$datanames(), function(dataname) {</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">728</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">426</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (dataname %in% active_datanames()) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">729</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">427</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              shinyjs::show(dataname)</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">730</td>
+                    <td class="num">428</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            } else {</pre>
+                      <pre class="language-r">    #' Removes one or more `FilterState` from a `FilteredData` object.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">731</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">429</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              shinyjs::hide(dataname)</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">732</td>
+                    <td class="num">430</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">    #' @param state (`teal_slices`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">733</td>
+                    <td class="num">431</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          })</pre>
+                      <pre class="language-r">    #'   specifying `FilterState` objects to remove;</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">734</td>
+                    <td class="num">432</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        })</pre>
+                      <pre class="language-r">    #'   `teal_slice`s may contain only `dataname` and `varname`, other elements are ignored.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">735</td>
+                    <td class="num">433</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">736</td>
+                    <td class="num">434</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # should not use for-loop as variables are otherwise only bound by reference</pre>
+                      <pre class="language-r">    #' @return `NULL`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">737</td>
+                    <td class="num">435</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # and last dataname would be used</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">738</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">436</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        lapply(</pre>
+                      <pre class="language-r">    remove_filter_state = function(state) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">739</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">437</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          self$datanames(),</pre>
+                      <pre class="language-r">      isolate({</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">740</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">438</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          function(dataname) {</pre>
+                      <pre class="language-r">        checkmate::assert_class(state, "teal_slices")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">741</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">439</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            fdataset &lt;- private$get_filtered_dataset(dataname)</pre>
+                      <pre class="language-r">        datanames &lt;- unique(vapply(state, "[[", character(1L), "dataname"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">742</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">440</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            fdataset$srv_add(id = dataname)</pre>
+                      <pre class="language-r">        checkmate::assert_subset(datanames, self$datanames())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">743</td>
+                    <td class="num">441</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">442</td>
+                    <td class="coverage">8<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        logger::log_trace(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">443</td>
+                    <td class="coverage">8<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          "{ class(self)[1] }$remove_filter_state removing filter(s), dataname: { private$dataname }"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">744</td>
+                    <td class="num">444</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">        )</pre>
                     </td>
                   </tr>
+                  <tr class="never">
+                    <td class="num">445</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
                   <tr class="covered">
-                    <td class="num">745</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">446</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        logger::log_trace("FilteredData$srv_filter_panel initialized")</pre>
+                      <pre class="language-r">        lapply(datanames, function(dataname) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">746</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">447</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        NULL</pre>
+                      <pre class="language-r">          slices &lt;- Filter(function(x) identical(x$dataname, dataname), state)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">747</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">448</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">          private$get_filtered_dataset(dataname)$remove_filter_state(slices)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">748</td>
+                    <td class="num">449</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">        })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">749</td>
+                    <td class="num">450</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
+                  <tr class="covered">
+                    <td class="num">451</td>
+                    <td class="coverage">8<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        logger::log_trace(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">452</td>
+                    <td class="coverage">8<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          "{ class(self)[1] }$remove_filter_state removed filter(s), dataname: { private$dataname }"</pre>
+                    </td>
+                  </tr>
                   <tr class="never">
-                    <td class="num">750</td>
+                    <td class="num">453</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">751</td>
+                    <td class="num">454</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Creates the UI definition for the module showing counts for each dataset</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">752</td>
+                    <td class="num">455</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' contrasting the filtered to the full unfiltered dataset.</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">456</td>
+                    <td class="coverage">8<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      invisible(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">753</td>
+                    <td class="num">457</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">754</td>
+                    <td class="num">458</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Per dataset, it displays</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">755</td>
+                    <td class="num">459</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' the number of rows/observations in each dataset,</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">756</td>
+                    <td class="num">460</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' the number of unique subjects.</pre>
+                      <pre class="language-r">    #' Remove all `FilterStates` of a `FilteredDataset` or all `FilterStates` of a `FilteredData` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">757</td>
+                    <td class="num">461</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">758</td>
+                    <td class="num">462</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param id (`character(1)`)</pre>
+                      <pre class="language-r">    #' @param datanames (`character`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">759</td>
+                    <td class="num">463</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
+                      <pre class="language-r">    #'   names of datasets for which to remove all filter states.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">760</td>
+                    <td class="num">464</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">    #'   Defaults to all datasets in this `FilteredData` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">761</td>
+                    <td class="num">465</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_overview = function(id) {</pre>
+                      <pre class="language-r">    #' @param force (`logical(1)`)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">762</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">466</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ns &lt;- NS(id)</pre>
+                      <pre class="language-r">    #'   flag specifying whether to include anchored filter states.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">763</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">467</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">764</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">468</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = id, # not used, can be used to customize CSS behavior</pre>
+                      <pre class="language-r">    #' @return `NULL`, invisibly.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">765</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">469</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        class = "well",</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">766</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">470</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$div(</pre>
+                      <pre class="language-r">    clear_filter_states = function(datanames = self$datanames(), force = FALSE) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">767</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">471</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          class = "row",</pre>
+                      <pre class="language-r">      logger::log_trace(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">768</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          tags$div(</pre>
+                  <tr class="covered">
+                    <td class="num">472</td>
+                    <td class="coverage">7<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        "FilteredData$clear_filter_states called, datanames: { toString(datanames) }"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">769</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">473</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            class = "col-sm-9",</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">770</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">474</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            tags$label("Active Filter Summary", class = "text-primary mb-4")</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">475</td>
+                    <td class="coverage">7<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      for (dataname in datanames) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">476</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        fdataset &lt;- private$get_filtered_dataset(dataname = dataname)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">477</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        fdataset$clear_filter_states(force)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">771</td>
+                    <td class="num">478</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">772</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">479</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">773</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">480</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            class = "col-sm-3",</pre>
+                      <pre class="language-r">      logger::log_trace(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">774</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">481</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            actionLink(</pre>
+                      <pre class="language-r">        paste(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">775</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">482</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ns("minimise_filter_overview"),</pre>
+                      <pre class="language-r">          "FilteredData$clear_filter_states removed all non-anchored FilterStates,",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">776</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">483</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              label = NULL,</pre>
+                      <pre class="language-r">          "datanames: { toString(datanames) }"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">777</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">484</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              icon = icon("angle-down", lib = "font-awesome"),</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">778</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">485</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              title = "Minimise panel",</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">779</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">486</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              class = "remove pull-right"</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">487</td>
+                    <td class="coverage">7<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      invisible(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">780</td>
+                    <td class="num">488</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">781</td>
+                    <td class="num">489</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">782</td>
+                    <td class="num">490</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">491</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    # shiny modules -----</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">492</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">493</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    #' @description</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">494</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    #' top-level `shiny` module for the filter panel in the `teal` app.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">495</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    #' Contains 1) filter overview panel, 2) filter active panel, and 3) add filters panel.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">496</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    #'</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">497</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    #' @param id (`character(1)`)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">498</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">499</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    #' @return `shiny.tag`</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">500</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ui_filter_panel = function(id) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">783</td>
+                    <td class="num">501</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$div(</pre>
+                      <pre class="language-r">      ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">784</td>
+                    <td class="num">502</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          id = ns("filters_overview_contents"),</pre>
+                      <pre class="language-r">      tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">785</td>
+                    <td class="num">503</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          tags$div(</pre>
+                      <pre class="language-r">        id = ns(NULL), # used for hiding / showing</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">786</td>
+                    <td class="num">504</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            class = "teal_active_summary_filter_panel",</pre>
+                      <pre class="language-r">        include_css_files(pattern = "filter-panel"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">787</td>
+                    <td class="num">505</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            tableOutput(ns("table"))</pre>
+                      <pre class="language-r">        self$ui_overview(ns("overview")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">788</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">506</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">        self$ui_active(ns("active")),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">507</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        if (private$allow_add) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">508</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          self$ui_add(ns("add"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">789</td>
+                    <td class="num">509</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">790</td>
+                    <td class="num">510</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">791</td>
+                    <td class="num">511</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">792</td>
+                    <td class="num">512</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">793</td>
+                    <td class="num">513</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">794</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    #' Server function to display the number of records in the filtered and unfiltered</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">795</td>
+                    <td class="num">514</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' data.</pre>
+                      <pre class="language-r">    #' Server function for filter panel.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">796</td>
+                    <td class="num">515</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">797</td>
+                    <td class="num">516</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    #' @param id (`character(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">798</td>
+                    <td class="num">517</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    #'   `shiny` module instance id.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">799</td>
+                    <td class="num">518</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param active_datanames (`reactive`)</pre>
+                      <pre class="language-r">    #' @param active_datanames (`function` or `reactive`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">800</td>
+                    <td class="num">519</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   returning `datanames` that should be shown on the filter panel,</pre>
+                      <pre class="language-r">    #'   returning `datanames` that should be shown on the filter panel.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">801</td>
+                    <td class="num">520</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   must be a subset of the `datanames` argument provided to `ui_filter_panel`;</pre>
+                      <pre class="language-r">    #'   Must be a subset of the `datanames` in this `FilteredData`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">802</td>
+                    <td class="num">521</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   if the function returns `NULL` (as opposed to `character(0)`), the filter</pre>
+                      <pre class="language-r">    #'   If the function returns `NULL` (as opposed to `character(0)`),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">803</td>
+                    <td class="num">522</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   panel will be hidden.</pre>
+                      <pre class="language-r">    #'   the filter panel will be hidden.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">804</td>
+                    <td class="num">523</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    #' @return `NULL`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">805</td>
+                    <td class="num">524</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    srv_overview = function(id, active_datanames = self$datanames) {</pre>
+                      <pre class="language-r">    srv_filter_panel = function(id, active_datanames = self$datanames) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">806</td>
+                    <td class="num">525</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_class(active_datanames, "reactive")</pre>
+                      <pre class="language-r">      checkmate::assert_function(active_datanames)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">807</td>
+                    <td class="num">526</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      moduleServer(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">808</td>
+                    <td class="num">527</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
                       <pre class="language-r">        id = id,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">809</td>
+                    <td class="num">528</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
                       <pre class="language-r">        function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">810</td>
+                    <td class="num">529</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_trace("FilteredData$srv_filter_overview initializing")</pre>
+                      <pre class="language-r">          logger::log_trace("FilteredData$srv_filter_panel initializing")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">811</td>
+                    <td class="num">530</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">812</td>
+                    <td class="num">531</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          observeEvent(input$minimise_filter_overview, {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">813</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            shinyjs::toggle("filters_overview_contents")</pre>
+                      <pre class="language-r">          active_datanames_resolved &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">814</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">532</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            toggle_icon(session$ns("minimise_filter_overview"), c("fa-angle-right", "fa-angle-down"))</pre>
+                      <pre class="language-r">            checkmate::assert_subset(active_datanames(), self$datanames())</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">815</td>
+                    <td class="num">533</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            toggle_title(session$ns("minimise_filter_overview"), c("Restore panel", "Minimise Panel"))</pre>
+                      <pre class="language-r">            active_datanames()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">816</td>
+                    <td class="num">534</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">          })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">817</td>
+                    <td class="num">535</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">818</td>
+                    <td class="num">536</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          output$table &lt;- renderUI({</pre>
+                      <pre class="language-r">          self$srv_overview("overview", active_datanames_resolved)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">819</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">537</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            logger::log_trace("FilteredData$srv_filter_overview@1 updating counts")</pre>
+                      <pre class="language-r">          self$srv_active("active", active_datanames_resolved)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">820</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">538</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (length(active_datanames()) == 0) {</pre>
+                      <pre class="language-r">          if (private$allow_add) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">821</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">539</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              return(NULL)</pre>
+                      <pre class="language-r">            self$srv_add("add", active_datanames_resolved)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">822</td>
+                    <td class="num">540</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">823</td>
+                    <td class="num">541</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">824</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            datasets_df &lt;- self$get_filter_overview(datanames = active_datanames())</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">825</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">542</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_trace("FilteredData$srv_filter_panel initialized")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">826</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">543</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            attr(datasets_df$dataname, "label") &lt;- "Data Name"</pre>
+                      <pre class="language-r">          NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">827</td>
+                    <td class="num">544</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">828</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            if (!is.null(datasets_df$obs)) {</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">829</td>
+                    <td class="num">545</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              # some datasets (MAE colData) doesn't return obs column</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">830</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              datasets_df &lt;- transform(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">831</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                datasets_df,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">832</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                obs_str_summary = ifelse(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">833</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                  !is.na(obs),</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">834</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">546</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  sprintf("%s/%s", obs_filtered, obs),</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">835</td>
+                    <td class="num">547</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  ""</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">836</td>
+                    <td class="num">548</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">837</td>
+                    <td class="num">549</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r">    #' Server module responsible for displaying active filters.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">838</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">550</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              attr(datasets_df$obs_str_summary, "label") &lt;- "Obs"</pre>
+                      <pre class="language-r">    #' @param id (`character(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">839</td>
+                    <td class="num">551</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">840</td>
+                    <td class="num">552</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' @return `shiny.tag`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">841</td>
+                    <td class="num">553</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    ui_active = function(id) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">842</td>
+                    <td class="num">554</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (!is.null(datasets_df$subjects)) {</pre>
+                      <pre class="language-r">      ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">843</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">555</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              # some datasets (without keys) doesn't return subjects</pre>
+                      <pre class="language-r">      tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">844</td>
+                    <td class="num">556</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              datasets_df &lt;- transform(</pre>
+                      <pre class="language-r">        id = id, # not used, can be used to customize CSS behavior</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">845</td>
+                    <td class="num">557</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                datasets_df,</pre>
+                      <pre class="language-r">        class = "well",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">846</td>
+                    <td class="num">558</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                subjects_summary = ifelse(</pre>
+                      <pre class="language-r">        tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">847</td>
+                    <td class="num">559</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  !is.na(subjects),</pre>
+                      <pre class="language-r">          class = "filter-panel-active-header",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">848</td>
+                    <td class="num">560</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  sprintf("%s/%s", subjects_filtered, subjects),</pre>
+                      <pre class="language-r">          tags$span("Active Filter Variables", class = "text-primary mb-4"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">849</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                  ""</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">850</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">561</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                )</pre>
+                      <pre class="language-r">          private$ui_available_filters(ns("available_filters")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">851</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">562</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r">          actionLink(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">852</td>
+                    <td class="num">563</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              attr(datasets_df$subjects_summary, "label") &lt;- "Subjects"</pre>
+                      <pre class="language-r">            inputId = ns("minimise_filter_active"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">853</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">564</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">            label = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">854</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">565</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            icon = icon("angle-down", lib = "font-awesome"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">855</td>
+                    <td class="num">566</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            all_names &lt;- c("dataname", "obs_str_summary", "subjects_summary")</pre>
+                      <pre class="language-r">            title = "Minimise panel",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">856</td>
+                    <td class="num">567</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            datasets_df &lt;- datasets_df[, colnames(datasets_df) %in% all_names]</pre>
+                      <pre class="language-r">            class = "remove_all pull-right"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">857</td>
+                    <td class="num">568</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">858</td>
+                    <td class="num">569</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            body_html &lt;- apply(</pre>
+                      <pre class="language-r">          actionLink(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">859</td>
+                    <td class="num">570</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              datasets_df,</pre>
+                      <pre class="language-r">            inputId = ns("remove_all_filters"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">860</td>
+                    <td class="num">571</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              1,</pre>
+                      <pre class="language-r">            label = "",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">861</td>
+                    <td class="num">572</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              function(x) {</pre>
+                      <pre class="language-r">            icon("circle-xmark", lib = "font-awesome"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">862</td>
+                    <td class="num">573</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                tags$tr(</pre>
+                      <pre class="language-r">            title = "Remove active filters",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">863</td>
+                    <td class="num">574</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  tagList(</pre>
+                      <pre class="language-r">            class = "remove_all pull-right"</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">575</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">576</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">864</td>
+                    <td class="num">577</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    tags$td(</pre>
+                      <pre class="language-r">        tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">865</td>
+                    <td class="num">578</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      if (all(x[-1] == "")) {</pre>
+                      <pre class="language-r">          id = ns("filter_active_vars_contents"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">866</td>
+                    <td class="num">579</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        icon(</pre>
+                      <pre class="language-r">          tagList(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">867</td>
+                    <td class="num">580</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          name = "exclamation-triangle",</pre>
+                      <pre class="language-r">            lapply(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">868</td>
+                    <td class="num">581</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          title = "Unsupported dataset",</pre>
+                      <pre class="language-r">              self$datanames(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">869</td>
+                    <td class="num">582</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          `data-container` = "body",</pre>
+                      <pre class="language-r">              function(dataname) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">870</td>
+                    <td class="num">583</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          `data-toggle` = "popover",</pre>
+                      <pre class="language-r">                fdataset &lt;- private$get_filtered_dataset(dataname)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">871</td>
+                    <td class="num">584</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          `data-content` = "object not supported by the filter panel"</pre>
+                      <pre class="language-r">                fdataset$ui_active(id = ns(dataname))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">872</td>
+                    <td class="num">585</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        )</pre>
+                      <pre class="language-r">              }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">873</td>
+                    <td class="num">586</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">874</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">587</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      x[1]</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">875</td>
+                    <td class="num">588</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">876</td>
+                    <td class="num">589</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    lapply(x[-1], tags$td)</pre>
+                      <pre class="language-r">        shinyjs::hidden(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">590</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">591</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            id = ns("filters_active_count"),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">592</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            textOutput(ns("teal_filters_count"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">877</td>
+                    <td class="num">593</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  )</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">878</td>
+                    <td class="num">594</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                )</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">879</td>
+                    <td class="num">595</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              }</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">880</td>
+                    <td class="num">596</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">881</td>
+                    <td class="num">597</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">882</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">598</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            header_labels &lt;- vapply(</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">883</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">599</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              seq_along(datasets_df),</pre>
+                      <pre class="language-r">    #' Server module responsible for displaying active filters.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">884</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">600</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              function(i) {</pre>
+                      <pre class="language-r">    #' @param id (`character(1)`)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">885</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">601</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                label &lt;- attr(datasets_df[[i]], "label")</pre>
+                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">886</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">602</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                ifelse(!is.null(label), label, names(datasets_df)[[i]])</pre>
+                      <pre class="language-r">    #' @param active_datanames (`reactive`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">887</td>
+                    <td class="num">603</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              },</pre>
+                      <pre class="language-r">    #'   defining subset of `self$datanames()` to be displayed.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">888</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">604</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              character(1)</pre>
+                      <pre class="language-r">    #' @return `NULL`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">889</td>
+                    <td class="num">605</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">    srv_active = function(id, active_datanames = self$datanames) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">890</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">606</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            header_html &lt;- tags$tr(tagList(lapply(header_labels, tags$td)))</pre>
+                      <pre class="language-r">      checkmate::assert_function(active_datanames)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">607</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      moduleServer(id, function(input, output, session) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">608</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        logger::log_trace("FilteredData$srv_active initializing")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">891</td>
+                    <td class="num">609</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">892</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">610</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            table_html &lt;- tags$table(</pre>
+                      <pre class="language-r">        private$srv_available_filters("available_filters")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">893</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">611</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              class = "table custom-table",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">894</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">612</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              tags$thead(header_html),</pre>
+                      <pre class="language-r">        observeEvent(input$minimise_filter_active, {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">895</td>
+                    <td class="num">613</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              tags$tbody(body_html)</pre>
+                      <pre class="language-r">          shinyjs::toggle("filter_active_vars_contents")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">896</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">614</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">          shinyjs::toggle("filters_active_count")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">897</td>
+                    <td class="num">615</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            logger::log_trace("FilteredData$srv_filter_overview@1 updated counts")</pre>
+                      <pre class="language-r">          toggle_icon(session$ns("minimise_filter_active"), c("fa-angle-right", "fa-angle-down"))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">898</td>
+                    <td class="num">616</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            table_html</pre>
+                      <pre class="language-r">          toggle_title(session$ns("minimise_filter_active"), c("Restore panel", "Minimise Panel"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">899</td>
+                    <td class="num">617</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          })</pre>
+                      <pre class="language-r">        })</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">618</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">900</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">619</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_trace("FilteredData$srv_filter_overview initialized")</pre>
+                      <pre class="language-r">        observeEvent(private$get_filter_count(), {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">901</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">620</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          NULL</pre>
+                      <pre class="language-r">          shinyjs::toggle("remove_all_filters", condition = private$get_filter_count() != 0)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">902</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">621</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">          shinyjs::show("filter_active_vars_contents")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">903</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">622</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">          shinyjs::hide("filters_active_count")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">904</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">623</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">          toggle_icon(session$ns("minimise_filter_active"), c("fa-angle-right", "fa-angle-down"), TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">905</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">624</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ),</pre>
+                      <pre class="language-r">          toggle_title(session$ns("minimise_filter_active"), c("Restore panel", "Minimise Panel"), TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">906</td>
+                    <td class="num">625</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">907</td>
+                    <td class="num">626</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # private members ----</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">908</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">627</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  private = list(</pre>
+                      <pre class="language-r">        observeEvent(active_datanames(), {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">909</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">628</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # selectively hide / show to only show `active_datanames` out of all datanames</pre>
+                      <pre class="language-r">          lapply(self$datanames(), function(dataname) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">910</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">629</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            if (dataname %in% active_datanames()) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">911</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">630</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # private attributes ----</pre>
+                      <pre class="language-r">              shinyjs::show(dataname)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">912</td>
+                    <td class="num">631</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    filtered_datasets = list(),</pre>
+                      <pre class="language-r">            } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">913</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">632</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">              shinyjs::hide(dataname)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">914</td>
+                    <td class="num">633</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # activate/deactivate filter panel</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">915</td>
+                    <td class="num">634</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    filter_panel_active = TRUE,</pre>
+                      <pre class="language-r">          })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">916</td>
+                    <td class="num">635</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">917</td>
+                    <td class="num">636</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # `reactive` containing teal_slices that can be selected; only active in module-specific mode</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">918</td>
+                    <td class="num">637</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    available_teal_slices = NULL,</pre>
+                      <pre class="language-r">        # should not use for-loop as variables are otherwise only bound by reference</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">919</td>
+                    <td class="num">638</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        # and last dataname would be used</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">920</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">639</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # keys used for joining/filtering data a join_keys object (see teal.data)</pre>
+                      <pre class="language-r">        lapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">921</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">640</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    join_keys = NULL,</pre>
+                      <pre class="language-r">          self$datanames(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">922</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">641</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          function(dataname) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">923</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">642</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # flag specifying whether the user may add filters</pre>
+                      <pre class="language-r">            fdataset &lt;- private$get_filtered_dataset(dataname)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">924</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">643</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    allow_add = TRUE,</pre>
+                      <pre class="language-r">            fdataset$srv_active(id = dataname)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">925</td>
+                    <td class="num">644</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">926</td>
+                    <td class="num">645</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # private methods ----</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">927</td>
+                    <td class="num">646</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">928</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">647</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @description</pre>
+                      <pre class="language-r">        output$teal_filters_count &lt;- renderText({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">929</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">648</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Gets `FilteredDataset` object which contains all information</pre>
+                      <pre class="language-r">          n_filters_active &lt;- private$get_filter_count()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">930</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    # pertaining to the specified dataset.</pre>
+                  <tr class="covered">
+                    <td class="num">649</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          req(n_filters_active &gt; 0L)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">931</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">650</td>
+                    <td class="coverage">2<em>x</em></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">932</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">651</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @param dataname (`character(1)`)</pre>
+                      <pre class="language-r">            "%s filter%s applied across datasets",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">933</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">652</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #   name of the dataset</pre>
+                      <pre class="language-r">            n_filters_active,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">934</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">653</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #</pre>
+                      <pre class="language-r">            ifelse(n_filters_active == 1, "", "s")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">935</td>
+                    <td class="num">654</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @return `FilteredDataset` object or list of `FilteredDataset`s</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">936</td>
+                    <td class="num">655</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #</pre>
+                      <pre class="language-r">        })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">937</td>
+                    <td class="num">656</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_filtered_dataset = function(dataname = character(0)) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">938</td>
-                    <td class="coverage">147<em>x</em></td>
+                    <td class="num">657</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(dataname) == 0) {</pre>
+                      <pre class="language-r">        observeEvent(input$remove_all_filters, {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">939</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">658</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$filtered_datasets</pre>
+                      <pre class="language-r">          logger::log_trace("FilteredData$srv_filter_panel@1 removing all non-anchored filters")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">940</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">659</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">          self$clear_filter_states()</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">941</td>
-                    <td class="coverage">147<em>x</em></td>
+                    <td class="num">660</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$filtered_datasets[[dataname]]</pre>
+                      <pre class="language-r">          logger::log_trace("FilteredData$srv_filter_panel@1 removed all non-anchored filters")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">942</td>
+                    <td class="num">661</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">        })</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">943</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">662</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">        logger::log_trace("FilteredData$srv_active initialized")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">944</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">663</td>
+                    <td class="coverage">3<em>x</em></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">945</td>
+                    <td class="num">664</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # we implement these functions as checks rather than returning logicals so they can</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">946</td>
+                    <td class="num">665</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # give informative error messages immediately</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">947</td>
+                    <td class="num">666</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">948</td>
+                    <td class="num">667</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @description</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">949</td>
+                    <td class="num">668</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Gets the number of active `FilterState` objects in all `FilterStates`</pre>
+                      <pre class="language-r">    #' Server module responsible for displaying drop-downs with variables to add a filter.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">950</td>
+                    <td class="num">669</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # in all `FilteredDataset`s in this `FilteredData` object.</pre>
+                      <pre class="language-r">    #' @param id (`character(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">951</td>
+                    <td class="num">670</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @return `integer(1)`</pre>
+                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">952</td>
+                    <td class="num">671</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_filter_count = function() {</pre>
+                      <pre class="language-r">    #' @return `shiny.tag`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">953</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">672</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      length(self$get_filter_state())</pre>
+                      <pre class="language-r">    ui_add = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">954</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">673</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">955</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">674</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">956</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">675</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @description</pre>
+                      <pre class="language-r">        id = id, # not used, can be used to customize CSS behavior</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">957</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">676</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Activate available filters.</pre>
+                      <pre class="language-r">        class = "well",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">958</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">677</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Module is composed from plus button and dropdown menu. Menu is shown when</pre>
+                      <pre class="language-r">        tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">959</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">678</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # the button is clicked. Menu contains available/active filters list</pre>
+                      <pre class="language-r">          class = "row",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">960</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">679</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # passed via `set_available_teal_slice`.</pre>
+                      <pre class="language-r">          tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">961</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">680</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_available_filters = function(id) {</pre>
+                      <pre class="language-r">            class = "col-sm-9",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">962</td>
+                    <td class="num">681</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ns &lt;- NS(id)</pre>
+                      <pre class="language-r">            tags$label("Add Filter Variables", class = "text-primary mb-4")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">963</td>
+                    <td class="num">682</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">964</td>
+                    <td class="num">683</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      active_slices_id &lt;- isolate(vapply(self$get_filter_state(), `[[`, character(1), "id"))</pre>
+                      <pre class="language-r">          tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">965</td>
+                    <td class="num">684</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tags$div(</pre>
+                      <pre class="language-r">            class = "col-sm-3",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">966</td>
+                    <td class="num">685</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = ns("available_menu"),</pre>
+                      <pre class="language-r">            actionLink(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">967</td>
+                    <td class="num">686</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shinyWidgets::dropMenu(</pre>
+                      <pre class="language-r">              ns("minimise_filter_add_vars"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">968</td>
+                    <td class="num">687</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          actionLink(</pre>
+                      <pre class="language-r">              label = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">969</td>
+                    <td class="num">688</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ns("show"),</pre>
+                      <pre class="language-r">              icon = icon("angle-down", lib = "font-awesome"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">970</td>
+                    <td class="num">689</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            label = NULL,</pre>
+                      <pre class="language-r">              title = "Minimise panel",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">971</td>
+                    <td class="num">690</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            icon = icon("plus", lib = "font-awesome"),</pre>
+                      <pre class="language-r">              class = "remove pull-right"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">972</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">691</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            title = "Available filters",</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">973</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">692</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            class = "remove pull-right"</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">974</td>
+                    <td class="num">693</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">975</td>
+                    <td class="num">694</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          tags$div(</pre>
+                      <pre class="language-r">        tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">976</td>
+                    <td class="num">695</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            class = "menu-content",</pre>
+                      <pre class="language-r">          id = ns("filter_add_vars_contents"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">977</td>
+                    <td class="num">696</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            shinycssloaders::withSpinner(</pre>
+                      <pre class="language-r">          tagList(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">978</td>
+                    <td class="num">697</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              uiOutput(ns("checkbox")),</pre>
+                      <pre class="language-r">            lapply(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">979</td>
+                    <td class="num">698</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              type = 4,</pre>
+                      <pre class="language-r">              self$datanames(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">980</td>
+                    <td class="num">699</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              size = 0.25</pre>
+                      <pre class="language-r">              function(dataname) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">700</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                fdataset &lt;- private$get_filtered_dataset(dataname)</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">701</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                tags$span(id = ns(dataname), fdataset$ui_add(ns(dataname)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">981</td>
+                    <td class="num">702</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">703</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">982</td>
+                    <td class="num">704</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">983</td>
+                    <td class="num">705</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">984</td>
+                    <td class="num">706</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">985</td>
+                    <td class="num">707</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">986</td>
+                    <td class="num">708</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">987</td>
+                    <td class="num">709</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Activate available filters. When a filter is selected or removed,</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">988</td>
+                    <td class="num">710</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # `set_filter_state` or `remove_filter_state` is executed for</pre>
+                      <pre class="language-r">    #' Server module responsible for displaying drop-downs with variables to add a filter.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">989</td>
+                    <td class="num">711</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # the appropriate filter state id.</pre>
+                      <pre class="language-r">    #' @param id (`character(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">990</td>
+                    <td class="num">712</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    srv_available_filters = function(id) {</pre>
+                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">713</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    #' @param active_datanames (`reactive`)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">714</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    #'   defining subset of `self$datanames()` to be displayed.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">715</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    #' @return `NULL`.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">716</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    srv_add = function(id, active_datanames = reactive(self$datanames())) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">991</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">717</td>
+                    <td class="coverage">1<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(active_datanames, "reactive")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">992</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">718</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        slices_available &lt;- self$get_available_teal_slices()</pre>
+                      <pre class="language-r">      moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">993</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">719</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        slices_interactive &lt;- reactive(</pre>
+                      <pre class="language-r">        logger::log_trace("FilteredData$srv_add initializing")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">994</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">720</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          Filter(function(slice) isFALSE(slice$fixed), slices_available())</pre>
+                      <pre class="language-r">        observeEvent(input$minimise_filter_add_vars, {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">995</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">721</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">          shinyjs::toggle("filter_add_vars_contents")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">996</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">722</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        slices_fixed &lt;- reactive(</pre>
+                      <pre class="language-r">          toggle_icon(session$ns("minimise_filter_add_vars"), c("fa-angle-right", "fa-angle-down"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">997</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">723</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          Filter(function(slice) isTRUE(slice$fixed), slices_available())</pre>
+                      <pre class="language-r">          toggle_title(session$ns("minimise_filter_add_vars"), c("Restore panel", "Minimise Panel"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">998</td>
+                    <td class="num">724</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">999</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">725</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        available_slices_id &lt;- reactive(vapply(slices_available(), `[[`, character(1), "id"))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1000</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">726</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        active_slices_id &lt;- reactive(vapply(self$get_filter_state(), `[[`, character(1), "id"))</pre>
+                      <pre class="language-r">        observeEvent(active_datanames(), {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1001</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">727</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        duplicated_slice_references &lt;- reactive({</pre>
+                      <pre class="language-r">          lapply(self$datanames(), function(dataname) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1002</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">728</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # slice refers to a particular column</pre>
+                      <pre class="language-r">            if (dataname %in% active_datanames()) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1003</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">729</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          slice_reference &lt;- vapply(slices_available(), get_default_slice_id, character(1))</pre>
+                      <pre class="language-r">              shinyjs::show(dataname)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1004</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">730</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          is_duplicated_reference &lt;- duplicated(slice_reference) | duplicated(slice_reference, fromLast = TRUE)</pre>
+                      <pre class="language-r">            } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1005</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">731</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          is_active &lt;- available_slices_id() %in% active_slices_id()</pre>
+                      <pre class="language-r">              shinyjs::hide(dataname)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1006</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">732</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          is_not_expr &lt;- !vapply(slices_available(), inherits, logical(1), "teal_slice_expr")</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1007</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">733</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          slice_reference[is_duplicated_reference &amp; is_active &amp; is_not_expr]</pre>
+                      <pre class="language-r">          })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1008</td>
+                    <td class="num">734</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">        })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1009</td>
+                    <td class="num">735</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1010</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">736</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        checkbox_group_element &lt;- function(name, value, label, checked, disabled = FALSE) {</pre>
+                      <pre class="language-r">        # should not use for-loop as variables are otherwise only bound by reference</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1011</td>
-                    <td class="coverage">35<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">737</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          tags$div(</pre>
+                      <pre class="language-r">        # and last dataname would be used</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1012</td>
-                    <td class="coverage">35<em>x</em></td>
+                    <td class="num">738</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            class = "checkbox available-filters",</pre>
+                      <pre class="language-r">        lapply(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1013</td>
-                    <td class="coverage">35<em>x</em></td>
+                    <td class="num">739</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            tags$label(</pre>
+                      <pre class="language-r">          self$datanames(),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1014</td>
-                    <td class="coverage">35<em>x</em></td>
+                    <td class="num">740</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              tags$input(</pre>
+                      <pre class="language-r">          function(dataname) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1015</td>
-                    <td class="coverage">35<em>x</em></td>
+                    <td class="num">741</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                type = "checkbox",</pre>
+                      <pre class="language-r">            fdataset &lt;- private$get_filtered_dataset(dataname)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1016</td>
-                    <td class="coverage">35<em>x</em></td>
+                    <td class="num">742</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                name = name,</pre>
+                      <pre class="language-r">            fdataset$srv_add(id = dataname)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1017</td>
-                    <td class="coverage">35<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">743</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                value = value,</pre>
+                      <pre class="language-r">          }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">744</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1018</td>
-                    <td class="coverage">35<em>x</em></td>
+                    <td class="num">745</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                checked = checked,</pre>
+                      <pre class="language-r">        logger::log_trace("FilteredData$srv_filter_panel initialized")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1019</td>
-                    <td class="coverage">35<em>x</em></td>
+                    <td class="num">746</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                disabled = if (disabled) "disabled"</pre>
+                      <pre class="language-r">        NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1020</td>
+                    <td class="num">747</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">1021</td>
-                    <td class="coverage">35<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">748</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              tags$span(label, disabled = if (disabled) disabled)</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1022</td>
+                    <td class="num">749</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1023</td>
+                    <td class="num">750</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">1024</td>
+                    <td class="num">751</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">    #' Creates the UI definition for the module showing counts for each dataset</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1025</td>
+                    <td class="num">752</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' contrasting the filtered to the full unfiltered dataset.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1026</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">753</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        output$checkbox &lt;- renderUI({</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1027</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">754</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          checkbox &lt;- checkboxGroupInput(</pre>
+                      <pre class="language-r">    #' Per dataset, it displays</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1028</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">755</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            session$ns("available_slices_id"),</pre>
+                      <pre class="language-r">    #' the number of rows/observations in each dataset,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1029</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">756</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            label = NULL,</pre>
+                      <pre class="language-r">    #' the number of unique subjects.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1030</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">757</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            choices = NULL,</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1031</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">758</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            selected = NULL</pre>
+                      <pre class="language-r">    #' @param id (`character(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1032</td>
+                    <td class="num">759</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1033</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">760</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          active_slices_ids &lt;- active_slices_id()</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1034</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">761</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          duplicated_slice_refs &lt;- duplicated_slice_references()</pre>
+                      <pre class="language-r">    ui_overview = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1035</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">762</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="covered">
-                    <td class="num">1036</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">763</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          checkbox_group_slice &lt;- function(slice) {</pre>
+                      <pre class="language-r">      tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1037</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">764</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            # we need to isolate changes in the fields of the slice (teal_slice)</pre>
+                      <pre class="language-r">        id = id, # not used, can be used to customize CSS behavior</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1038</td>
-                    <td class="coverage">35<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">765</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            isolate({</pre>
+                      <pre class="language-r">        class = "well",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1039</td>
-                    <td class="coverage">35<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">766</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              checkbox_group_element(</pre>
+                      <pre class="language-r">        tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1040</td>
-                    <td class="coverage">35<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">767</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                name = session$ns("available_slices_id"),</pre>
+                      <pre class="language-r">          class = "row",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1041</td>
-                    <td class="coverage">35<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">768</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                value = slice$id,</pre>
+                      <pre class="language-r">          tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1042</td>
-                    <td class="coverage">35<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">769</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                label = slice$id,</pre>
+                      <pre class="language-r">            class = "col-sm-9",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1043</td>
-                    <td class="coverage">35<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">770</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                checked = if (slice$id %in% active_slices_ids) "checked",</pre>
+                      <pre class="language-r">            tags$label("Active Filter Summary", class = "text-primary mb-4")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1044</td>
-                    <td class="coverage">35<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">771</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                disabled = slice$anchored ||</pre>
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1045</td>
-                    <td class="coverage">35<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">772</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  get_default_slice_id(slice) %in% duplicated_slice_refs &amp;&amp;</pre>
+                      <pre class="language-r">          tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1046</td>
-                    <td class="coverage">35<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">773</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    !slice$id %in% active_slices_ids</pre>
+                      <pre class="language-r">            class = "col-sm-3",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1047</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">774</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r">            actionLink(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1048</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">775</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            })</pre>
+                      <pre class="language-r">              ns("minimise_filter_overview"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1049</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">776</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">              label = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1050</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">777</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">              icon = icon("angle-down", lib = "font-awesome"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1051</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">778</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          interactive_choice_mock &lt;- lapply(slices_interactive(), checkbox_group_slice)</pre>
+                      <pre class="language-r">              title = "Minimise panel",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1052</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">779</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          non_interactive_choice_mock &lt;- lapply(slices_fixed(), checkbox_group_slice)</pre>
+                      <pre class="language-r">              class = "remove pull-right"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1053</td>
+                    <td class="num">780</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">1054</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">781</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          htmltools::tagInsertChildren(</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1055</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">782</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            checkbox,</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1056</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">783</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            tags$br(),</pre>
+                      <pre class="language-r">        tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1057</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">784</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (length(non_interactive_choice_mock)) tags$strong("Fixed filters"),</pre>
+                      <pre class="language-r">          id = ns("filters_overview_contents"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1058</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">785</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            non_interactive_choice_mock,</pre>
+                      <pre class="language-r">          tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1059</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">786</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (length(interactive_choice_mock)) tags$strong("Interactive filters"),</pre>
+                      <pre class="language-r">            class = "teal_active_summary_filter_panel",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1060</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">787</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            interactive_choice_mock,</pre>
+                      <pre class="language-r">            tableOutput(ns("table"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1061</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">788</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            .cssSelector = "div.shiny-options-group",</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1062</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">789</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            after = 0</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1063</td>
+                    <td class="num">790</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1064</td>
+                    <td class="num">791</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        })</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1065</td>
+                    <td class="num">792</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1066</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">793</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        observeEvent(input$available_slices_id, ignoreNULL = FALSE, ignoreInit = TRUE, {</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1067</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">794</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          new_slices_id &lt;- setdiff(input$available_slices_id, active_slices_id())</pre>
+                      <pre class="language-r">    #' Server function to display the number of records in the filtered and unfiltered</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1068</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">795</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          removed_slices_id &lt;- setdiff(active_slices_id(), input$available_slices_id)</pre>
+                      <pre class="language-r">    #' data.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1069</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">796</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (length(new_slices_id)) {</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1070</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">797</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            new_teal_slices &lt;- Filter(</pre>
+                      <pre class="language-r">    #' @param id (`character(1)`)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1071</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">798</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              function(slice) slice$id %in% new_slices_id,</pre>
+                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1072</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">799</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              private$available_teal_slices()</pre>
+                      <pre class="language-r">    #' @param active_datanames (`reactive`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1073</td>
+                    <td class="num">800</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">    #'   returning `datanames` that should be shown on the filter panel,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1074</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">801</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            self$set_filter_state(new_teal_slices)</pre>
+                      <pre class="language-r">    #'   must be a subset of the `datanames` argument provided to `ui_filter_panel`;</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1075</td>
+                    <td class="num">802</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">    #'   if the function returns `NULL` (as opposed to `character(0)`), the filter</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1076</td>
+                    <td class="num">803</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #'   panel will be hidden.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1077</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">804</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (length(removed_slices_id)) {</pre>
+                      <pre class="language-r">    #' @return `NULL`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1078</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">805</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            removed_teal_slices &lt;- Filter(</pre>
+                      <pre class="language-r">    srv_overview = function(id, active_datanames = self$datanames) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1079</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">806</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              function(slice) slice$id %in% removed_slices_id,</pre>
+                      <pre class="language-r">      checkmate::assert_class(active_datanames, "reactive")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1080</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              self$get_filter_state()</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">1081</td>
-                    <td class="coverage"></td>
+                    <td class="num">807</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">      moduleServer(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1082</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">808</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            self$remove_filter_state(removed_teal_slices)</pre>
+                      <pre class="language-r">        id = id,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1083</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">809</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">        function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1084</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">810</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_trace("FilteredData$srv_filter_overview initializing")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1085</td>
+                    <td class="num">811</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1086</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        observeEvent(private$available_teal_slices(), ignoreNULL = FALSE, {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">1087</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">812</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (length(private$available_teal_slices())) {</pre>
+                      <pre class="language-r">          observeEvent(input$minimise_filter_overview, {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1088</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">813</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            shinyjs::show("available_menu")</pre>
+                      <pre class="language-r">            shinyjs::toggle("filters_overview_contents")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1089</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">814</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          } else {</pre>
+                      <pre class="language-r">            toggle_icon(session$ns("minimise_filter_overview"), c("fa-angle-right", "fa-angle-down"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1090</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">815</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            shinyjs::hide("available_menu")</pre>
+                      <pre class="language-r">            toggle_title(session$ns("minimise_filter_overview"), c("Restore panel", "Minimise Panel"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1091</td>
+                    <td class="num">816</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">          })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1092</td>
+                    <td class="num">817</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        })</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1093</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">818</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">          output$table &lt;- renderUI({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1094</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">819</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">            logger::log_trace("FilteredData$srv_filter_overview@1 updating counts")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1095</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">820</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">            if (length(active_datanames()) == 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1096</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">821</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">              return(NULL)</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/FilterStateRange.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">822</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># RangeFilterState ------</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">823</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="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">824</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name RangeFilterState</pre>
+                      <pre class="language-r">            datasets_df &lt;- self$get_filter_overview(datanames = active_datanames())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">825</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @docType class</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">826</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            attr(datasets_df$dataname, "label") &lt;- "Data Name"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">827</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @title `FilterState` object for numeric data</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">828</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            if (!is.null(datasets_df$obs)) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">829</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description Manages choosing a numeric range.</pre>
+                      <pre class="language-r">              # some datasets (MAE colData) doesn't return obs column</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">830</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">              datasets_df &lt;- transform(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">831</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">                datasets_df,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">832</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # use non-exported function from teal.slice</pre>
+                      <pre class="language-r">                obs_str_summary = ifelse(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">833</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' include_css_files &lt;- getFromNamespace("include_css_files", "teal.slice")</pre>
+                      <pre class="language-r">                  !is.na(obs),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">834</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' include_js_files &lt;- getFromNamespace("include_js_files", "teal.slice")</pre>
+                      <pre class="language-r">                  sprintf("%s/%s", obs_filtered, obs),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">835</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' RangeFilterState &lt;- getFromNamespace("RangeFilterState", "teal.slice")</pre>
+                      <pre class="language-r">                  ""</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">836</td>
                     <td class="coverage"></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">837</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(shiny)</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">838</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">              attr(datasets_df$obs_str_summary, "label") &lt;- "Obs"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">839</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' filter_state &lt;- RangeFilterState$new(</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">840</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   x = c(NA, Inf, seq(1:10)),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">841</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   slice = teal_slice(varname = "x", dataname = "data")</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">842</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">            if (!is.null(datasets_df$subjects)) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">843</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' isolate(filter_state$get_call())</pre>
+                      <pre class="language-r">              # some datasets (without keys) doesn't return subjects</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">844</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' filter_state$set_state(</pre>
+                      <pre class="language-r">              datasets_df &lt;- transform(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">845</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   teal_slice(</pre>
+                      <pre class="language-r">                datasets_df,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">846</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     dataname = "data",</pre>
+                      <pre class="language-r">                subjects_summary = ifelse(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">847</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     varname = "x",</pre>
+                      <pre class="language-r">                  !is.na(subjects),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">848</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     selected = c(3L, 8L),</pre>
+                      <pre class="language-r">                  sprintf("%s/%s", subjects_filtered, subjects),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">849</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     keep_na = TRUE,</pre>
+                      <pre class="language-r">                  ""</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">850</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     keep_inf = TRUE</pre>
+                      <pre class="language-r">                )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">851</td>
                     <td class="coverage"></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="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">852</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">              attr(datasets_df$subjects_summary, "label") &lt;- "Subjects"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">853</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' isolate(filter_state$get_call())</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">854</td>
                     <td class="coverage"></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="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">855</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # working filter in an app</pre>
+                      <pre class="language-r">            all_names &lt;- c("dataname", "obs_str_summary", "subjects_summary")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">856</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(shinyjs)</pre>
+                      <pre class="language-r">            datasets_df &lt;- datasets_df[, colnames(datasets_df) %in% all_names]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">857</td>
                     <td class="coverage"></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>
+                  <tr class="missed">
+                    <td class="num">858</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data_range &lt;- c(runif(100, 0, 1), NA, Inf)</pre>
+                      <pre class="language-r">            body_html &lt;- apply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">859</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' fs &lt;- RangeFilterState$new(</pre>
+                      <pre class="language-r">              datasets_df,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">39</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">860</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   x = data_range,</pre>
+                      <pre class="language-r">              1,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">40</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">861</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   slice = teal_slice(</pre>
+                      <pre class="language-r">              function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">41</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">862</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     dataname = "data",</pre>
+                      <pre class="language-r">                tags$tr(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">42</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">863</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     varname = "x",</pre>
+                      <pre class="language-r">                  tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">43</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">864</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     selected = c(0.15, 0.93),</pre>
+                      <pre class="language-r">                    tags$td(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">865</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     keep_na = TRUE,</pre>
+                      <pre class="language-r">                      if (all(x[-1] == "")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">45</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">866</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     keep_inf = TRUE</pre>
+                      <pre class="language-r">                        icon(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">46</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">867</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">                          name = "exclamation-triangle",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">47</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">868</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">                          title = "Unsupported dataset",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">48</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">869</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                          `data-container` = "body",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">870</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
+                      <pre class="language-r">                          `data-toggle` = "popover",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">871</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   useShinyjs(),</pre>
+                      <pre class="language-r">                          `data-content` = "object not supported by the filter panel"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">872</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   include_css_files(pattern = "filter-panel"),</pre>
+                      <pre class="language-r">                        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">873</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   include_js_files(pattern = "count-bar-labels"),</pre>
+                      <pre class="language-r">                      },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">874</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   column(4, tags$div(</pre>
+                      <pre class="language-r">                      x[1]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">875</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tags$h4("RangeFilterState"),</pre>
+                      <pre class="language-r">                    ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">55</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">876</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     fs$ui("fs")</pre>
+                      <pre class="language-r">                    lapply(x[-1], tags$td)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">877</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )),</pre>
+                      <pre class="language-r">                  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">878</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   column(4, tags$div(</pre>
+                      <pre class="language-r">                )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">879</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     id = "outputs", # div id is needed for toggling the element</pre>
+                      <pre class="language-r">              }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">880</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tags$h4("Condition (i.e. call)"), # display the condition call generated by this FilterState</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">881</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     textOutput("condition_range"), tags$br(),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">61</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">882</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tags$h4("Unformatted state"), # display raw filter state</pre>
+                      <pre class="language-r">            header_labels &lt;- vapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">62</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">883</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     textOutput("unformatted_range"), tags$br(),</pre>
+                      <pre class="language-r">              seq_along(datasets_df),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">63</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">884</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tags$h4("Formatted state"), # display human readable filter state</pre>
+                      <pre class="language-r">              function(i) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">64</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">885</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     textOutput("formatted_range"), tags$br()</pre>
+                      <pre class="language-r">                label &lt;- attr(datasets_df[[i]], "label")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">65</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">886</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )),</pre>
+                      <pre class="language-r">                ifelse(!is.null(label), label, names(datasets_df)[[i]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">887</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   column(4, tags$div(</pre>
+                      <pre class="language-r">              },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">67</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">888</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tags$h4("Programmatic filter control"),</pre>
+                      <pre class="language-r">              character(1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">889</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     actionButton("button1_range", "set drop NA", width = "100%"), tags$br(),</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">69</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">890</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     actionButton("button2_range", "set keep NA", width = "100%"), tags$br(),</pre>
+                      <pre class="language-r">            header_html &lt;- tags$tr(tagList(lapply(header_labels, tags$td)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">891</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     actionButton("button3_range", "set drop Inf", width = "100%"), tags$br(),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">71</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">892</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     actionButton("button4_range", "set keep Inf", width = "100%"), tags$br(),</pre>
+                      <pre class="language-r">            table_html &lt;- tags$table(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">72</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">893</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     actionButton("button5_range", "set a range", width = "100%"), tags$br(),</pre>
+                      <pre class="language-r">              class = "table custom-table",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">73</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">894</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     actionButton("button6_range", "set full range", width = "100%"), tags$br(),</pre>
+                      <pre class="language-r">              tags$thead(header_html),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">74</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">895</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     actionButton("button0_range", "set initial state", width = "100%"), tags$br()</pre>
+                      <pre class="language-r">              tags$tbody(body_html)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">896</td>
                     <td class="coverage"></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="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">897</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">            logger::log_trace("FilteredData$srv_filter_overview@1 updated counts")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">77</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">898</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            table_html</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">899</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">          })</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">79</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">900</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   fs$server("fs")</pre>
+                      <pre class="language-r">          logger::log_trace("FilteredData$srv_filter_overview initialized")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">80</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">901</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   output$condition_range &lt;- renderPrint(fs$get_call())</pre>
+                      <pre class="language-r">          NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">902</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   output$formatted_range &lt;- renderText(fs$format())</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">903</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   output$unformatted_range &lt;- renderPrint(fs$get_state())</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">904</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   # modify filter state programmatically</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">905</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   observeEvent(</pre>
+                      <pre class="language-r">  ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">906</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     input$button1_range,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">907</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     fs$set_state(teal_slice(dataname = "data", varname = "x", keep_na = FALSE))</pre>
+                      <pre class="language-r">  # private members ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">908</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">  private = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">909</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   observeEvent(</pre>
+                      <pre class="language-r">    # selectively hide / show to only show `active_datanames` out of all datanames</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">910</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     input$button2_range,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">911</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     fs$set_state(teal_slice(dataname = "data", varname = "x", keep_na = TRUE))</pre>
+                      <pre class="language-r">    # private attributes ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">912</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">    filtered_datasets = list(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">913</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   observeEvent(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">914</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     input$button3_range,</pre>
+                      <pre class="language-r">    # activate/deactivate filter panel</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">915</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     fs$set_state(teal_slice(dataname = "data", varname = "x", keep_inf = FALSE))</pre>
+                      <pre class="language-r">    filter_panel_active = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">916</td>
                     <td class="coverage"></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">917</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   observeEvent(</pre>
+                      <pre class="language-r">    # `reactive` containing teal_slices that can be selected; only active in module-specific mode</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">918</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     input$button4_range,</pre>
+                      <pre class="language-r">    available_teal_slices = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">919</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     fs$set_state(teal_slice(dataname = "data", varname = "x", keep_inf = TRUE))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">920</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">    # keys used for joining/filtering data a join_keys object (see teal.data)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">921</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   observeEvent(</pre>
+                      <pre class="language-r">    join_keys = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">922</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     input$button5_range,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">923</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     fs$set_state(</pre>
+                      <pre class="language-r">    # flag specifying whether the user may add filters</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">924</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       teal_slice(dataname = "data", varname = "x", selected = c(0.2, 0.74))</pre>
+                      <pre class="language-r">    allow_add = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">925</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">926</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">106</td>
+                    <td class="num">927</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   observeEvent(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">928</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     input$button6_range,</pre>
+                      <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">929</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     fs$set_state(teal_slice(dataname = "data", varname = "x", selected = c(0, 1)))</pre>
+                      <pre class="language-r">    # Gets `FilteredDataset` object which contains all information</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">930</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">    # pertaining to the specified dataset.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">931</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   observeEvent(</pre>
+                      <pre class="language-r">    #</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">932</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     input$button0_range,</pre>
+                      <pre class="language-r">    # @param dataname (`character(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">933</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     fs$set_state(</pre>
+                      <pre class="language-r">    #   name of the dataset</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">934</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       teal_slice("data", "variable", selected = c(0.15, 0.93), keep_na = TRUE, keep_inf = TRUE)</pre>
+                      <pre class="language-r">    #</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">935</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">    # @return `FilteredDataset` object or list of `FilteredDataset`s</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">936</td>
                     <td class="coverage"></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="num">937</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">    get_filtered_dataset = function(dataname = character(0)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">117</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">938</td>
+                    <td class="coverage">147<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      if (length(dataname) == 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">118</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">939</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">        private$filtered_datasets</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">940</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">120</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">941</td>
+                    <td class="coverage">147<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">        private$filtered_datasets[[dataname]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">942</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">122</td>
+                    <td class="num">943</td>
                     <td class="coverage"></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">944</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">RangeFilterState &lt;- R6::R6Class( # nolint</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">945</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  "RangeFilterState",</pre>
+                      <pre class="language-r">    # we implement these functions as checks rather than returning logicals so they can</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">946</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  inherit = FilterState,</pre>
+                      <pre class="language-r">    # give informative error messages immediately</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">947</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">948</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # public methods ----</pre>
+                      <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">949</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  public = list(</pre>
+                      <pre class="language-r">    # Gets the number of active `FilterState` objects in all `FilterStates`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">950</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # in all `FilteredDataset`s in this `FilteredData` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">951</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">    # @return `integer(1)`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">952</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Initialize a `FilterState` object for range selection.</pre>
+                      <pre class="language-r">    get_filter_count = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">132</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">953</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param x (`numeric`)</pre>
+                      <pre class="language-r">      length(self$get_filter_state())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">954</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   variable to be filtered.</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">955</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param x_reactive (`reactive`)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">956</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   returning vector of the same type as `x`. Is used to update</pre>
+                      <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">957</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   counts following the change in values of the filtered dataset.</pre>
+                      <pre class="language-r">    # Activate available filters.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">958</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   If it is set to `reactive(NULL)` then counts based on filtered</pre>
+                      <pre class="language-r">    # Module is composed from plus button and dropdown menu. Menu is shown when</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">959</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   dataset are not shown.</pre>
+                      <pre class="language-r">    # the button is clicked. Menu contains available/active filters list</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">960</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param slice (`teal_slice`)</pre>
+                      <pre class="language-r">    # passed via `set_available_teal_slice`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">961</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   specification of this filter state.</pre>
+                      <pre class="language-r">    ui_available_filters = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">141</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">962</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   `teal_slice` is stored in the object and `set_state` directly manipulates values within `teal_slice`.</pre>
+                      <pre class="language-r">      ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">963</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   `get_state` returns `teal_slice` object which can be reused in other places.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">143</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">964</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   Note that `teal_slice` is a `reactiveValues`, which means it has reference semantics, i.e.</pre>
+                      <pre class="language-r">      active_slices_id &lt;- isolate(vapply(self$get_filter_state(), `[[`, character(1), "id"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">144</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">965</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   changes made to an object are automatically reflected in all places that refer to the same `teal_slice`.</pre>
+                      <pre class="language-r">      tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">145</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">966</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param extract_type (`character`)</pre>
+                      <pre class="language-r">        id = ns("available_menu"),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">967</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        shinyWidgets::dropMenu(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">968</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          actionLink(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">969</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            ns("show"),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">970</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            label = NULL,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">971</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            icon = icon("plus", lib = "font-awesome"),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">972</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            title = "Available filters",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">973</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            class = "remove pull-right"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">974</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   specifying whether condition calls should be prefixed by `dataname`. Possible values:</pre>
+                      <pre class="language-r">          ),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">975</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">976</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            class = "menu-content",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">977</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            shinycssloaders::withSpinner(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">978</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              uiOutput(ns("checkbox")),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">979</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              type = 4,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">980</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              size = 0.25</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">981</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' - `character(0)` (default) `varname` in the condition call will not be prefixed</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">982</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' - `"list"` `varname` in the condition call will be returned as `&lt;dataname&gt;$&lt;varname&gt;`</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">983</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' - `"matrix"` `varname` in the condition call will be returned as `&lt;dataname&gt;[, &lt;varname&gt;]`</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">984</td>
                     <td class="coverage"></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">985</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return Object of class `RangeFilterState`, invisibly.</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">986</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">153</td>
+                    <td class="num">987</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    initialize = function(x,</pre>
+                      <pre class="language-r">    # Activate available filters. When a filter is selected or removed,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">988</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          x_reactive = reactive(NULL),</pre>
+                      <pre class="language-r">    # `set_filter_state` or `remove_filter_state` is executed for</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">989</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          extract_type = character(0),</pre>
+                      <pre class="language-r">    # the appropriate filter state id.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">990</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          slice) {</pre>
+                      <pre class="language-r">    srv_available_filters = function(id) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">157</td>
-                    <td class="coverage">121<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      isolate({</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">158</td>
-                    <td class="coverage">121<em>x</em></td>
+                    <td class="num">991</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        checkmate::assert_numeric(x, all.missing = FALSE)</pre>
+                      <pre class="language-r">      moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">159</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">992</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!any(is.finite(x))) stop("\"x\" contains no finite values")</pre>
+                      <pre class="language-r">        slices_available &lt;- self$get_available_teal_slices()</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">160</td>
-                    <td class="coverage">118<em>x</em></td>
+                    <td class="num">993</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        super$initialize(x = x, x_reactive = x_reactive, slice = slice, extract_type = extract_type)</pre>
+                      <pre class="language-r">        slices_interactive &lt;- reactive(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">161</td>
-                    <td class="coverage">118<em>x</em></td>
+                    <td class="num">994</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$is_integer &lt;- checkmate::test_integerish(x)</pre>
+                      <pre class="language-r">          Filter(function(slice) isFALSE(slice$fixed), slices_available())</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">162</td>
-                    <td class="coverage">118<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">995</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$inf_count &lt;- sum(is.infinite(x))</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">163</td>
-                    <td class="coverage">118<em>x</em></td>
+                    <td class="num">996</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$inf_filtered_count &lt;- reactive(</pre>
+                      <pre class="language-r">        slices_fixed &lt;- reactive(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">164</td>
-                    <td class="coverage">118<em>x</em></td>
+                    <td class="num">997</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (!is.null(private$x_reactive())) sum(is.infinite(private$x_reactive()))</pre>
+                      <pre class="language-r">          Filter(function(slice) isTRUE(slice$fixed), slices_available())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">998</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="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">999</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        available_slices_id &lt;- reactive(vapply(slices_available(), `[[`, character(1), "id"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">118<em>x</em></td>
+                    <td class="num">1000</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        checkmate::assert_numeric(slice$choices, null.ok = TRUE)</pre>
+                      <pre class="language-r">        active_slices_id &lt;- reactive(vapply(self$get_filter_state(), `[[`, character(1), "id"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">1001</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (is.null(slice$keep_inf) &amp;&amp; any(is.infinite(x))) slice$keep_inf &lt;- TRUE</pre>
+                      <pre class="language-r">        duplicated_slice_references &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">1002</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          # slice refers to a particular column</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">170</td>
-                    <td class="coverage">117<em>x</em></td>
+                    <td class="num">1003</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$set_choices(slice$choices)</pre>
+                      <pre class="language-r">          slice_reference &lt;- vapply(slices_available(), get_default_slice_id, character(1))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">42<em>x</em></td>
+                    <td class="num">1004</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (is.null(slice$selected)) slice$selected &lt;- slice$choices</pre>
+                      <pre class="language-r">          is_duplicated_reference &lt;- duplicated(slice_reference) | duplicated(slice_reference, fromLast = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">172</td>
-                    <td class="coverage">117<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        private$set_selected(slice$selected)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">173</td>
-                    <td class="coverage"></td>
+                    <td class="num">1005</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          is_active &lt;- available_slices_id() %in% active_slices_id()</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">174</td>
-                    <td class="coverage">114<em>x</em></td>
+                    <td class="num">1006</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$is_integer &lt;- checkmate::test_integerish(x)</pre>
+                      <pre class="language-r">          is_not_expr &lt;- !vapply(slices_available(), inherits, logical(1), "teal_slice_expr")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">175</td>
-                    <td class="coverage">114<em>x</em></td>
+                    <td class="num">1007</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$inf_filtered_count &lt;- reactive(</pre>
+                      <pre class="language-r">          slice_reference[is_duplicated_reference &amp; is_active &amp; is_not_expr]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">176</td>
-                    <td class="coverage">114<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1008</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (!is.null(private$x_reactive())) sum(is.infinite(private$x_reactive()))</pre>
+                      <pre class="language-r">        })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">1009</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">178</td>
-                    <td class="coverage">114<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        private$inf_count &lt;- sum(is.infinite(x))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">179</td>
-                    <td class="coverage"></td>
+                    <td class="num">1010</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        checkbox_group_element &lt;- function(name, value, label, checked, disabled = FALSE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">180</td>
-                    <td class="coverage">114<em>x</em></td>
+                    <td class="num">1011</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$plot_data &lt;- list(</pre>
+                      <pre class="language-r">          tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">181</td>
-                    <td class="coverage">114<em>x</em></td>
+                    <td class="num">1012</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          type = "histogram",</pre>
+                      <pre class="language-r">            class = "checkbox available-filters",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">182</td>
-                    <td class="coverage">114<em>x</em></td>
+                    <td class="num">1013</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          nbinsx = 50,</pre>
+                      <pre class="language-r">            tags$label(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">183</td>
-                    <td class="coverage">114<em>x</em></td>
+                    <td class="num">1014</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x = Filter(Negate(is.na), Filter(is.finite, private$x)),</pre>
+                      <pre class="language-r">              tags$input(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">184</td>
-                    <td class="coverage">114<em>x</em></td>
+                    <td class="num">1015</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          color = I(fetch_bs_color("secondary")),</pre>
+                      <pre class="language-r">                type = "checkbox",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">185</td>
-                    <td class="coverage">114<em>x</em></td>
+                    <td class="num">1016</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          alpha = 0.2,</pre>
+                      <pre class="language-r">                name = name,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">186</td>
-                    <td class="coverage">114<em>x</em></td>
+                    <td class="num">1017</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          bingroup = 1,</pre>
+                      <pre class="language-r">                value = value,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">187</td>
-                    <td class="coverage">114<em>x</em></td>
+                    <td class="num">1018</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          showlegend = FALSE,</pre>
+                      <pre class="language-r">                checked = checked,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">188</td>
-                    <td class="coverage">114<em>x</em></td>
+                    <td class="num">1019</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          hoverinfo = "none"</pre>
+                      <pre class="language-r">                disabled = if (disabled) "disabled"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">189</td>
+                    <td class="num">1020</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">114<em>x</em></td>
+                    <td class="num">1021</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$plot_mask &lt;- list(list(</pre>
+                      <pre class="language-r">              tags$span(label, disabled = if (disabled) disabled)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">191</td>
-                    <td class="coverage">114<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1022</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          type = "rect", fillcolor = rgb(1, 1, 1, .65), line = list(width = 0),</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">192</td>
-                    <td class="coverage">114<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1023</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x0 = -0.5, x1 = 1.5, y0 = -0.5, y1 = 1.5, xref = "paper", yref = "paper"</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">1024</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">194</td>
-                    <td class="coverage">114<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1025</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$plot_layout &lt;- reactive({</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">195</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">1026</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shapes &lt;- private$get_shape_properties(private$get_selected())</pre>
+                      <pre class="language-r">        output$checkbox &lt;- renderUI({</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">196</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">1027</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          list(</pre>
+                      <pre class="language-r">          checkbox &lt;- checkboxGroupInput(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">197</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">1028</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            barmode = "overlay",</pre>
+                      <pre class="language-r">            session$ns("available_slices_id"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">198</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">1029</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            xaxis = list(</pre>
+                      <pre class="language-r">            label = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">199</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">1030</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              range = private$get_choices() * c(0.995, 1.005),</pre>
+                      <pre class="language-r">            choices = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">200</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">1031</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              rangeslider = list(thickness = 0),</pre>
+                      <pre class="language-r">            selected = NULL</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">201</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1032</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              showticklabels = TRUE,</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">202</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">1033</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ticks = "outside",</pre>
+                      <pre class="language-r">          active_slices_ids &lt;- active_slices_id()</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">203</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">1034</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ticklen = 1.5,</pre>
+                      <pre class="language-r">          duplicated_slice_refs &lt;- duplicated_slice_references()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">204</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1035</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              tickmode = "auto",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">205</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">1036</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              nticks = 10</pre>
+                      <pre class="language-r">          checkbox_group_slice &lt;- function(slice) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">206</td>
+                    <td class="num">1037</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ),</pre>
+                      <pre class="language-r">            # we need to isolate changes in the fields of the slice (teal_slice)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">207</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">1038</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            yaxis = list(showgrid = FALSE, showticklabels = FALSE),</pre>
+                      <pre class="language-r">            isolate({</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">208</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">1039</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            margin = list(b = 17, l = 0, r = 0, t = 0, autoexpand = FALSE),</pre>
+                      <pre class="language-r">              checkbox_group_element(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">209</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">1040</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            plot_bgcolor = "#FFFFFF00",</pre>
+                      <pre class="language-r">                name = session$ns("available_slices_id"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">210</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">1041</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            paper_bgcolor = "#FFFFFF00",</pre>
+                      <pre class="language-r">                value = slice$id,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">211</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            shapes = shapes</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">212</td>
-                    <td class="coverage"></td>
+                    <td class="num">1042</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">                label = slice$id,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">213</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1043</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        })</pre>
+                      <pre class="language-r">                checked = if (slice$id %in% active_slices_ids) "checked",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">214</td>
-                    <td class="coverage">114<em>x</em></td>
+                    <td class="num">1044</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$plot_config &lt;- reactive({</pre>
+                      <pre class="language-r">                disabled = slice$anchored ||</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">215</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">1045</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          list(</pre>
+                      <pre class="language-r">                  get_default_slice_id(slice) %in% duplicated_slice_refs &amp;&amp;</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">216</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">1046</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            doubleClick = "reset",</pre>
+                      <pre class="language-r">                    !slice$id %in% active_slices_ids</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">217</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1047</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            displayModeBar = FALSE,</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">218</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1048</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            edits = list(shapePosition = TRUE)</pre>
+                      <pre class="language-r">            })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">219</td>
+                    <td class="num">1049</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">220</td>
+                    <td class="num">1050</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">221</td>
-                    <td class="coverage">114<em>x</em></td>
+                    <td class="num">1051</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$plot_filtered &lt;- reactive({</pre>
+                      <pre class="language-r">          interactive_choice_mock &lt;- lapply(slices_interactive(), checkbox_group_slice)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">222</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">1052</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          finite_values &lt;- Filter(is.finite, private$x_reactive())</pre>
+                      <pre class="language-r">          non_interactive_choice_mock &lt;- lapply(slices_fixed(), checkbox_group_slice)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">1053</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">223</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">1054</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (!identical(finite_values, numeric(0))) {</pre>
+                      <pre class="language-r">          htmltools::tagInsertChildren(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">224</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">1055</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            list(</pre>
+                      <pre class="language-r">            checkbox,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">225</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">1056</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              x = finite_values,</pre>
+                      <pre class="language-r">            tags$br(),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">226</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">1057</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              bingroup = 1,</pre>
+                      <pre class="language-r">            if (length(non_interactive_choice_mock)) tags$strong("Fixed filters"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">227</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">1058</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              color = I(fetch_bs_color("primary"))</pre>
+                      <pre class="language-r">            non_interactive_choice_mock,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">228</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1059</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">            if (length(interactive_choice_mock)) tags$strong("Interactive filters"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">229</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1060</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">            interactive_choice_mock,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">230</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1061</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        })</pre>
+                      <pre class="language-r">            .cssSelector = "div.shiny-options-group",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">231</td>
-                    <td class="coverage">114<em>x</em></td>
+                    <td class="num">1062</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        invisible(self)</pre>
+                      <pre class="language-r">            after = 0</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">232</td>
+                    <td class="num">1063</td>
                     <td class="coverage"></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="num">1064</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">        })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">234</td>
+                    <td class="num">1065</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">235</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1066</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">        observeEvent(input$available_slices_id, ignoreNULL = FALSE, ignoreInit = TRUE, {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">236</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1067</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Returns reproducible condition call for current selection.</pre>
+                      <pre class="language-r">          new_slices_id &lt;- setdiff(input$available_slices_id, active_slices_id())</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">237</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1068</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' For this class returned call looks like</pre>
+                      <pre class="language-r">          removed_slices_id &lt;- setdiff(active_slices_id(), input$available_slices_id)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">238</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1069</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' `&lt;varname&gt; &gt;= &lt;min value&gt; &amp; &lt;varname&gt; &lt;= &lt;max value&gt;` with</pre>
+                      <pre class="language-r">          if (length(new_slices_id)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">239</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1070</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' optional `is.na(&lt;varname&gt;)` and `is.finite(&lt;varname&gt;)`.</pre>
+                      <pre class="language-r">            new_teal_slices &lt;- Filter(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">240</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1071</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param dataname name of data set; defaults to `private$get_dataname()`</pre>
+                      <pre class="language-r">              function(slice) slice$id %in% new_slices_id,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">1072</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              private$available_teal_slices()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">241</td>
+                    <td class="num">1073</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `call`</pre>
+                      <pre class="language-r">            )</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">1074</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            self$set_filter_state(new_teal_slices)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">242</td>
+                    <td class="num">1075</td>
                     <td class="coverage"></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">1076</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_call = function(dataname) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">244</td>
-                    <td class="coverage">35<em>x</em></td>
+                    <td class="num">1077</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (isFALSE(private$is_any_filtered())) {</pre>
+                      <pre class="language-r">          if (length(removed_slices_id)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">245</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">1078</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        return(NULL)</pre>
+                      <pre class="language-r">            removed_teal_slices &lt;- Filter(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">246</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1079</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">              function(slice) slice$id %in% removed_slices_id,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">247</td>
+                    <td class="num">1080</td>
                     <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (missing(dataname)) dataname &lt;- private$get_dataname()</pre>
+                      <pre class="language-r">              self$get_filter_state()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">248</td>
-                    <td class="coverage">34<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1081</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      varname &lt;- private$get_varname_prefixed(dataname)</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">249</td>
-                    <td class="coverage">34<em>x</em></td>
+                    <td class="num">1082</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      filter_call &lt;-</pre>
+                      <pre class="language-r">            self$remove_filter_state(removed_teal_slices)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">250</td>
-                    <td class="coverage">34<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1083</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        call(</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">251</td>
+                    <td class="num">1084</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "&amp;",</pre>
+                      <pre class="language-r">        })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">252</td>
-                    <td class="coverage">34<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1085</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          call("&gt;=", varname, private$get_selected()[1L]),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">253</td>
-                    <td class="coverage">34<em>x</em></td>
+                    <td class="num">1086</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          call("&lt;=", varname, private$get_selected()[2L])</pre>
+                      <pre class="language-r">        observeEvent(private$available_teal_slices(), ignoreNULL = FALSE, {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">254</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1087</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">          if (length(private$available_teal_slices())) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">255</td>
-                    <td class="coverage">34<em>x</em></td>
+                    <td class="num">1088</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$add_keep_na_call(private$add_keep_inf_call(filter_call, varname), varname)</pre>
+                      <pre class="language-r">            shinyjs::show("available_menu")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">256</td>
+                    <td class="num">1089</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">257</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1090</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            shinyjs::hide("available_menu")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">258</td>
+                    <td class="num">1091</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">259</td>
+                    <td class="num">1092</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Returns current `keep_inf` selection.</pre>
+                      <pre class="language-r">        })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">260</td>
+                    <td class="num">1093</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `logical(1)`</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">261</td>
+                    <td class="num">1094</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_keep_inf = function() {</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">262</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1095</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$teal_slice$keep_inf</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">263</td>
+                    <td class="num">1096</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/test_utils.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">264</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 contains helper functions used in unit tests.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">265</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">266</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # private fields----</pre>
+                      <pre class="language-r"># compares specified fields between two `teal_slice` objects</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">267</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  private = list(</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">268</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    inf_count = integer(0),</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">269</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    inf_filtered_count = NULL,</pre>
+                      <pre class="language-r">compare_slices &lt;- function(ts1, ts2, fields) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">270</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">7</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    is_integer = logical(0),</pre>
+                      <pre class="language-r">  isolate(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">271</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">8</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    numeric_step = numeric(0), # step for the slider input widget, calculated from input data (x)</pre>
+                      <pre class="language-r">    all(vapply(fields, function(x) identical(ts1[[x]], ts2[[x]]), logical(1L)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">272</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_data = NULL,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">273</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_mask = list(),</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">274</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_layout = NULL,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">275</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_config = NULL,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">276</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_filtered = NULL,</pre>
+                      <pre class="language-r"># compare two teal_slice</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">277</td>
+                    <td class="num">14</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">278</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # private methods ----</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">279</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">expect_identical_slice &lt;- function(x, y) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">280</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">17</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set_choices = function(choices) {</pre>
+                      <pre class="language-r">  isolate({</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">281</td>
-                    <td class="coverage">117<em>x</em></td>
+                    <td class="num">18</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x &lt;- private$x[is.finite(private$x)]</pre>
+                      <pre class="language-r">    testthat::expect_true(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">282</td>
-                    <td class="coverage">117<em>x</em></td>
+                    <td class="num">19</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (is.null(choices)) {</pre>
+                      <pre class="language-r">      setequal(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">283</td>
-                    <td class="coverage">105<em>x</em></td>
+                    <td class="num">20</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        choices &lt;- range(x)</pre>
+                      <pre class="language-r">        reactiveValuesToList(x),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">284</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">21</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">        reactiveValuesToList(y)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">285</td>
-                    <td class="coverage">12<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">        choices_adjusted &lt;- c(max(choices[1L], min(x)), min(choices[2L], max(x)))</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">286</td>
-                    <td class="coverage">12<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">        if (any(choices != choices_adjusted)) {</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">287</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">          warning(sprintf(</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">288</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">            "Choices adjusted (some values outside of variable range). Varname: %s, dataname: %s.",</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">289</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">            private$get_varname(), private$get_dataname()</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">290</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ))</pre>
+                      <pre class="language-r"># compare two teal_slices</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">291</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">          choices &lt;- choices_adjusted</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">292</td>
+                    <td class="num">29</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">293</td>
-                    <td class="coverage">12<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 (choices[1L] &gt; choices[2L]) {</pre>
+                      <pre class="language-r">expect_identical_slices &lt;- function(x, y) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">294</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">31</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          warning(sprintf(</pre>
+                      <pre class="language-r">  isolate({</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">295</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">32</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "Invalid choices: lower is higher / equal to upper, or not in range of variable values.</pre>
+                      <pre class="language-r">    mapply(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">296</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">33</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            Setting defaults. Varname: %s, dataname: %s.",</pre>
+                      <pre class="language-r">      function(x, y) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">297</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">34</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            private$get_varname(), private$get_dataname()</pre>
+                      <pre class="language-r">        expect_identical_slice(x, y)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">298</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="covered">
-                    <td class="num">299</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          choices &lt;- range(x)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">300</td>
-                    <td class="coverage"></td>
+                    <td class="num">36</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">      x = x,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">301</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">37</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">      y = y</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">302</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="covered">
-                    <td class="num">303</td>
-                    <td class="coverage">117<em>x</em></td>
+                    <td class="num">39</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$set_is_choice_limited(private$x, choices)</pre>
+                      <pre class="language-r">    testthat::expect_identical(attributes(x), attributes(y))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">304</td>
-                    <td class="coverage">117<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">      private$x &lt;- private$x[</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">305</td>
-                    <td class="coverage">117<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">        (private$x &gt;= choices[1L] &amp; private$x &lt;= choices[2L]) | is.na(private$x) | !is.finite(private$x)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/FilterStateRange.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">306</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ]</pre>
+                      <pre class="language-r"># RangeFilterState ------</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">307</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">308</td>
-                    <td class="coverage">117<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">      x_range &lt;- range(private$x, finite = TRUE)</pre>
+                      <pre class="language-r">#' @name RangeFilterState</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">309</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @docType class</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">310</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # Required for displaying ticks on the slider, can modify choices!</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">311</td>
-                    <td class="coverage">117<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">      if (identical(diff(x_range), 0)) {</pre>
+                      <pre class="language-r">#' @title `FilterState` object for numeric data</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">312</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">        choices &lt;- x_range</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">313</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">#' @description Manages choosing a numeric range.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">314</td>
-                    <td class="coverage">115<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">        x_pretty &lt;- pretty(x_range, 100L)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">315</td>
-                    <td class="coverage">115<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">        choices &lt;- range(x_pretty)</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">316</td>
-                    <td class="coverage">115<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">        private$numeric_step &lt;- signif(private$get_pretty_range_step(x_pretty), digits = 10)</pre>
+                      <pre class="language-r">#' # use non-exported function from teal.slice</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">317</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' include_css_files &lt;- getFromNamespace("include_css_files", "teal.slice")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">318</td>
-                    <td class="coverage">117<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$teal_slice$choices &lt;- choices</pre>
+                      <pre class="language-r">#' include_js_files &lt;- getFromNamespace("include_js_files", "teal.slice")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">319</td>
-                    <td class="coverage">117<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">      invisible(NULL)</pre>
+                      <pre class="language-r">#' RangeFilterState &lt;- getFromNamespace("RangeFilterState", "teal.slice")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">320</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">321</td>
+                    <td class="num">16</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="never">
-                    <td class="num">322</td>
+                    <td class="num">17</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">323</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Check whether the initial choices filter out some values of x and set the flag in case.</pre>
+                      <pre class="language-r">#' filter_state &lt;- RangeFilterState$new(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">324</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set_is_choice_limited = function(xl, choices) {</pre>
+                      <pre class="language-r">#'   x = c(NA, Inf, seq(1:10)),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">325</td>
-                    <td class="coverage">117<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">      xl &lt;- xl[!is.na(xl)]</pre>
+                      <pre class="language-r">#'   slice = teal_slice(varname = "x", dataname = "data")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">326</td>
-                    <td class="coverage">117<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">      xl &lt;- xl[is.finite(xl)]</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">327</td>
-                    <td class="coverage">117<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">      private$is_choice_limited &lt;- (any(xl &lt; choices[1L]) | any(xl &gt; choices[2L]))</pre>
+                      <pre class="language-r">#' isolate(filter_state$get_call())</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">328</td>
-                    <td class="coverage">117<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">      invisible(NULL)</pre>
+                      <pre class="language-r">#' filter_state$set_state(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">329</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#'   teal_slice(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">330</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     dataname = "data",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">331</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Adds is.infinite(varname) before existing condition calls if keep_inf is selected</pre>
+                      <pre class="language-r">#'     varname = "x",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">332</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # returns a call</pre>
+                      <pre class="language-r">#'     selected = c(3L, 8L),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">333</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    add_keep_inf_call = function(filter_call, varname) {</pre>
+                      <pre class="language-r">#'     keep_na = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">334</td>
-                    <td class="coverage">34<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">      if (isTRUE(private$get_keep_inf())) {</pre>
+                      <pre class="language-r">#'     keep_inf = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">335</td>
-                    <td class="coverage">2<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">        call("|", call("is.infinite", varname), filter_call)</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">336</td>
+                    <td class="num">31</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">337</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">        filter_call</pre>
+                      <pre class="language-r">#' isolate(filter_state$get_call())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">338</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">339</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#' # working filter in an app</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">340</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' library(shinyjs)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">341</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @description gets pretty step size for range slider</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">342</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #  adaptation of shiny's method (see shiny/R/input-slider.R function findStepSize)</pre>
+                      <pre class="language-r">#' data_range &lt;- c(runif(100, 0, 1), NA, Inf)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">343</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @param pretty_range (numeric(n)) vector of pretty values</pre>
+                      <pre class="language-r">#' fs &lt;- RangeFilterState$new(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">344</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @return numeric(1) pretty step size for the sliderInput</pre>
+                      <pre class="language-r">#'   x = data_range,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">345</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_pretty_range_step = function(pretty_range) {</pre>
+                      <pre class="language-r">#'   slice = teal_slice(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">346</td>
-                    <td class="coverage">117<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">      if (private$is_integer &amp;&amp; diff(range(pretty_range) &gt; 2)) {</pre>
+                      <pre class="language-r">#'     dataname = "data",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">347</td>
-                    <td class="coverage">46<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">        return(1L)</pre>
+                      <pre class="language-r">#'     varname = "x",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">348</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">#'     selected = c(0.15, 0.93),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">349</td>
-                    <td class="coverage">71<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">44</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        n_steps &lt;- length(pretty_range) - 1</pre>
+                      <pre class="language-r">#'     keep_na = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">350</td>
-                    <td class="coverage">71<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">        return(signif(digits = 10, (max(pretty_range) - min(pretty_range)) / n_steps))</pre>
+                      <pre class="language-r">#'     keep_inf = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">351</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">352</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">353</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    cast_and_validate = function(values) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">354</td>
-                    <td class="coverage">133<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">      tryCatch(</pre>
+                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">355</td>
-                    <td class="coverage">133<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">#'   useShinyjs(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">356</td>
-                    <td class="coverage">133<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">          values &lt;- as.numeric(values)</pre>
+                      <pre class="language-r">#'   include_css_files(pattern = "filter-panel"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">357</td>
-                    <td class="coverage">4<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">          if (anyNA(values)) stop()</pre>
+                      <pre class="language-r">#'   include_js_files(pattern = "count-bar-labels"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">358</td>
-                    <td class="coverage">129<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">          values</pre>
+                      <pre class="language-r">#'   column(4, tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">359</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        },</pre>
+                      <pre class="language-r">#'     tags$h4("RangeFilterState"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">360</td>
-                    <td class="coverage">133<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">        error = function(e) stop("Vector of set values must contain values coercible to numeric")</pre>
+                      <pre class="language-r">#'     fs$ui("fs")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">361</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'   )),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">362</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#'   column(4, tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">363</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Also validates that selection is sorted.</pre>
+                      <pre class="language-r">#'     id = "outputs", # div id is needed for toggling the element</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">364</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    check_length = function(values) {</pre>
+                      <pre class="language-r">#'     tags$h4("Condition (i.e. call)"), # display the condition call generated by this FilterState</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">365</td>
-                    <td class="coverage">2<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 (length(values) != 2L) stop("Vector of set values must have length two.")</pre>
+                      <pre class="language-r">#'     textOutput("condition_range"), tags$br(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">366</td>
-                    <td class="coverage">2<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">      if (values[1L] &gt; values[2L]) stop("Vector of set values must be sorted.")</pre>
+                      <pre class="language-r">#'     tags$h4("Unformatted state"), # display raw filter state</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">367</td>
-                    <td class="coverage">125<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">      values</pre>
+                      <pre class="language-r">#'     textOutput("unformatted_range"), tags$br(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">368</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#'     tags$h4("Formatted state"), # display human readable filter state</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">369</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Trim selection to limits imposed by private$get_choices()</pre>
+                      <pre class="language-r">#'     textOutput("formatted_range"), tags$br()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">370</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    remove_out_of_bounds_values = function(values) {</pre>
+                      <pre class="language-r">#'   )),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">371</td>
-                    <td class="coverage">2<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 (values[1L] &lt; private$get_choices()[1L]) values[1L] &lt;- private$get_choices()[1L]</pre>
+                      <pre class="language-r">#'   column(4, tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">372</td>
-                    <td class="coverage">2<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">      if (values[2L] &gt; private$get_choices()[2L]) values[2L] &lt;- private$get_choices()[2L]</pre>
+                      <pre class="language-r">#'     tags$h4("Programmatic filter control"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">373</td>
-                    <td class="coverage">125<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">      values</pre>
+                      <pre class="language-r">#'     actionButton("button1_range", "set drop NA", width = "100%"), tags$br(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">374</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#'     actionButton("button2_range", "set keep NA", width = "100%"), tags$br(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">375</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     actionButton("button3_range", "set drop Inf", width = "100%"), tags$br(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">376</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Answers the question of whether the current settings and values selected actually filters out any values.</pre>
+                      <pre class="language-r">#'     actionButton("button4_range", "set keep Inf", width = "100%"), tags$br(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">377</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @return logical scalar</pre>
+                      <pre class="language-r">#'     actionButton("button5_range", "set a range", width = "100%"), tags$br(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">378</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    is_any_filtered = function() {</pre>
+                      <pre class="language-r">#'     actionButton("button6_range", "set full range", width = "100%"), tags$br(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">379</td>
-                    <td class="coverage">35<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">      if (private$is_choice_limited) {</pre>
+                      <pre class="language-r">#'     actionButton("button0_range", "set initial state", width = "100%"), tags$br()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">380</td>
-                    <td class="coverage">1<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">        TRUE</pre>
+                      <pre class="language-r">#'   ))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">381</td>
-                    <td class="coverage">34<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">      } else if (!isTRUE(all.equal(private$get_selected(), private$get_choices()))) {</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">382</td>
-                    <td class="coverage">32<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">        TRUE</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">383</td>
-                    <td class="coverage">2<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">      } else if (!isTRUE(private$get_keep_inf()) &amp;&amp; private$inf_count &gt; 0) {</pre>
+                      <pre class="language-r">#' server &lt;- function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">384</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">79</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        TRUE</pre>
+                      <pre class="language-r">#'   fs$server("fs")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">385</td>
-                    <td class="coverage">2<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">      } else if (!isTRUE(private$get_keep_na()) &amp;&amp; private$na_count &gt; 0) {</pre>
+                      <pre class="language-r">#'   output$condition_range &lt;- renderPrint(fs$get_call())</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">386</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">        TRUE</pre>
+                      <pre class="language-r">#'   output$formatted_range &lt;- renderText(fs$format())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">387</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">#'   output$unformatted_range &lt;- renderPrint(fs$get_state())</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">388</td>
-                    <td class="coverage">1<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">        FALSE</pre>
+                      <pre class="language-r">#'   # modify filter state programmatically</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">389</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'   observeEvent(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">390</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#'     input$button1_range,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">391</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     fs$set_state(teal_slice(dataname = "data", varname = "x", keep_na = FALSE))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">392</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # obtain shape determination for histogram</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">393</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # returns a list that is passed to plotly's layout.shapes property</pre>
+                      <pre class="language-r">#'   observeEvent(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">394</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_shape_properties = function(values) {</pre>
+                      <pre class="language-r">#'     input$button2_range,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">395</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">90</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      list(</pre>
+                      <pre class="language-r">#'     fs$set_state(teal_slice(dataname = "data", varname = "x", keep_na = TRUE))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">396</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">91</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        list(type = "line", x0 = values[1], x1 = values[1], y0 = -100, y1 = 100, yref = "paper"),</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">397</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">92</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        list(type = "line", x0 = values[2], x1 = values[2], y0 = -100, y1 = 100, yref = "paper")</pre>
+                      <pre class="language-r">#'   observeEvent(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">398</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'     input$button3_range,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">399</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#'     fs$set_state(teal_slice(dataname = "data", varname = "x", keep_inf = FALSE))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">400</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">401</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # shiny modules ----</pre>
+                      <pre class="language-r">#'   observeEvent(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">402</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     input$button4_range,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">403</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # UI Module for `RangeFilterState`.</pre>
+                      <pre class="language-r">#'     fs$set_state(teal_slice(dataname = "data", varname = "x", keep_inf = TRUE))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">404</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # This UI element contains two values for `min` and `max`</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">405</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # of the range and two checkboxes whether to keep the `NA` or `Inf`  values.</pre>
+                      <pre class="language-r">#'   observeEvent(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">406</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @param id (`character(1)`) `shiny` module instance id.</pre>
+                      <pre class="language-r">#'     input$button5_range,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">407</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_inputs = function(id) {</pre>
+                      <pre class="language-r">#'     fs$set_state(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">408</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">      ns &lt;- NS(id)</pre>
+                      <pre class="language-r">#'       teal_slice(dataname = "data", varname = "x", selected = c(0.2, 0.74))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">409</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">      isolate({</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">410</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">        ui_input &lt;- shinyWidgets::numericRangeInput(</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">411</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">          inputId = ns("selection_manual"),</pre>
+                      <pre class="language-r">#'   observeEvent(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">412</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">          label = NULL,</pre>
+                      <pre class="language-r">#'     input$button6_range,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">413</td>
-                    <td class="coverage">5<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">          min = private$get_choices()[1L],</pre>
+                      <pre class="language-r">#'     fs$set_state(teal_slice(dataname = "data", varname = "x", selected = c(0, 1)))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">414</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">109</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          max = private$get_choices()[2L],</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">415</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">110</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          value = private$get_selected(),</pre>
+                      <pre class="language-r">#'   observeEvent(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">416</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">111</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          step = private$numeric_step,</pre>
+                      <pre class="language-r">#'     input$button0_range,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">417</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">112</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          width = "100%"</pre>
+                      <pre class="language-r">#'     fs$set_state(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">418</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_slice("data", "variable", selected = c(0.15, 0.93), keep_na = TRUE, keep_inf = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">419</td>
-                    <td class="coverage">5<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">        tagList(</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">420</td>
-                    <td class="coverage">5<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">          tags$div(</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">421</td>
-                    <td class="coverage">5<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">            class = "choices_state",</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">422</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">117</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            tags$head(tags$script(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">423</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              # Inline JS code for popover functionality.</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">424</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              # Adding the script inline because when added from a file with include_js_files(),</pre>
+                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">425</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              # it only works in the first info_button instance and not others.</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">426</td>
-                    <td class="coverage">5<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">              HTML(</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">427</td>
-                    <td class="coverage">5<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">                '$(document).ready(function() {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">428</td>
-                    <td class="coverage">5<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">                  $("[data-toggle=\'popover\']").popover();</pre>
+                      <pre class="language-r">RangeFilterState &lt;- R6::R6Class( # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">429</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  "RangeFilterState",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">430</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">125</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  $(document).on("click", function (e) {</pre>
+                      <pre class="language-r">  inherit = FilterState,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">431</td>
-                    <td class="coverage">5<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">                    if (!$("[data-toggle=\'popover\']").is(e.target) &amp;&amp;</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">432</td>
-                    <td class="coverage">5<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">                        $("[data-toggle=\'popover\']").has(e.target).length === 0 &amp;&amp;</pre>
+                      <pre class="language-r">  # public methods ----</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">433</td>
-                    <td class="coverage">5<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">                        $(".popover").has(e.target).length === 0) {</pre>
+                      <pre class="language-r">  public = list(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">434</td>
-                    <td class="coverage">5<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">                      $("[data-toggle=\'popover\']").popover("hide");</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">435</td>
+                    <td class="num">130</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">436</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  });</pre>
+                      <pre class="language-r">    #' Initialize a `FilterState` object for range selection.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">437</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                });'</pre>
+                      <pre class="language-r">    #' @param x (`numeric`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">438</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r">    #'   variable to be filtered.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">439</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )),</pre>
+                      <pre class="language-r">    #' @param x_reactive (`reactive`)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">440</td>
-                    <td class="coverage">5<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">            tags$div(</pre>
+                      <pre class="language-r">    #'   returning vector of the same type as `x`. Is used to update</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">441</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">136</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              actionLink(</pre>
+                      <pre class="language-r">    #'   counts following the change in values of the filtered dataset.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">442</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">137</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                ns("plotly_info"),</pre>
+                      <pre class="language-r">    #'   If it is set to `reactive(NULL)` then counts based on filtered</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">443</td>
-                    <td class="coverage">5<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">                label = NULL,</pre>
+                      <pre class="language-r">    #'   dataset are not shown.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">444</td>
-                    <td class="coverage">5<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">                icon = icon("question-circle"),</pre>
+                      <pre class="language-r">    #' @param slice (`teal_slice`)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">445</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">140</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                "data-toggle" = "popover",</pre>
+                      <pre class="language-r">    #'   specification of this filter state.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">446</td>
-                    <td class="coverage">5<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">                "data-html" = "true",</pre>
+                      <pre class="language-r">    #'   `teal_slice` is stored in the object and `set_state` directly manipulates values within `teal_slice`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">447</td>
-                    <td class="coverage">5<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">                "data-placement" = "left",</pre>
+                      <pre class="language-r">    #'   `get_state` returns `teal_slice` object which can be reused in other places.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">448</td>
-                    <td class="coverage">5<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">                "data-trigger" = "click",</pre>
+                      <pre class="language-r">    #'   Note that `teal_slice` is a `reactiveValues`, which means it has reference semantics, i.e.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">449</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">144</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                "data-title" = "Plot actions",</pre>
+                      <pre class="language-r">    #'   changes made to an object are automatically reflected in all places that refer to the same `teal_slice`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">450</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">145</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                "data-content" = "&lt;p&gt;</pre>
+                      <pre class="language-r">    #' @param extract_type (`character`)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">451</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">146</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  Drag vertical lines to set selection.&lt;br&gt;</pre>
+                      <pre class="language-r">    #'   specifying whether condition calls should be prefixed by `dataname`. Possible values:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">452</td>
-                    <td class="coverage">5<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">                                  Drag across plot to zoom in.&lt;br&gt;</pre>
+                      <pre class="language-r">    #' - `character(0)` (default) `varname` in the condition call will not be prefixed</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">453</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">148</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  Drag axis to pan.&lt;br&gt;</pre>
+                      <pre class="language-r">    #' - `"list"` `varname` in the condition call will be returned as `&lt;dataname&gt;$&lt;varname&gt;`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">454</td>
-                    <td class="coverage">5<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">                                  Double click to zoom out."</pre>
+                      <pre class="language-r">    #' - `"matrix"` `varname` in the condition call will be returned as `&lt;dataname&gt;[, &lt;varname&gt;]`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">455</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="covered">
-                    <td class="num">456</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">151</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              style = "text-align: right; font-size: 0.7em; margin-bottom: -1em; position: relative; z-index: 9;"</pre>
+                      <pre class="language-r">    #' @return Object of class `RangeFilterState`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">457</td>
+                    <td class="num">152</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">458</td>
-                    <td class="coverage">5<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">            shinycssloaders::withSpinner(</pre>
+                      <pre class="language-r">    initialize = function(x,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">459</td>
-                    <td class="coverage">5<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">              plotly::plotlyOutput(ns("plot"), height = "50px"),</pre>
+                      <pre class="language-r">                          x_reactive = reactive(NULL),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">460</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">155</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              type = 4,</pre>
+                      <pre class="language-r">                          extract_type = character(0),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">461</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">156</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              size = 0.25,</pre>
+                      <pre class="language-r">                          slice) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">462</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">157</td>
+                    <td class="coverage">121<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              hide.ui = FALSE</pre>
+                      <pre class="language-r">      isolate({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">463</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">158</td>
+                    <td class="coverage">121<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ),</pre>
+                      <pre class="language-r">        checkmate::assert_numeric(x, all.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">464</td>
-                    <td class="coverage">5<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">            ui_input</pre>
+                      <pre class="language-r">        if (!any(is.finite(x))) stop("\"x\" contains no finite values")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">465</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">160</td>
+                    <td class="coverage">118<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">        super$initialize(x = x, x_reactive = x_reactive, slice = slice, extract_type = extract_type)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">466</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">161</td>
+                    <td class="coverage">118<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          tags$div(</pre>
+                      <pre class="language-r">        private$is_integer &lt;- checkmate::test_integerish(x)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">467</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">162</td>
+                    <td class="coverage">118<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            class = "filter-card-body-keep-na-inf",</pre>
+                      <pre class="language-r">        private$inf_count &lt;- sum(is.infinite(x))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">468</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">163</td>
+                    <td class="coverage">118<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            private$keep_inf_ui(ns("keep_inf")),</pre>
+                      <pre class="language-r">        private$inf_filtered_count &lt;- reactive(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">469</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">164</td>
+                    <td class="coverage">118<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            private$keep_na_ui(ns("keep_na"))</pre>
+                      <pre class="language-r">          if (!is.null(private$x_reactive())) sum(is.infinite(private$x_reactive()))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">470</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">471</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">472</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">167</td>
+                    <td class="coverage">118<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">        checkmate::assert_numeric(slice$choices, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">473</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">168</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">        if (is.null(slice$keep_inf) &amp;&amp; any(is.infinite(x))) slice$keep_inf &lt;- TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">474</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">475</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">170</td>
+                    <td class="coverage">117<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @description</pre>
+                      <pre class="language-r">        private$set_choices(slice$choices)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">476</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">171</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Server module</pre>
+                      <pre class="language-r">        if (is.null(slice$selected)) slice$selected &lt;- slice$choices</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">477</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">172</td>
+                    <td class="coverage">117<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @param id (`character(1)`) `shiny` module instance id.</pre>
+                      <pre class="language-r">        private$set_selected(slice$selected)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">478</td>
+                    <td class="num">173</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">479</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">174</td>
+                    <td class="coverage">114<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server_inputs = function(id) {</pre>
+                      <pre class="language-r">        private$is_integer &lt;- checkmate::test_integerish(x)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">480</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">175</td>
+                    <td class="coverage">114<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      moduleServer(</pre>
+                      <pre class="language-r">        private$inf_filtered_count &lt;- reactive(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">481</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">176</td>
+                    <td class="coverage">114<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = id,</pre>
+                      <pre class="language-r">          if (!is.null(private$x_reactive())) sum(is.infinite(private$x_reactive()))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">482</td>
-                    <td class="coverage">5<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">        function(input, output, session) {</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">483</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">178</td>
+                    <td class="coverage">114<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_trace("RangeFilterState$server initializing, id: { private$get_id() }")</pre>
+                      <pre class="language-r">        private$inf_count &lt;- sum(is.infinite(x))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">484</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">485</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">180</td>
+                    <td class="coverage">114<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # Capture manual input with debounce.</pre>
+                      <pre class="language-r">        private$plot_data &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">486</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">181</td>
+                    <td class="coverage">114<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          selection_manual &lt;- debounce(reactive(input$selection_manual), 200)</pre>
+                      <pre class="language-r">          type = "histogram",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">487</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">488</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">182</td>
+                    <td class="coverage">114<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # Prepare for histogram construction.</pre>
+                      <pre class="language-r">          nbinsx = 50,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">489</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">183</td>
+                    <td class="coverage">114<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          plot_data &lt;- c(private$plot_data, source = session$ns("histogram_plot"))</pre>
+                      <pre class="language-r">          x = Filter(Negate(is.na), Filter(is.finite, private$x)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">490</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">184</td>
+                    <td class="coverage">114<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          color = I(fetch_bs_color("secondary")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">491</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">185</td>
+                    <td class="coverage">114<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # Display histogram, adding a second trace that contains filtered data.</pre>
+                      <pre class="language-r">          alpha = 0.2,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">492</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">186</td>
+                    <td class="coverage">114<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          output$plot &lt;- plotly::renderPlotly({</pre>
+                      <pre class="language-r">          bingroup = 1,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">493</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">187</td>
+                    <td class="coverage">114<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            histogram &lt;- do.call(plotly::plot_ly, plot_data)</pre>
+                      <pre class="language-r">          showlegend = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">494</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">188</td>
+                    <td class="coverage">114<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            histogram &lt;- do.call(plotly::layout, c(list(p = histogram), private$plot_layout()))</pre>
+                      <pre class="language-r">          hoverinfo = "none"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">495</td>
-                    <td class="coverage">5<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">            histogram &lt;- do.call(plotly::config, c(list(p = histogram), private$plot_config()))</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">496</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">190</td>
+                    <td class="coverage">114<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            histogram &lt;- do.call(plotly::add_histogram, c(list(p = histogram), private$plot_filtered()))</pre>
+                      <pre class="language-r">        private$plot_mask &lt;- list(list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">497</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">191</td>
+                    <td class="coverage">114<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            histogram</pre>
+                      <pre class="language-r">          type = "rect", fillcolor = rgb(1, 1, 1, .65), line = list(width = 0),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">498</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">192</td>
+                    <td class="coverage">114<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          })</pre>
+                      <pre class="language-r">          x0 = -0.5, x1 = 1.5, y0 = -0.5, y1 = 1.5, xref = "paper", yref = "paper"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">499</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">500</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">194</td>
+                    <td class="coverage">114<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # Dragging shapes (lines) on plot updates selection.</pre>
+                      <pre class="language-r">        private$plot_layout &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">501</td>
+                    <td class="num">195</td>
                     <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          private$observers$relayout &lt;-</pre>
+                      <pre class="language-r">          shapes &lt;- private$get_shape_properties(private$get_selected())</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">502</td>
+                    <td class="num">196</td>
                     <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            observeEvent(</pre>
+                      <pre class="language-r">          list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">503</td>
+                    <td class="num">197</td>
                     <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ignoreNULL = FALSE,</pre>
+                      <pre class="language-r">            barmode = "overlay",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">504</td>
+                    <td class="num">198</td>
                     <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ignoreInit = TRUE,</pre>
+                      <pre class="language-r">            xaxis = list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">505</td>
+                    <td class="num">199</td>
                     <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              eventExpr = plotly::event_data("plotly_relayout", source = session$ns("histogram_plot")),</pre>
+                      <pre class="language-r">              range = private$get_choices() * c(0.995, 1.005),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">506</td>
+                    <td class="num">200</td>
                     <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              handlerExpr = {</pre>
+                      <pre class="language-r">              rangeslider = list(thickness = 0),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">507</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">201</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                logger::log_trace("RangeFilterState$server@1 selection changed, id: { private$get_id() }")</pre>
+                      <pre class="language-r">              showticklabels = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">508</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">202</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                event &lt;- plotly::event_data("plotly_relayout", source = session$ns("histogram_plot"))</pre>
+                      <pre class="language-r">              ticks = "outside",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">509</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                if (any(grepl("shapes", names(event)))) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">510</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                  line_positions &lt;- private$get_selected()</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">511</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                  if (any(grepl("shapes[0]", names(event), fixed = TRUE))) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">512</td>
-                    <td class="coverage">!</td>
+                    <td class="num">203</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    line_positions[1] &lt;- event[["shapes[0].x0"]]</pre>
+                      <pre class="language-r">              ticklen = 1.5,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">513</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">204</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  } else if (any(grepl("shapes[1]", names(event), fixed = TRUE))) {</pre>
+                      <pre class="language-r">              tickmode = "auto",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">514</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">205</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    line_positions[2] &lt;- event[["shapes[1].x0"]]</pre>
+                      <pre class="language-r">              nticks = 10</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">515</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">516</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">207</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  # If one line was dragged past the other, abort action and reset lines.</pre>
+                      <pre class="language-r">            yaxis = list(showgrid = FALSE, showticklabels = FALSE),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">517</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">208</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  if (line_positions[1] &gt; line_positions[2]) {</pre>
+                      <pre class="language-r">            margin = list(b = 17, l = 0, r = 0, t = 0, autoexpand = FALSE),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">518</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">209</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    showNotification(</pre>
+                      <pre class="language-r">            plot_bgcolor = "#FFFFFF00",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">519</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">210</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      "Numeric range start value must be less than end value.",</pre>
+                      <pre class="language-r">            paper_bgcolor = "#FFFFFF00",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">520</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">211</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      type = "warning"</pre>
+                      <pre class="language-r">            shapes = shapes</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">521</td>
+                    <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    )</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">522</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                    plotly::plotlyProxyInvoke(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">523</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                      plotly::plotlyProxy("plot"),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">524</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                      "relayout",</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">525</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                      shapes = private$get_shape_properties(private$get_selected())</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">526</td>
+                    <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    )</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">527</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">528</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">214</td>
+                    <td class="coverage">114<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  }</pre>
+                      <pre class="language-r">        private$plot_config &lt;- reactive({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">529</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">215</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          list(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">530</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">216</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  private$set_selected(signif(line_positions, digits = 4L))</pre>
+                      <pre class="language-r">            doubleClick = "reset",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">531</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">217</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                }</pre>
+                      <pre class="language-r">            displayModeBar = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">532</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">218</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              }</pre>
+                      <pre class="language-r">            edits = list(shapePosition = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">533</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">534</td>
+                    <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        })</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">535</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">221</td>
+                    <td class="coverage">114<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # Change in selection updates shapes (lines) on plot and numeric input.</pre>
+                      <pre class="language-r">        private$plot_filtered &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">536</td>
+                    <td class="num">222</td>
                     <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          private$observers$selection_api &lt;-</pre>
+                      <pre class="language-r">          finite_values &lt;- Filter(is.finite, private$x_reactive())</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">537</td>
+                    <td class="num">223</td>
                     <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            observeEvent(</pre>
+                      <pre class="language-r">          if (!identical(finite_values, numeric(0))) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">538</td>
+                    <td class="num">224</td>
                     <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ignoreNULL = FALSE,</pre>
+                      <pre class="language-r">            list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">539</td>
+                    <td class="num">225</td>
                     <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ignoreInit = TRUE,</pre>
+                      <pre class="language-r">              x = finite_values,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">540</td>
+                    <td class="num">226</td>
                     <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              eventExpr = private$get_selected(),</pre>
+                      <pre class="language-r">              bingroup = 1,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">541</td>
+                    <td class="num">227</td>
                     <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              handlerExpr = {</pre>
+                      <pre class="language-r">              color = I(fetch_bs_color("primary"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">542</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">228</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                logger::log_trace("RangeFilterState$server@2 state changed, id: {private$get_id() }")</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">543</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">229</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                if (!isTRUE(all.equal(private$get_selected(), selection_manual()))) {</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">544</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">230</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  shinyWidgets::updateNumericRangeInput(</pre>
+                      <pre class="language-r">        })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">545</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">231</td>
+                    <td class="coverage">114<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    session = session,</pre>
+                      <pre class="language-r">        invisible(self)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">546</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">232</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    inputId = "selection_manual",</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">547</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">233</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    value = private$get_selected()</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">548</td>
+                    <td class="num">234</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">549</td>
+                    <td class="num">235</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">550</td>
+                    <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              }</pre>
+                      <pre class="language-r">    #' Returns reproducible condition call for current selection.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">551</td>
+                    <td class="num">237</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">    #' For this class returned call looks like</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">552</td>
+                    <td class="num">238</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' `&lt;varname&gt; &gt;= &lt;min value&gt; &amp; &lt;varname&gt; &lt;= &lt;max value&gt;` with</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">553</td>
+                    <td class="num">239</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # Manual input updates selection.</pre>
+                      <pre class="language-r">    #' optional `is.na(&lt;varname&gt;)` and `is.finite(&lt;varname&gt;)`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">554</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">240</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          private$observers$selection_manual &lt;- observeEvent(</pre>
+                      <pre class="language-r">    #' @param dataname name of data set; defaults to `private$get_dataname()`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">555</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">241</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ignoreNULL = FALSE,</pre>
+                      <pre class="language-r">    #' @return `call`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">556</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">242</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ignoreInit = TRUE,</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">557</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">243</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            eventExpr = selection_manual(),</pre>
+                      <pre class="language-r">    get_call = function(dataname) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">558</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">244</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            handlerExpr = {</pre>
+                      <pre class="language-r">      if (isFALSE(private$is_any_filtered())) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">559</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">245</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              selection &lt;- selection_manual()</pre>
+                      <pre class="language-r">        return(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">560</td>
+                    <td class="num">246</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              # Abort and reset if non-numeric values is entered.</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">561</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">247</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              if (any(is.na(selection))) {</pre>
+                      <pre class="language-r">      if (missing(dataname)) dataname &lt;- private$get_dataname()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">562</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">248</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                showNotification(</pre>
+                      <pre class="language-r">      varname &lt;- private$get_varname_prefixed(dataname)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">563</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">249</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  "Numeric range values must be numbers.",</pre>
+                      <pre class="language-r">      filter_call &lt;-</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">564</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">250</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  type = "warning"</pre>
+                      <pre class="language-r">        call(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">565</td>
+                    <td class="num">251</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                )</pre>
+                      <pre class="language-r">          "&amp;",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">566</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">252</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                shinyWidgets::updateNumericRangeInput(</pre>
+                      <pre class="language-r">          call("&gt;=", varname, private$get_selected()[1L]),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">567</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">253</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  session = session,</pre>
+                      <pre class="language-r">          call("&lt;=", varname, private$get_selected()[2L])</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">568</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">254</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  inputId = "selection_manual",</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">569</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">255</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  value = private$get_selected()</pre>
+                      <pre class="language-r">      private$add_keep_na_call(private$add_keep_inf_call(filter_call, varname), varname)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">570</td>
+                    <td class="num">256</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">571</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">257</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">572</td>
+                    <td class="num">258</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">573</td>
+                    <td class="num">259</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' Returns current `keep_inf` selection.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">574</td>
+                    <td class="num">260</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              # Abort and reset if reversed choices are specified.</pre>
+                      <pre class="language-r">    #' @return `logical(1)`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">575</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">261</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              if (selection[1] &gt; selection[2]) {</pre>
+                      <pre class="language-r">    get_keep_inf = function() {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">576</td>
+                    <td class="num">262</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                showNotification(</pre>
+                      <pre class="language-r">      private$teal_slice$keep_inf</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">577</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">263</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  "Numeric range start value must be less than end value.",</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">578</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">264</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  type = "warning"</pre>
+                      <pre class="language-r">  ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">579</td>
+                    <td class="num">265</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">580</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">266</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                shinyWidgets::updateNumericRangeInput(</pre>
+                      <pre class="language-r">  # private fields----</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">581</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">267</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  session = session,</pre>
+                      <pre class="language-r">  private = list(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">582</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">268</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  inputId = "selection_manual",</pre>
+                      <pre class="language-r">    inf_count = integer(0),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">583</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">269</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  value = private$get_selected()</pre>
+                      <pre class="language-r">    inf_filtered_count = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">584</td>
+                    <td class="num">270</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                )</pre>
+                      <pre class="language-r">    is_integer = logical(0),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">585</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">271</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                return(NULL)</pre>
+                      <pre class="language-r">    numeric_step = numeric(0), # step for the slider input widget, calculated from input data (x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">586</td>
+                    <td class="num">272</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              }</pre>
+                      <pre class="language-r">    plot_data = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">587</td>
+                    <td class="num">273</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    plot_mask = list(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">588</td>
+                    <td class="num">274</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    plot_layout = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">589</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">275</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              if (!isTRUE(all.equal(selection, private$get_selected()))) {</pre>
+                      <pre class="language-r">    plot_config = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">590</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">276</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                logger::log_trace("RangeFilterState$server@3 manual selection changed, id: { private$get_id() }")</pre>
+                      <pre class="language-r">    plot_filtered = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">591</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">277</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                private$set_selected(selection)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">592</td>
+                    <td class="num">278</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">593</td>
+                    <td class="num">279</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">594</td>
+                    <td class="num">280</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">    set_choices = function(choices) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">595</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">281</td>
+                    <td class="coverage">117<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      x &lt;- private$x[is.finite(private$x)]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">596</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">282</td>
+                    <td class="coverage">117<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          private$keep_inf_srv("keep_inf")</pre>
+                      <pre class="language-r">      if (is.null(choices)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">597</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">283</td>
+                    <td class="coverage">105<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          private$keep_na_srv("keep_na")</pre>
+                      <pre class="language-r">        choices &lt;- range(x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">598</td>
+                    <td class="num">284</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">599</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">285</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_trace("RangeFilterState$server initialized, id: { private$get_id() }")</pre>
+                      <pre class="language-r">        choices_adjusted &lt;- c(max(choices[1L], min(x)), min(choices[2L], max(x)))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">600</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">286</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          NULL</pre>
+                      <pre class="language-r">        if (any(choices != choices_adjusted)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">601</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">287</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">          warning(sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">602</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">288</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">            "Choices adjusted (some values outside of variable range). Varname: %s, dataname: %s.",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">603</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">289</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">            private$get_varname(), private$get_dataname()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">604</td>
+                    <td class="num">290</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server_inputs_fixed = function(id) {</pre>
+                      <pre class="language-r">          ))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">605</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">291</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      moduleServer(</pre>
+                      <pre class="language-r">          choices &lt;- choices_adjusted</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">606</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">292</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = id,</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">607</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">293</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        function(input, output, session) {</pre>
+                      <pre class="language-r">        if (choices[1L] &gt; choices[2L]) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">608</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">294</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_trace("RangeFilterState$server initializing, id: { private$get_id() }")</pre>
+                      <pre class="language-r">          warning(sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">609</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">295</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            "Invalid choices: lower is higher / equal to upper, or not in range of variable values.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">610</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">296</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          plot_config &lt;- private$plot_config()</pre>
+                      <pre class="language-r">            Setting defaults. Varname: %s, dataname: %s.",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">611</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">297</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          plot_config$staticPlot &lt;- TRUE</pre>
+                      <pre class="language-r">            private$get_varname(), private$get_dataname()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">612</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="missed">
-                    <td class="num">613</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">299</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          output$plot &lt;- plotly::renderPlotly({</pre>
+                      <pre class="language-r">          choices &lt;- range(x)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">614</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">300</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            histogram &lt;- do.call(plotly::plot_ly, private$plot_data)</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">615</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">301</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            histogram &lt;- do.call(plotly::layout, c(list(p = histogram), private$plot_layout()))</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">616</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">302</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            histogram &lt;- do.call(plotly::config, c(list(p = histogram), plot_config))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">617</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">303</td>
+                    <td class="coverage">117<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            histogram &lt;- do.call(plotly::add_histogram, c(list(p = histogram), private$plot_filtered()))</pre>
+                      <pre class="language-r">      private$set_is_choice_limited(private$x, choices)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">618</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">304</td>
+                    <td class="coverage">117<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            histogram</pre>
+                      <pre class="language-r">      private$x &lt;- private$x[</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">305</td>
+                    <td class="coverage">117<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        (private$x &gt;= choices[1L] &amp; private$x &lt;= choices[2L]) | is.na(private$x) | !is.finite(private$x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">619</td>
+                    <td class="num">306</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          })</pre>
+                      <pre class="language-r">      ]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">620</td>
+                    <td class="num">307</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">621</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">308</td>
+                    <td class="coverage">117<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          output$selection &lt;- renderUI({</pre>
+                      <pre class="language-r">      x_range &lt;- range(private$x, finite = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">622</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">309</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            shinycssloaders::withSpinner(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">623</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">310</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              plotly::plotlyOutput(session$ns("plot"), height = "50px"),</pre>
+                      <pre class="language-r">      # Required for displaying ticks on the slider, can modify choices!</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">624</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">311</td>
+                    <td class="coverage">117<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              type = 4,</pre>
+                      <pre class="language-r">      if (identical(diff(x_range), 0)) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">625</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">312</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              size = 0.25</pre>
+                      <pre class="language-r">        choices &lt;- x_range</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">626</td>
+                    <td class="num">313</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">627</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">314</td>
+                    <td class="coverage">115<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          })</pre>
+                      <pre class="language-r">        x_pretty &lt;- pretty(x_range, 100L)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">315</td>
+                    <td class="coverage">115<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        choices &lt;- range(x_pretty)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">316</td>
+                    <td class="coverage">115<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        private$numeric_step &lt;- signif(private$get_pretty_range_step(x_pretty), digits = 10)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">628</td>
+                    <td class="num">317</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">629</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">318</td>
+                    <td class="coverage">117<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_trace("RangeFilterState$server initialized, id: { private$get_id() }")</pre>
+                      <pre class="language-r">      private$teal_slice$choices &lt;- choices</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">630</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">319</td>
+                    <td class="coverage">117<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          NULL</pre>
+                      <pre class="language-r">      invisible(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">631</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">632</td>
+                    <td class="num">321</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">633</td>
+                    <td class="num">322</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">634</td>
+                    <td class="num">323</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # Check whether the initial choices filter out some values of x and set the flag in case.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">635</td>
+                    <td class="num">324</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @description</pre>
+                      <pre class="language-r">    set_is_choice_limited = function(xl, choices) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">636</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">325</td>
+                    <td class="coverage">117<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Server module to display filter summary</pre>
+                      <pre class="language-r">      xl &lt;- xl[!is.na(xl)]</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">326</td>
+                    <td class="coverage">117<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      xl &lt;- xl[is.finite(xl)]</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">327</td>
+                    <td class="coverage">117<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      private$is_choice_limited &lt;- (any(xl &lt; choices[1L]) | any(xl &gt; choices[2L]))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">328</td>
+                    <td class="coverage">117<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      invisible(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">637</td>
+                    <td class="num">329</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #  renders text describing selected range and</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">638</td>
+                    <td class="num">330</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #  if NA or Inf are included also</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">639</td>
+                    <td class="num">331</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @return `shiny.tag` to include in the `ui_summary`</pre>
+                      <pre class="language-r">    # Adds is.infinite(varname) before existing condition calls if keep_inf is selected</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">640</td>
+                    <td class="num">332</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    content_summary = function() {</pre>
+                      <pre class="language-r">    # returns a call</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">641</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">333</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      selection &lt;- private$get_selected()</pre>
+                      <pre class="language-r">    add_keep_inf_call = function(filter_call, varname) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">642</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">334</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tagList(</pre>
+                      <pre class="language-r">      if (isTRUE(private$get_keep_inf())) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">643</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        tags$span(HTML(selection[1], "&amp;ndash;", selection[2]), class = "filter-card-summary-value"),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">644</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        tags$span(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">645</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          class = "filter-card-summary-controls",</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">646</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          if (private$na_count &gt; 0) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">647</td>
-                    <td class="coverage">!</td>
+                    <td class="num">335</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            tags$span("NA", if (isTRUE(private$get_keep_na())) icon("check") else icon("xmark"))</pre>
+                      <pre class="language-r">        call("|", call("is.infinite", varname), filter_call)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">648</td>
+                    <td class="num">336</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">649</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          if (private$inf_count &gt; 0) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">650</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            tags$span("Inf", if (isTRUE(private$get_keep_inf())) icon("check") else icon("xmark"))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">651</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">652</td>
-                    <td class="coverage"></td>
+                    <td class="num">337</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">        filter_call</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">653</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">654</td>
+                    <td class="num">339</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">655</td>
+                    <td class="num">340</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">656</td>
+                    <td class="num">341</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @description</pre>
+                      <pre class="language-r">    # @description gets pretty step size for range slider</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">657</td>
+                    <td class="num">342</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Module displaying input to keep or remove NA in the `FilterState` call.</pre>
+                      <pre class="language-r">    #  adaptation of shiny's method (see shiny/R/input-slider.R function findStepSize)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">658</td>
+                    <td class="num">343</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Renders a checkbox input only when variable with which the `FilterState` has been created contains Infs.</pre>
+                      <pre class="language-r">    # @param pretty_range (numeric(n)) vector of pretty values</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">659</td>
+                    <td class="num">344</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @param id (`character(1)`) `shiny` module instance id.</pre>
+                      <pre class="language-r">    # @return numeric(1) pretty step size for the sliderInput</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">660</td>
+                    <td class="num">345</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    keep_inf_ui = function(id) {</pre>
+                      <pre class="language-r">    get_pretty_range_step = function(pretty_range) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">661</td>
-                    <td class="coverage">5<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">662</td>
-                    <td class="coverage"></td>
+                    <td class="num">346</td>
+                    <td class="coverage">117<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      if (private$is_integer &amp;&amp; diff(range(pretty_range) &gt; 2)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">663</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">347</td>
+                    <td class="coverage">46<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (private$inf_count &gt; 0) {</pre>
+                      <pre class="language-r">        return(1L)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">664</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">348</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        countmax &lt;- private$na_count</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">665</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">349</td>
+                    <td class="coverage">71<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        countnow &lt;- isolate(private$filtered_na_count())</pre>
+                      <pre class="language-r">        n_steps &lt;- length(pretty_range) - 1</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">666</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">350</td>
+                    <td class="coverage">71<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ui_input &lt;- checkboxInput(</pre>
+                      <pre class="language-r">        return(signif(digits = 10, (max(pretty_range) - min(pretty_range)) / n_steps))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">667</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">351</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          inputId = ns("value"),</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">668</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">352</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label = tags$span(</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">669</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">353</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            id = ns("count_label"),</pre>
+                      <pre class="language-r">    cast_and_validate = function(values) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">670</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">354</td>
+                    <td class="coverage">133<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            make_count_text(</pre>
+                      <pre class="language-r">      tryCatch(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">671</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">355</td>
+                    <td class="coverage">133<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              label = "Keep Inf",</pre>
+                      <pre class="language-r">        expr = {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">672</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">356</td>
+                    <td class="coverage">133<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              countmax = countmax,</pre>
+                      <pre class="language-r">          values &lt;- as.numeric(values)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">673</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">357</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              countnow = countnow</pre>
+                      <pre class="language-r">          if (anyNA(values)) stop()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">674</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">358</td>
+                    <td class="coverage">129<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">          values</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">675</td>
+                    <td class="num">359</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">676</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">360</td>
+                    <td class="coverage">133<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          value = isolate(private$get_keep_inf())</pre>
+                      <pre class="language-r">        error = function(e) stop("Vector of set values must contain values coercible to numeric")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">677</td>
+                    <td class="num">361</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">678</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">679</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">362</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          uiOutput(ns("trigger_visible"), inline = TRUE),</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">680</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">363</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ui_input</pre>
+                      <pre class="language-r">    # Also validates that selection is sorted.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">681</td>
+                    <td class="num">364</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    check_length = function(values) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">682</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">365</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">      if (length(values) != 2L) stop("Vector of set values must have length two.")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">683</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">366</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        NULL</pre>
+                      <pre class="language-r">      if (values[1L] &gt; values[2L]) stop("Vector of set values must be sorted.")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">684</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">367</td>
+                    <td class="coverage">125<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">      values</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">685</td>
+                    <td class="num">368</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">686</td>
+                    <td class="num">369</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # Trim selection to limits imposed by private$get_choices()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">687</td>
+                    <td class="num">370</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @description</pre>
+                      <pre class="language-r">    remove_out_of_bounds_values = function(values) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">688</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">371</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Module to handle Inf values in the FilterState</pre>
+                      <pre class="language-r">      if (values[1L] &lt; private$get_choices()[1L]) values[1L] &lt;- private$get_choices()[1L]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">689</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">372</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Sets `private$slice$keep_inf` according to the selection</pre>
+                      <pre class="language-r">      if (values[2L] &gt; private$get_choices()[2L]) values[2L] &lt;- private$get_choices()[2L]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">690</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">373</td>
+                    <td class="coverage">125<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # and updates the relevant UI element if `private$slice$keep_inf` has been changed by the api.</pre>
+                      <pre class="language-r">      values</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">691</td>
+                    <td class="num">374</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @param id (`character(1)`) `shiny` module instance id.</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">692</td>
+                    <td class="num">375</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">693</td>
+                    <td class="num">376</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    keep_inf_srv = function(id) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">694</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      moduleServer(id, function(input, output, session) {</pre>
+                      <pre class="language-r">    # Answers the question of whether the current settings and values selected actually filters out any values.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">695</td>
+                    <td class="num">377</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # 1. renderUI is used here as an observer which triggers only if output is visible</pre>
+                      <pre class="language-r">    # @return logical scalar</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">696</td>
+                    <td class="num">378</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        #  and if the reactive changes - reactive triggers only if the output is visible.</pre>
+                      <pre class="language-r">    is_any_filtered = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">697</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">379</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # 2. We want to trigger change of the labels only if reactive count changes (not underlying data)</pre>
+                      <pre class="language-r">      if (private$is_choice_limited) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">698</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">380</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        output$trigger_visible &lt;- renderUI({</pre>
+                      <pre class="language-r">        TRUE</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">699</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">381</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          updateCountText(</pre>
+                      <pre class="language-r">      } else if (!isTRUE(all.equal(private$get_selected(), private$get_choices()))) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">700</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">382</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            inputId = "count_label",</pre>
+                      <pre class="language-r">        TRUE</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">701</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">383</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            label = "Keep Inf",</pre>
+                      <pre class="language-r">      } else if (!isTRUE(private$get_keep_inf()) &amp;&amp; private$inf_count &gt; 0) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">384</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        TRUE</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">702</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">385</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            countmax = private$inf_count,</pre>
+                      <pre class="language-r">      } else if (!isTRUE(private$get_keep_na()) &amp;&amp; private$na_count &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">703</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">386</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            countnow = private$inf_filtered_count()</pre>
+                      <pre class="language-r">        TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">704</td>
+                    <td class="num">387</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">705</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">388</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          NULL</pre>
+                      <pre class="language-r">        FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">706</td>
+                    <td class="num">389</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        })</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">707</td>
+                    <td class="num">390</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">708</td>
+                    <td class="num">391</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # this observer is needed in the situation when private$teal_slice$keep_inf has been</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">709</td>
+                    <td class="num">392</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # changed directly by the api - then it's needed to rerender UI element</pre>
+                      <pre class="language-r">    # obtain shape determination for histogram</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">710</td>
+                    <td class="num">393</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # to show relevant values</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">711</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        private$observers$keep_inf_api &lt;- observeEvent(</pre>
+                      <pre class="language-r">    # returns a list that is passed to plotly's layout.shapes property</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">712</td>
-                    <td class="coverage">5<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">          ignoreNULL = TRUE, # its not possible for range that NULL is selected</pre>
+                      <pre class="language-r">    get_shape_properties = function(values) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">713</td>
+                    <td class="num">395</td>
                     <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ignoreInit = TRUE, # ignoreInit: should not matter because we set the UI with the desired initial state</pre>
+                      <pre class="language-r">      list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">714</td>
+                    <td class="num">396</td>
                     <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          eventExpr = private$get_keep_inf(),</pre>
+                      <pre class="language-r">        list(type = "line", x0 = values[1], x1 = values[1], y0 = -100, y1 = 100, yref = "paper"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">715</td>
+                    <td class="num">397</td>
                     <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          handlerExpr = {</pre>
+                      <pre class="language-r">        list(type = "line", x0 = values[2], x1 = values[2], y0 = -100, y1 = 100, yref = "paper")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">716</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">398</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (!setequal(private$get_keep_inf(), input$value)) {</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">717</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">399</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              logger::log_trace("RangeFilterState$keep_inf_srv@1 changed reactive value, id: { private$get_id() }")</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">718</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">400</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              updateCheckboxInput(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">719</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">401</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                inputId = "value",</pre>
+                      <pre class="language-r">    # shiny modules ----</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">720</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">402</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                value = private$get_keep_inf()</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">721</td>
+                    <td class="num">403</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r">    # UI Module for `RangeFilterState`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">722</td>
+                    <td class="num">404</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">    # This UI element contains two values for `min` and `max`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">723</td>
+                    <td class="num">405</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">    # of the range and two checkboxes whether to keep the `NA` or `Inf`  values.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">724</td>
+                    <td class="num">406</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    # @param id (`character(1)`) `shiny` module instance id.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">725</td>
+                    <td class="num">407</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    ui_inputs = function(id) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">726</td>
+                    <td class="num">408</td>
                     <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$observers$keep_inf &lt;- observeEvent(</pre>
+                      <pre class="language-r">      ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">727</td>
+                    <td class="num">409</td>
                     <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ignoreNULL = TRUE, # it's not possible for range that NULL is selected</pre>
+                      <pre class="language-r">      isolate({</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">728</td>
+                    <td class="num">410</td>
                     <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ignoreInit = TRUE, # ignoreInit: should not matter because we set the UI with the desired initial state</pre>
+                      <pre class="language-r">        ui_input &lt;- shinyWidgets::numericRangeInput(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">729</td>
+                    <td class="num">411</td>
                     <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          eventExpr = input$value,</pre>
+                      <pre class="language-r">          inputId = ns("selection_manual"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">730</td>
+                    <td class="num">412</td>
                     <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          handlerExpr = {</pre>
+                      <pre class="language-r">          label = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">731</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">413</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            logger::log_trace("FilterState$keep_na_srv@2 changed input, id: { private$get_id() }")</pre>
+                      <pre class="language-r">          min = private$get_choices()[1L],</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">732</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">414</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            keep_inf &lt;- input$value</pre>
+                      <pre class="language-r">          max = private$get_choices()[2L],</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">733</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">415</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            private$set_keep_inf(keep_inf)</pre>
+                      <pre class="language-r">          value = private$get_selected(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">734</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">416</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">          step = private$numeric_step,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">417</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          width = "100%"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">735</td>
+                    <td class="num">418</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">736</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">419</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        tagList(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">737</td>
+                    <td class="num">420</td>
                     <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        invisible(NULL)</pre>
+                      <pre class="language-r">          tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">738</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">421</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">            class = "choices_state",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">739</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">422</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">            tags$head(tags$script(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">740</td>
+                    <td class="num">423</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">              # Inline JS code for popover functionality.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">741</td>
+                    <td class="num">424</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">              # Adding the script inline because when added from a file with include_js_files(),</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/FilterStates-utils.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">425</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Initialize `FilterStates` object</pre>
+                      <pre class="language-r">              # it only works in the first info_button instance and not others.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">426</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">              HTML(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">427</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param data (`data.frame` or `MultiAssayExperiment` or `SummarizedExperiment` or `matrix`)</pre>
+                      <pre class="language-r">                '$(document).ready(function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">428</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   object to subset.</pre>
+                      <pre class="language-r">                  $("[data-toggle=\'popover\']").popover();</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">429</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param data_reactive (`function(sid)`)</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">430</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   should return an object of the same type as `data` or `NULL`.</pre>
+                      <pre class="language-r">                  $(document).on("click", function (e) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">431</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   This function is needed for the `FilterState` `shiny` module to update counts if filtered data changes.</pre>
+                      <pre class="language-r">                    if (!$("[data-toggle=\'popover\']").is(e.target) &amp;&amp;</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">432</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   If function returns `NULL` then filtered counts are not shown.</pre>
+                      <pre class="language-r">                        $("[data-toggle=\'popover\']").has(e.target).length === 0 &amp;&amp;</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">433</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Function has to have `sid` argument being a character which is related to `sid` argument in the `get_call` method.</pre>
+                      <pre class="language-r">                        $(".popover").has(e.target).length === 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">434</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param dataname (`character(1)`)</pre>
+                      <pre class="language-r">                      $("[data-toggle=\'popover\']").popover("hide");</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">435</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   name of the data used in the subset expression,</pre>
+                      <pre class="language-r">                    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">436</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   passed to the function argument attached to this `FilterStates`.</pre>
+                      <pre class="language-r">                  });</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">437</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param datalabel (`character(1)`) optional</pre>
+                      <pre class="language-r">                });'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">438</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   text label.</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">439</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ... optional,</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">440</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   additional arguments for specific classes: keys.</pre>
+                      <pre class="language-r">            tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">441</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">              actionLink(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">442</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Object of class `FilterStates`.</pre>
+                      <pre class="language-r">                ns("plotly_info"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">443</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                label = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">444</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">                icon = icon("question-circle"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">445</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">                "data-toggle" = "popover",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">446</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # use non-exported function from teal.slice</pre>
+                      <pre class="language-r">                "data-html" = "true",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">447</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' init_filter_states &lt;- getFromNamespace("init_filter_states", "teal.slice")</pre>
+                      <pre class="language-r">                "data-placement" = "left",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">448</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                "data-trigger" = "click",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">449</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df &lt;- data.frame(</pre>
+                      <pre class="language-r">                "data-title" = "Plot actions",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">450</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   character = letters,</pre>
+                      <pre class="language-r">                "data-content" = "&lt;p&gt;</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">451</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   numeric = seq_along(letters),</pre>
+                      <pre class="language-r">                                  Drag vertical lines to set selection.&lt;br&gt;</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">452</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   date = seq(Sys.Date(), length.out = length(letters), by = "1 day"),</pre>
+                      <pre class="language-r">                                  Drag across plot to zoom in.&lt;br&gt;</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">453</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   datetime = seq(Sys.time(), length.out = length(letters), by = "33.33 hours")</pre>
+                      <pre class="language-r">                                  Drag axis to pan.&lt;br&gt;</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">454</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">                                  Double click to zoom out."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">455</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' rf &lt;- init_filter_states(</pre>
+                      <pre class="language-r">              ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">456</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = df,</pre>
+                      <pre class="language-r">              style = "text-align: right; font-size: 0.7em; margin-bottom: -1em; position: relative; z-index: 9;"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">457</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   dataname = "DF"</pre>
+                      <pre class="language-r">            ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">458</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">            shinycssloaders::withSpinner(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">459</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">              plotly::plotlyOutput(ns("plot"), height = "50px"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">460</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(shiny)</pre>
+                      <pre class="language-r">              type = 4,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">461</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
+                      <pre class="language-r">              size = 0.25,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">462</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   actionButton("clear", tags$span(icon("xmark"), "Remove all filters")),</pre>
+                      <pre class="language-r">              hide.ui = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">463</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   rf$ui_add(id = "add"),</pre>
+                      <pre class="language-r">            ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">40</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">464</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   rf$ui_active("states"),</pre>
+                      <pre class="language-r">            ui_input</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">465</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   verbatimTextOutput("expr"),</pre>
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">42</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">466</td>
+                    <td class="coverage">5<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">43</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">467</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            class = "filter-card-body-keep-na-inf",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">468</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' server &lt;- function(input, output, session) {</pre>
+                      <pre class="language-r">            private$keep_inf_ui(ns("keep_inf")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">45</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">469</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   rf$srv_add(id = "add")</pre>
+                      <pre class="language-r">            private$keep_na_ui(ns("keep_na"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">470</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   rf$srv_active(id = "states")</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">471</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   output$expr &lt;- renderText({</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">472</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     deparse1(rf$get_call(), collapse = "\n")</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">473</td>
                     <td class="coverage"></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="num">474</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   observeEvent(input$clear, rf$clear_filter_states())</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">475</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">52</td>
+                    <td class="num">476</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    # Server module</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">477</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">    # @param id (`character(1)`) `shiny` module instance id.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">478</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
+                      <pre class="language-r">    # return `NULL`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">479</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">    server_inputs = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">56</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">480</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      moduleServer(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">57</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">481</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">        id = id,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">58</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">482</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">59</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">483</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">init_filter_states &lt;- function(data,</pre>
+                      <pre class="language-r">          logger::log_trace("RangeFilterState$server initializing, id: { private$get_id() }")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">484</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               data_reactive = reactive(NULL),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">485</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               dataname,</pre>
+                      <pre class="language-r">          # Capture manual input with debounce.</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">486</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          selection_manual &lt;- debounce(reactive(input$selection_manual), 200)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">487</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               datalabel = NULL,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">488</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               ...) {</pre>
+                      <pre class="language-r">          # Prepare for histogram construction.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">64</td>
-                    <td class="coverage">229<em>x</em></td>
+                    <td class="num">489</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  UseMethod("init_filter_states")</pre>
+                      <pre class="language-r">          plot_data &lt;- c(private$plot_data, source = session$ns("histogram_plot"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">490</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">491</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          # Display histogram, adding a second trace that contains filtered data.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">67</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">492</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">          output$plot &lt;- plotly::renderPlotly({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">68</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">493</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">            histogram &lt;- do.call(plotly::plot_ly, plot_data)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">69</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">494</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">init_filter_states.data.frame &lt;- function(data, # nolint</pre>
+                      <pre class="language-r">            histogram &lt;- do.call(plotly::layout, c(list(p = histogram), private$plot_layout()))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">70</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">495</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          data_reactive = function(sid = "") NULL,</pre>
+                      <pre class="language-r">            histogram &lt;- do.call(plotly::config, c(list(p = histogram), private$plot_config()))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">71</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">496</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          dataname,</pre>
+                      <pre class="language-r">            histogram &lt;- do.call(plotly::add_histogram, c(list(p = histogram), private$plot_filtered()))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">497</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            histogram</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">498</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          datalabel = NULL,</pre>
+                      <pre class="language-r">          })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">499</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          keys = character(0),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">500</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          ...) {</pre>
+                      <pre class="language-r">          # Dragging shapes (lines) on plot updates selection.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">75</td>
-                    <td class="coverage">100<em>x</em></td>
+                    <td class="num">501</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  DFFilterStates$new(</pre>
+                      <pre class="language-r">          private$observers$relayout &lt;-</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">76</td>
-                    <td class="coverage">100<em>x</em></td>
+                    <td class="num">502</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data = data,</pre>
+                      <pre class="language-r">            observeEvent(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">77</td>
-                    <td class="coverage">100<em>x</em></td>
+                    <td class="num">503</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data_reactive = data_reactive,</pre>
+                      <pre class="language-r">              ignoreNULL = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">78</td>
-                    <td class="coverage">100<em>x</em></td>
+                    <td class="num">504</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataname = dataname,</pre>
+                      <pre class="language-r">              ignoreInit = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">79</td>
-                    <td class="coverage">100<em>x</em></td>
+                    <td class="num">505</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datalabel = datalabel,</pre>
+                      <pre class="language-r">              eventExpr = plotly::event_data("plotly_relayout", source = session$ns("histogram_plot")),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">80</td>
-                    <td class="coverage">100<em>x</em></td>
+                    <td class="num">506</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    keys = keys</pre>
+                      <pre class="language-r">              handlerExpr = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">81</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">507</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_trace("RangeFilterState$server@1 selection changed, id: { private$get_id() }")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">82</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">508</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">                event &lt;- plotly::event_data("plotly_relayout", source = session$ns("histogram_plot"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">83</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">509</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                if (any(grepl("shapes", names(event)))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">84</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">510</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">                  line_positions &lt;- private$get_selected()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">85</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">511</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                  if (any(grepl("shapes[0]", names(event), fixed = TRUE))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">86</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">512</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">init_filter_states.matrix &lt;- function(data, # nolint</pre>
+                      <pre class="language-r">                    line_positions[1] &lt;- event[["shapes[0].x0"]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">87</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">513</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      data_reactive = function(sid = "") NULL,</pre>
+                      <pre class="language-r">                  } else if (any(grepl("shapes[1]", names(event), fixed = TRUE))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">88</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">514</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      dataname,</pre>
+                      <pre class="language-r">                    line_positions[2] &lt;- event[["shapes[1].x0"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">515</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      datalabel = NULL,</pre>
+                      <pre class="language-r">                  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">516</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      ...) {</pre>
+                      <pre class="language-r">                  # If one line was dragged past the other, abort action and reset lines.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">91</td>
-                    <td class="coverage">22<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">517</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  MatrixFilterStates$new(</pre>
+                      <pre class="language-r">                  if (line_positions[1] &gt; line_positions[2]) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">92</td>
-                    <td class="coverage">22<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">518</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data = data,</pre>
+                      <pre class="language-r">                    showNotification(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">93</td>
-                    <td class="coverage">22<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">519</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data_reactive = data_reactive,</pre>
+                      <pre class="language-r">                      "Numeric range start value must be less than end value.",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">94</td>
-                    <td class="coverage">22<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">520</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataname = dataname,</pre>
+                      <pre class="language-r">                      type = "warning"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">95</td>
-                    <td class="coverage">22<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">521</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datalabel = datalabel</pre>
+                      <pre class="language-r">                    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">96</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">522</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">                    plotly::plotlyProxyInvoke(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">97</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">523</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">                      plotly::plotlyProxy("plot"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">98</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">524</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                      "relayout",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">99</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">525</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">                      shapes = private$get_shape_properties(private$get_selected())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">526</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">101</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">527</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">init_filter_states.MultiAssayExperiment &lt;- function(data, # nolint</pre>
+                      <pre class="language-r">                    return(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">528</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                    data_reactive = function(sid = "") NULL,</pre>
+                      <pre class="language-r">                  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">529</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                    dataname,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">104</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">530</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                    datalabel = "subjects",</pre>
+                      <pre class="language-r">                  private$set_selected(signif(line_positions, digits = 4L))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">531</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                    keys = character(0),</pre>
+                      <pre class="language-r">                }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">532</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">107</td>
-                    <td class="coverage">22<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">533</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!requireNamespace("MultiAssayExperiment", quietly = TRUE)) {</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">108</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">534</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("Cannot load MultiAssayExperiment - please install the package or restart your session.")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">535</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">          # Change in selection updates shapes (lines) on plot and numeric input.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">110</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">536</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  MAEFilterStates$new(</pre>
+                      <pre class="language-r">          private$observers$selection_api &lt;-</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">111</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">537</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data = data,</pre>
+                      <pre class="language-r">            observeEvent(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">112</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">538</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data_reactive = data_reactive,</pre>
+                      <pre class="language-r">              ignoreNULL = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">113</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">539</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataname = dataname,</pre>
+                      <pre class="language-r">              ignoreInit = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">114</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">540</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datalabel = datalabel,</pre>
+                      <pre class="language-r">              eventExpr = private$get_selected(),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">115</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">541</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    keys = keys</pre>
+                      <pre class="language-r">              handlerExpr = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">116</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">542</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">                logger::log_trace("RangeFilterState$server@2 state changed, id: {private$get_id() }")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">117</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">543</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">                if (!isTRUE(all.equal(private$get_selected(), selection_manual()))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">118</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">544</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                  shinyWidgets::updateNumericRangeInput(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">119</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">545</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">                    session = session,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">120</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">546</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                    inputId = "selection_manual",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">121</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">547</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">init_filter_states.SummarizedExperiment &lt;- function(data, # nolint</pre>
+                      <pre class="language-r">                    value = private$get_selected()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">548</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                    data_reactive = function(sid = "") NULL,</pre>
+                      <pre class="language-r">                  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">549</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                    dataname,</pre>
+                      <pre class="language-r">                }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">550</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                    datalabel = NULL,</pre>
+                      <pre class="language-r">              }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">551</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                    ...) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">126</td>
-                    <td class="coverage">85<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (!requireNamespace("SummarizedExperiment", quietly = TRUE)) {</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">127</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">552</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("Cannot load SummarizedExperiment - please install the package or restart your session.")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">553</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">          # Manual input updates selection.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">129</td>
-                    <td class="coverage">85<em>x</em></td>
+                    <td class="num">554</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  SEFilterStates$new(</pre>
+                      <pre class="language-r">          private$observers$selection_manual &lt;- observeEvent(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">130</td>
-                    <td class="coverage">85<em>x</em></td>
+                    <td class="num">555</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data = data,</pre>
+                      <pre class="language-r">            ignoreNULL = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">131</td>
-                    <td class="coverage">85<em>x</em></td>
+                    <td class="num">556</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data_reactive = data_reactive,</pre>
+                      <pre class="language-r">            ignoreInit = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">85<em>x</em></td>
+                    <td class="num">557</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataname = dataname,</pre>
+                      <pre class="language-r">            eventExpr = selection_manual(),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">133</td>
-                    <td class="coverage">85<em>x</em></td>
+                    <td class="num">558</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datalabel = datalabel</pre>
+                      <pre class="language-r">            handlerExpr = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">134</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">559</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">              selection &lt;- selection_manual()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">560</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">              # Abort and reset if non-numeric values is entered.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">136</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">561</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">              if (any(is.na(selection))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">137</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">562</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Gets supported filterable variable names</pre>
+                      <pre class="language-r">                showNotification(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">138</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">563</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                  "Numeric range values must be numbers.",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">139</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">564</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Gets filterable variable names from a given object. The names match variables</pre>
+                      <pre class="language-r">                  type = "warning"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">565</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' of classes in an vector `teal.slice:::.filterable_class`.</pre>
+                      <pre class="language-r">                )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">141</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">566</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param data</pre>
+                      <pre class="language-r">                shinyWidgets::updateNumericRangeInput(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">142</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">567</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the `R` object containing elements which class can be checked through `vapply` or `apply`.</pre>
+                      <pre class="language-r">                  session = session,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">143</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">568</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `character` vector of variable names.</pre>
+                      <pre class="language-r">                  inputId = "selection_manual",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">144</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">569</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">                  value = private$get_selected()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">570</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # use non-exported function from teal.slice</pre>
+                      <pre class="language-r">                )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">146</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">571</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' get_supported_filter_varnames &lt;- getFromNamespace("get_supported_filter_varnames", "teal.slice")</pre>
+                      <pre class="language-r">                return(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">572</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">              }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">573</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df &lt;- data.frame(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">574</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   a = letters[1:3],</pre>
+                      <pre class="language-r">              # Abort and reset if reversed choices are specified.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">150</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">575</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   b = 1:3,</pre>
+                      <pre class="language-r">              if (selection[1] &gt; selection[2]) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">151</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">576</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   c = Sys.Date() + 1:3,</pre>
+                      <pre class="language-r">                showNotification(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">152</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">577</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   d = Sys.time() + 1:3,</pre>
+                      <pre class="language-r">                  "Numeric range start value must be less than end value.",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">153</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">578</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   z = complex(3)</pre>
+                      <pre class="language-r">                  type = "warning"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">579</td>
                     <td class="coverage"></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="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">580</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' get_supported_filter_varnames(df)</pre>
+                      <pre class="language-r">                shinyWidgets::updateNumericRangeInput(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">156</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">581</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">                  session = session,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">157</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">582</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                  inputId = "selection_manual",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">583</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                  value = private$get_selected()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">584</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_supported_filter_varnames &lt;- function(data) {</pre>
+                      <pre class="language-r">                )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">159</td>
-                    <td class="coverage">227<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">585</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  UseMethod("get_supported_filter_varnames")</pre>
+                      <pre class="language-r">                return(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">586</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">              }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">587</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">588</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="missed">
+                    <td class="num">589</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              if (!isTRUE(all.equal(selection, private$get_selected()))) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">590</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                logger::log_trace("RangeFilterState$server@3 manual selection changed, id: { private$get_id() }")</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">591</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                private$set_selected(selection)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">592</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">164</td>
+                    <td class="num">593</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_supported_filter_varnames.default &lt;- function(data) { # nolint</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">198<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">594</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  is_expected_class &lt;- vapply(</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">166</td>
-                    <td class="coverage">198<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">595</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    X = data,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">198<em>x</em></td>
+                    <td class="num">596</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    FUN = function(x) any(class(x) %in% .filterable_class),</pre>
+                      <pre class="language-r">          private$keep_inf_srv("keep_inf")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">198<em>x</em></td>
+                    <td class="num">597</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    FUN.VALUE = logical(1)</pre>
+                      <pre class="language-r">          private$keep_na_srv("keep_na")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">598</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">170</td>
-                    <td class="coverage">198<em>x</em></td>
+                    <td class="num">599</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  names(is_expected_class[is_expected_class])</pre>
+                      <pre class="language-r">          logger::log_trace("RangeFilterState$server initialized, id: { private$get_id() }")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">171</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">600</td>
+                    <td class="coverage">5<em>x</em></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">172</td>
+                    <td class="num">601</td>
                     <td class="coverage"></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">602</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">174</td>
+                    <td class="num">603</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">175</td>
+                    <td class="num">604</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_supported_filter_varnames.matrix &lt;- function(data) { # nolint</pre>
+                      <pre class="language-r">    server_inputs_fixed = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">176</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">605</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # all columns are the same type in matrix</pre>
+                      <pre class="language-r">      moduleServer(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">177</td>
-                    <td class="coverage">29<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">606</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  is_expected_class &lt;- class(data[, 1]) %in% .filterable_class</pre>
+                      <pre class="language-r">        id = id,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">178</td>
-                    <td class="coverage">29<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">607</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is_expected_class &amp;&amp; !is.null(colnames(data))) {</pre>
+                      <pre class="language-r">        function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">179</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">608</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    colnames(data)</pre>
+                      <pre class="language-r">          logger::log_trace("RangeFilterState$server initializing, id: { private$get_id() }")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">609</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">181</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">610</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    character(0)</pre>
+                      <pre class="language-r">          plot_config &lt;- private$plot_config()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">182</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">611</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">          plot_config$staticPlot &lt;- TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">612</td>
                     <td class="coverage"></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="missed">
+                    <td class="num">613</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          output$plot &lt;- plotly::renderPlotly({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">185</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">614</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">            histogram &lt;- do.call(plotly::plot_ly, private$plot_data)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">186</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">615</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">            histogram &lt;- do.call(plotly::layout, c(list(p = histogram), private$plot_layout()))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">187</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">616</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_supported_filter_varnames.MultiAssayExperiment &lt;- function(data) { # nolint</pre>
+                      <pre class="language-r">            histogram &lt;- do.call(plotly::config, c(list(p = histogram), plot_config))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">188</td>
+                    <td class="num">617</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  data &lt;- SummarizedExperiment::colData(data)</pre>
+                      <pre class="language-r">            histogram &lt;- do.call(plotly::add_histogram, c(list(p = histogram), private$plot_filtered()))</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">618</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            histogram</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">189</td>
+                    <td class="num">619</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # all columns are the same type in matrix</pre>
+                      <pre class="language-r">          })</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">620</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">190</td>
+                    <td class="num">621</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  is_expected_class &lt;- class(data[, 1]) %in% .filterable_class</pre>
+                      <pre class="language-r">          output$selection &lt;- renderUI({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">191</td>
+                    <td class="num">622</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is_expected_class &amp;&amp; !is.null(names(data))) {</pre>
+                      <pre class="language-r">            shinycssloaders::withSpinner(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">192</td>
+                    <td class="num">623</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    names(data)</pre>
+                      <pre class="language-r">              plotly::plotlyOutput(session$ns("plot"), height = "50px"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">193</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">624</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">              type = 4,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">194</td>
+                    <td class="num">625</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    character(0)</pre>
+                      <pre class="language-r">              size = 0.25</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">195</td>
+                    <td class="num">626</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">196</td>
+                    <td class="num">627</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">          })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">628</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">198</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">629</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Returns a `choices_labeled` object</pre>
+                      <pre class="language-r">          logger::log_trace("RangeFilterState$server initialized, id: { private$get_id() }")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">199</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">630</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">200</td>
+                    <td class="num">631</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param data (`data.frame` or `DFrame` or `list`)</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">632</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   where labels can be taken from in case when `varlabels` is not specified.</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">202</td>
+                    <td class="num">633</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `data` must be specified if `varlabels` is not specified.</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">634</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param choices (`character`)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</td>
+                    <td class="num">635</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  the vector of chosen variables</pre>
+                      <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">205</td>
+                    <td class="num">636</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param varlabels (`character`)</pre>
+                      <pre class="language-r">    # Server module to display filter summary</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">206</td>
+                    <td class="num">637</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  the labels of variables in data</pre>
+                      <pre class="language-r">    #  renders text describing selected range and</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">638</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param keys (`character`)</pre>
+                      <pre class="language-r">    #  if NA or Inf are included also</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</td>
+                    <td class="num">639</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  the names of the key columns in data</pre>
+                      <pre class="language-r">    # @return `shiny.tag` to include in the `ui_summary`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</td>
+                    <td class="num">640</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `character(0)` if choices are empty; a `choices_labeled` object otherwise</pre>
+                      <pre class="language-r">    content_summary = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">210</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">641</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">      selection &lt;- private$get_selected()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">211</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">642</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">data_choices_labeled &lt;- function(data,</pre>
+                      <pre class="language-r">      tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">212</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">643</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 choices,</pre>
+                      <pre class="language-r">        tags$span(HTML(selection[1], "&amp;ndash;", selection[2]), class = "filter-card-summary-value"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">213</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">644</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 varlabels = teal.data::col_labels(data, fill = TRUE),</pre>
+                      <pre class="language-r">        tags$span(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">214</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">645</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 keys = character(0)) {</pre>
+                      <pre class="language-r">          class = "filter-card-summary-controls",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">215</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">646</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(choices) == 0) {</pre>
+                      <pre class="language-r">          if (private$na_count &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">216</td>
+                    <td class="num">647</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(character(0))</pre>
+                      <pre class="language-r">            tags$span("NA", if (isTRUE(private$get_keep_na())) icon("check") else icon("xmark"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">217</td>
+                    <td class="num">648</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">218</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">649</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  choice_types &lt;- variable_types(data = data, columns = choices)</pre>
+                      <pre class="language-r">          if (private$inf_count &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">219</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">650</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  choice_types[keys] &lt;- "primary_key"</pre>
+                      <pre class="language-r">            tags$span("Inf", if (isTRUE(private$get_keep_inf())) icon("check") else icon("xmark"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">220</td>
+                    <td class="num">651</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">221</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">652</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  choices_labeled(</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">222</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">653</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    choices = choices,</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">223</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">654</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    labels = unname(varlabels[choices]),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">224</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    types = choice_types[choices]</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">225</td>
+                    <td class="num">655</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">226</td>
+                    <td class="num">656</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">227</td>
+                    <td class="num">657</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # Module displaying input to keep or remove NA in the `FilterState` call.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">228</td>
+                    <td class="num">658</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">    # Renders a checkbox input only when variable with which the `FilterState` has been created contains Infs.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">229</td>
+                    <td class="num">659</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">    # @param id (`character(1)`) `shiny` module instance id.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">230</td>
+                    <td class="num">660</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_varlabels &lt;- function(data) {</pre>
+                      <pre class="language-r">    keep_inf_ui = function(id) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">231</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">661</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.array(data)) {</pre>
+                      <pre class="language-r">      ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">232</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">662</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vapply(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">233</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">663</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      colnames(data),</pre>
+                      <pre class="language-r">      if (private$inf_count &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">234</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">664</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      FUN = function(x) {</pre>
+                      <pre class="language-r">        countmax &lt;- private$na_count</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">235</td>
-                    <td class="coverage">42<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">665</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        label &lt;- attr(data[[x]], "label")</pre>
+                      <pre class="language-r">        countnow &lt;- isolate(private$filtered_na_count())</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">236</td>
-                    <td class="coverage">42<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">666</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (is.null(label)) {</pre>
+                      <pre class="language-r">        ui_input &lt;- checkboxInput(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">237</td>
-                    <td class="coverage">40<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">667</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x</pre>
+                      <pre class="language-r">          inputId = ns("value"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">238</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">668</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">          label = tags$span(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">239</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">669</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label</pre>
+                      <pre class="language-r">            id = ns("count_label"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">240</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">670</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">            make_count_text(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">241</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">671</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      },</pre>
+                      <pre class="language-r">              label = "Keep Inf",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">242</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">672</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      FUN.VALUE = character(1)</pre>
+                      <pre class="language-r">              countmax = countmax,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">673</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              countnow = countnow</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">243</td>
+                    <td class="num">674</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">244</td>
+                    <td class="num">675</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">245</td>
+                    <td class="num">676</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    character(0)</pre>
+                      <pre class="language-r">          value = isolate(private$get_keep_inf())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">246</td>
+                    <td class="num">677</td>
                     <td class="coverage"></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="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">678</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        tags$div(</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/FilterStates.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">679</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># FilterStates ------</pre>
+                      <pre class="language-r">          uiOutput(ns("trigger_visible"), inline = TRUE),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">680</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          ui_input</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">681</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name FilterStates</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">682</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @docType class</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">683</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @title `FilterStates` `R6` class</pre>
+                      <pre class="language-r">        NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">684</td>
                     <td class="coverage"></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">685</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">8</td>
+                    <td class="num">686</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Abstract class that manages adding and removing `FilterState` objects</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">687</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' and builds a *subset expression*.</pre>
+                      <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">688</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    # Module to handle Inf values in the FilterState</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">689</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' A `FilterStates` object tracks all condition calls</pre>
+                      <pre class="language-r">    # Sets `private$slice$keep_inf` according to the selection</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">690</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' (logical predicates that limit observations) associated with a given dataset</pre>
+                      <pre class="language-r">    # and updates the relevant UI element if `private$slice$keep_inf` has been changed by the api.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">691</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' and composes them into a single reproducible `R` expression</pre>
+                      <pre class="language-r">    # @param id (`character(1)`) `shiny` module instance id.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">692</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' that will assign a subset of the original data to a new variable.</pre>
+                      <pre class="language-r">    # @return `NULL`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">693</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This expression is hereafter referred to as *subset expression*.</pre>
+                      <pre class="language-r">    keep_inf_srv = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">694</td>
+                    <td class="coverage">5<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">17</td>
+                    <td class="num">695</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The *subset expression* is constructed differently for different</pre>
+                      <pre class="language-r">        # 1. renderUI is used here as an observer which triggers only if output is visible</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">696</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' classes of the underlying data object and `FilterStates` sub-classes.</pre>
+                      <pre class="language-r">        #  and if the reactive changes - reactive triggers only if the output is visible.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">697</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Currently implemented for `data.frame`, `matrix`,</pre>
+                      <pre class="language-r">        # 2. We want to trigger change of the labels only if reactive count changes (not underlying data)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">698</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `SummarizedExperiment`, and `MultiAssayExperiment`.</pre>
+                      <pre class="language-r">        output$trigger_visible &lt;- renderUI({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">699</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          updateCountText(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">700</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">            inputId = "count_label",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">701</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            label = "Keep Inf",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">702</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">FilterStates &lt;- R6::R6Class( # nolint</pre>
+                      <pre class="language-r">            countmax = private$inf_count,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">703</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  classname = "FilterStates",</pre>
+                      <pre class="language-r">            countnow = private$inf_filtered_count()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">704</td>
                     <td class="coverage"></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="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">705</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # public members ----</pre>
+                      <pre class="language-r">          NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">706</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  public = list(</pre>
+                      <pre class="language-r">        })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">707</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">30</td>
+                    <td class="num">708</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Initializes `FilterStates` object by setting</pre>
+                      <pre class="language-r">        # this observer is needed in the situation when private$teal_slice$keep_inf has been</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">709</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' `dataname`, and `datalabel`.</pre>
+                      <pre class="language-r">        # changed directly by the api - then it's needed to rerender UI element</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">710</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">        # to show relevant values</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">33</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">711</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param data (`data.frame` or `MultiAssayExperiment` or `SummarizedExperiment` or `matrix`)</pre>
+                      <pre class="language-r">        private$observers$keep_inf_api &lt;- observeEvent(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">712</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   the `R` object which `subset` function is applied on.</pre>
+                      <pre class="language-r">          ignoreNULL = TRUE, # its not possible for range that NULL is selected</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">713</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param data_reactive (`function(sid)`)</pre>
+                      <pre class="language-r">          ignoreInit = TRUE, # ignoreInit: should not matter because we set the UI with the desired initial state</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">714</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   should return an object of the same type as `data` object or `NULL`.</pre>
+                      <pre class="language-r">          eventExpr = private$get_keep_inf(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">715</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   This object is needed for the `FilterState` counts being updated</pre>
+                      <pre class="language-r">          handlerExpr = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">716</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   on a change in filters. If function returns `NULL` then filtered counts are not shown.</pre>
+                      <pre class="language-r">            if (!setequal(private$get_keep_inf(), input$value)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">39</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">717</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   Function has to have `sid` argument being a character.</pre>
+                      <pre class="language-r">              logger::log_trace("RangeFilterState$keep_inf_srv@1 changed reactive value, id: { private$get_id() }")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">40</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">718</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param dataname (`character(1)`)</pre>
+                      <pre class="language-r">              updateCheckboxInput(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">41</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">719</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   name of the dataset, used in the subset expression.</pre>
+                      <pre class="language-r">                inputId = "value",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">42</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">720</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   Passed to the function argument attached to this `FilterStates`.</pre>
+                      <pre class="language-r">                value = private$get_keep_inf()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">721</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param datalabel (`character(1)`) optional</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">722</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   text label.</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">723</td>
                     <td class="coverage"></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">724</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">47</td>
+                    <td class="num">725</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Object of class `FilterStates`, invisibly.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">48</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">726</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">        private$observers$keep_inf &lt;- observeEvent(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">727</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    initialize = function(data,</pre>
+                      <pre class="language-r">          ignoreNULL = TRUE, # it's not possible for range that NULL is selected</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">728</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          data_reactive = function(sid = "") NULL,</pre>
+                      <pre class="language-r">          ignoreInit = TRUE, # ignoreInit: should not matter because we set the UI with the desired initial state</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">51</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">729</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          dataname,</pre>
+                      <pre class="language-r">          eventExpr = input$value,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">52</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">730</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          datalabel = NULL) {</pre>
+                      <pre class="language-r">          handlerExpr = {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">53</td>
-                    <td class="coverage">274<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">731</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_string(dataname)</pre>
+                      <pre class="language-r">            logger::log_trace("FilterState$keep_na_srv@2 changed input, id: { private$get_id() }")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">54</td>
-                    <td class="coverage">272<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">732</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      logger::log_trace("Instantiating { class(self)[1] }, dataname: { dataname }")</pre>
+                      <pre class="language-r">            keep_inf &lt;- input$value</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">55</td>
-                    <td class="coverage">272<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">733</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_function(data_reactive, args = "sid")</pre>
+                      <pre class="language-r">            private$set_keep_inf(keep_inf)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">56</td>
-                    <td class="coverage">272<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">734</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_string(datalabel, null.ok = TRUE)</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">735</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">736</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">272<em>x</em></td>
+                    <td class="num">737</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$dataname &lt;- dataname</pre>
+                      <pre class="language-r">        invisible(NULL)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">272<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">738</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$datalabel &lt;- datalabel</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">60</td>
-                    <td class="coverage">272<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">739</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$dataname_prefixed &lt;- dataname</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">61</td>
-                    <td class="coverage">272<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">740</td>
+                    <td class="coverage"></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">62</td>
-                    <td class="coverage">272<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">741</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$data_reactive &lt;- data_reactive</pre>
+                      <pre class="language-r">)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">63</td>
-                    <td class="coverage">272<em>x</em></td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/teal_slice.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">      private$state_list &lt;- reactiveVal()</pre>
+                      <pre class="language-r">#' Specify single filter</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</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="covered">
-                    <td class="num">65</td>
-                    <td class="coverage">272<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">      logger::log_trace("Instantiated { class(self)[1] }, dataname: { private$dataname }")</pre>
+                      <pre class="language-r">#' Create a `teal_slice` object that holds complete information on filtering one variable.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">66</td>
-                    <td class="coverage">272<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">      invisible(self)</pre>
+                      <pre class="language-r">#' Check out [`teal_slice-utilities`] functions for working with `teal_slice` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">5</td>
                     <td class="coverage"></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">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' `teal_slice` object fully describes filter state and can be used to create,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">#' modify, and delete a filter state. A `teal_slice` contains a number of common fields</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Returns a formatted string representing this `FilterStates` object.</pre>
+                      <pre class="language-r">#' (all named arguments of `teal_slice`), some of which are mandatory, but only</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' `dataname` and  either `varname` or `expr` must be specified, while the others have default</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param show_all (`logical(1)`) passed to `format.teal_slices`</pre>
+                      <pre class="language-r">#' values.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param trim_lines (`logical(1)`) passed to `format.teal_slices`</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' Setting any of the other values to `NULL` means that those properties will not be modified</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `character(1)` the formatted string</pre>
+                      <pre class="language-r">#' (when setting an existing state) or that they will be determined by data (when creating new a new one).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' Entire object is `FilterState` class member and can be accessed with `FilterState$get_state()`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    format = function(show_all = FALSE, trim_lines = TRUE) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">78</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">      sprintf(</pre>
+                      <pre class="language-r">#' A `teal_slice` can come in two flavors:</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">79</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">        "%s:\n%s",</pre>
+                      <pre class="language-r">#' 1. `teal_slice_var` -</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">80</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">        class(self)[1],</pre>
+                      <pre class="language-r">#' this describes a typical interactive filter that refers to a single variable, managed by the `FilterState` class.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">81</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">        format(self$get_filter_state(), show_all = show_all, trim_lines = trim_lines)</pre>
+                      <pre class="language-r">#' This class is created when `varname` is specified.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' The object retains all fields specified in the call. `id` can be created by default and need not be specified.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#' 2. `teal_slice_expr` -</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' this describes a filter state that refers to an expression, which can potentially include multiple variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">#' managed by the `FilterStateExpr` class.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Filter call</pre>
+                      <pre class="language-r">#' This class is created when `expr` is specified.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' `dataname` and `anchored` are retained, `fixed` is set to `TRUE`, `id` becomes mandatory, `title`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Builds *subset expression* from condition calls generated by `FilterState`.</pre>
+                      <pre class="language-r">#' remains optional, while other arguments are disregarded.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' The `lhs` of the expression is a `dataname_prefixed`, where word prefixed refers to</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' situation when call is evaluated on elements of the original data, for example `dataname[[x]]`.</pre>
+                      <pre class="language-r">#' A teal_slice can be passed `FilterState`/`FilterStateExpr` constructors to instantiate an object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' By default `dataname_prefixed = dataname` and it's not alterable through class methods.</pre>
+                      <pre class="language-r">#' It can also be passed to `FilterState$set_state` to modify the state.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Customization of `private$dataname_prefixed` is done through inheriting classes.</pre>
+                      <pre class="language-r">#' However, once a `FilterState` is created, only the mutable features can be set with a teal_slice:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' `selected`, `keep_na` and `keep_inf`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' The `rhs` is a call to `private$fun` with following arguments:</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' - `dataname_prefixed`</pre>
+                      <pre class="language-r">#' Special consideration is given to two fields: `fixed` and `anchored`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' - list of logical expressions generated by `FilterState` objects</pre>
+                      <pre class="language-r">#' These are always immutable logical flags that default to `FALSE`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' stored in `private$state_list`. Each logical predicate is combined with `&amp;` operator.</pre>
+                      <pre class="language-r">#' In a `FilterState` instantiated with `fixed = TRUE` the features</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Variables in these logical expressions by default are not prefixed but this can be changed</pre>
+                      <pre class="language-r">#' `selected`, `keep_na`, `keep_inf` cannot be changed.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' by setting `private$extract_type` (change in the similar way as `dataname_prefixed`)</pre>
+                      <pre class="language-r">#' Note that a `FilterStateExpr` is always considered to have `fixed = TRUE`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Possible call outputs depending on a custom fields/options:</pre>
+                      <pre class="language-r">#' A `FilterState` instantiated with `anchored = TRUE` cannot be removed.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</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">102</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' # default</pre>
+                      <pre class="language-r">#' @section Filters in `SumarizedExperiment` and `MultiAssayExperiment` objects:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' dataname &lt;- subset(dataname, col == "x")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' To establish a filter on a column in a `data.frame`, `dataname` and `varname` are sufficient.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' # fun = dplyr::filter</pre>
+                      <pre class="language-r">#' `MultiAssayExperiment` objects can be filtered either on their `colData` slot (which contains subject information)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' dataname &lt;- dplyr::filter(dataname, col == "x")</pre>
+                      <pre class="language-r">#' or on their experiments, which are stored in the `experimentList` slot.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' For filters referring to `colData` no extra arguments are needed.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' # fun = MultiAssayExperiment::subsetByColData; extract_type = "list"</pre>
+                      <pre class="language-r">#' If a filter state is created for an experiment, that experiment name must be specified in the `experiment` argument.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' dataname &lt;- MultiAssayExperiment::subsetByColData(dataname, dataname$col == "x")</pre>
+                      <pre class="language-r">#' Furthermore, to specify filter for an `SummarizedExperiment` one must also set `arg`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' (`"subset"`  or `"select"`, arguments in the [subset()] function for `SummarizedExperiment`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' # teal_slice objects having `arg = "subset"` and `arg = "select"`</pre>
+                      <pre class="language-r">#' in order to determine whether the filter refers to the `SE`'s `rowData` or `colData`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' dataname &lt;- subset(dataname, subset = row_col == "x", select = col_col == "x")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' @param dataname (`character(1)`) name of data set</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' # dataname = dataname[[element]]</pre>
+                      <pre class="language-r">#' @param varname (`character(1)`) name of variable</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' dataname[[element]] &lt;- subset(dataname[[element]], subset = col == "x")</pre>
+                      <pre class="language-r">#' @param id (`character(1)`) identifier of the filter. Must be specified when `expr` is set.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' ```</pre>
+                      <pre class="language-r">#'  When `varname` is specified then `id` is set to `"{dataname} {varname}"` by default.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' @param expr (`character(1)`) string providing a logical expression.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' If no filters are applied, `NULL` is returned to avoid no-op calls such as `dataname &lt;- dataname`.</pre>
+                      <pre class="language-r">#'  Must be a valid `R` expression which can be evaluated in the context of the data set.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#'  For a `data.frame` `var == "x"` is sufficient, but `MultiAssayExperiment::subsetByColData`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param sid (`character`)</pre>
+                      <pre class="language-r">#'  requires `dataname` prefix, *e.g.* `data$var == "x"`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'  when specified then method returns code containing condition calls (logical predicates) of</pre>
+                      <pre class="language-r">#' @param choices (`vector`) optional, specifies allowed choices;</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'  `FilterState` objects which `"sid"` attribute is different than this `sid` argument.</pre>
+                      <pre class="language-r">#' When specified it should be a subset of values in variable denoted by `varname`;</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' Type and size depends on variable type. Factors are coerced to character.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `call` or `NULL`</pre>
+                      <pre class="language-r">#' @param selected (`vector`) optional, specifies selected values from `choices`;</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' Type and size depends on variable type. Factors are coerced to character.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_call = function(sid = "") {</pre>
+                      <pre class="language-r">#' @param multiple (`logical(1)`) optional flag specifying whether more than one value can be selected;</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">127</td>
-                    <td class="coverage">88<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">      logger::log_trace("FilterStates$get_call initializing")</pre>
+                      <pre class="language-r">#' only applicable to `ChoicesFilterState` and `LogicalFilterState`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param keep_na (`logical(1)`) optional flag specifying whether to keep missing values</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # `arg` must be the same as argument of the function where</pre>
+                      <pre class="language-r">#' @param keep_inf (`logical(1)`) optional flag specifying whether to keep infinite values</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # predicate is passed to.</pre>
+                      <pre class="language-r">#' @param fixed (`logical(1)`) flag specifying whether to fix this filter state (forbid setting state)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # For unnamed arguments state_list should have `arg = NULL`</pre>
+                      <pre class="language-r">#' @param anchored (`logical(1)`) flag specifying whether to lock this filter state (forbid removing and inactivating)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">88<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">      states_list &lt;- private$state_list_get()</pre>
+                      <pre class="language-r">#' @param title (`character(1)`) optional title of the filter. Ignored when `varname` is set.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">133</td>
-                    <td class="coverage">88<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">      if (length(states_list) == 0) {</pre>
+                      <pre class="language-r">#' @param ... additional arguments which can be handled by extensions of `teal.slice` classes.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">134</td>
-                    <td class="coverage">52<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">        return(NULL)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' @return A `teal.slice` object. Depending on whether `varname` or `expr` was specified, the resulting</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">136</td>
-                    <td class="coverage">36<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">      args &lt;- vapply(</pre>
+                      <pre class="language-r">#' `teal_slice` also receives class `teal_slice_var` or `teal_slice_expr`, respectively.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">137</td>
-                    <td class="coverage">36<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">        states_list,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">138</td>
-                    <td class="coverage">36<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">        function(x) {</pre>
+                      <pre class="language-r">#' @note Date time objects of `POSIX*t` classes are printed as strings after converting to UTC timezone.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">139</td>
-                    <td class="coverage">57<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">          arg &lt;- x$get_state()$arg</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">140</td>
-                    <td class="coverage">7<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">          `if`(is.null(arg), "", arg) # converting NULL -&gt; "" to enable tapply.</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        },</pre>
+                      <pre class="language-r">#' x1 &lt;- teal_slice(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">36<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">        character(1)</pre>
+                      <pre class="language-r">#'   dataname = "data",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'   id = "Female adults",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   expr = "SEX == 'F' &amp; AGE &gt;= 18",</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">83</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      filter_items &lt;- tapply(</pre>
+                      <pre class="language-r">#'   title = "Female adults"</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">84</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        X = states_list,</pre>
+                      <pre class="language-r">#' )</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">85</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        INDEX = args,</pre>
+                      <pre class="language-r">#' x2 &lt;- teal_slice(</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">86</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        simplify = FALSE,</pre>
+                      <pre class="language-r">#'   dataname = "data",</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">87</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        function(items) {</pre>
+                      <pre class="language-r">#'   varname = "var",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # removing filters identified by sid</pre>
+                      <pre class="language-r">#'   choices = c("F", "M", "U"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">151</td>
-                    <td class="coverage">38<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">89</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          other_filter_idx &lt;- !names(items) %in% sid</pre>
+                      <pre class="language-r">#'   selected = "F",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">152</td>
-                    <td class="coverage">38<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">90</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          filtered_items &lt;- items[other_filter_idx]</pre>
+                      <pre class="language-r">#'   keep_na = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   keep_inf = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">154</td>
-                    <td class="coverage">38<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">92</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          calls &lt;- Filter(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">155</td>
-                    <td class="coverage">38<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            Negate(is.null),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">156</td>
-                    <td class="coverage">38<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            lapply(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">157</td>
-                    <td class="coverage">38<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              filtered_items,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">158</td>
-                    <td class="coverage">38<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              function(state) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">159</td>
-                    <td class="coverage">51<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                state$get_call(dataname = private$dataname_prefixed)</pre>
+                      <pre class="language-r">#'   fixed = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              }</pre>
+                      <pre class="language-r">#'   anchored = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">#'   multiple = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">163</td>
-                    <td class="coverage">38<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          calls_combine_by(calls, operator = "&amp;")</pre>
+                      <pre class="language-r">#'   id = "Gender",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">#'   extra_arg = "extra"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</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">166</td>
-                    <td class="coverage">36<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      filter_items &lt;- Filter(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">36<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        x = filter_items,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">36<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        f = Negate(is.null)</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">170</td>
-                    <td class="coverage">36<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      if (length(filter_items) &gt; 0L) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">35<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        filter_function &lt;- private$fun</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">172</td>
-                    <td class="coverage">35<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        data_name &lt;- str2lang(private$dataname_prefixed)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">173</td>
-                    <td class="coverage">35<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        substitute(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">174</td>
-                    <td class="coverage">35<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          env = list(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">175</td>
-                    <td class="coverage">35<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            lhs = data_name,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">176</td>
-                    <td class="coverage">35<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            rhs = as.call(c(filter_function, c(list(data_name), filter_items)))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</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">178</td>
-                    <td class="coverage">35<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          expr = lhs &lt;- rhs</pre>
+                      <pre class="language-r">#' is.teal_slice(x1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' as.list(x1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">#' as.teal_slice(list(dataname = "a", varname = "var"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # return NULL to avoid no-op call</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">182</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        NULL</pre>
+                      <pre class="language-r">#' format(x1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' format(x1, show_all = TRUE, trim_lines = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#' print(x1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' print(x1, show_all = TRUE, trim_lines = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">106</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">187</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Prints this `FilterStates` object.</pre>
+                      <pre class="language-r">#' @seealso [`teal_slices`],</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' [`is.teal_slice`], [`as.teal_slice`], [`as.list.teal_slice`], [`print.teal_slice`], [`format.teal_slice`]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">189</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param ... additional arguments passed to `format`.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    print = function(...) {</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">191</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">111</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      cat(isolate(self$format(...)), "\n")</pre>
+                      <pre class="language-r">teal_slice &lt;- function(dataname,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">192</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">                       varname,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                       id,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">194</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">                       expr,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">195</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Remove one or more `FilterState`s from the `state_list` along with their UI elements.</pre>
+                      <pre class="language-r">                       choices = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">196</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">                       selected = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param state (`teal_slices`)</pre>
+                      <pre class="language-r">                       keep_na = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   specifying `FilterState` objects to remove;</pre>
+                      <pre class="language-r">                       keep_inf = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">199</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   `teal_slice`s may contain only `dataname` and `varname`, other elements are ignored</pre>
+                      <pre class="language-r">                       fixed = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">                       anchored = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `NULL`, invisibly.</pre>
+                      <pre class="language-r">                       multiple = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">202</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">                       title = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    remove_filter_state = function(state) {</pre>
+                      <pre class="language-r">                       ...) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">204</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="num">124</td>
+                    <td class="coverage">580<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_class(state, "teal_slices")</pre>
+                      <pre class="language-r">  checkmate::assert_string(dataname)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">205</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="num">125</td>
+                    <td class="coverage">573<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      isolate({</pre>
+                      <pre class="language-r">  checkmate::assert_flag(fixed)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">206</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="num">126</td>
+                    <td class="coverage">571<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        state_ids &lt;- vapply(state, `[[`, character(1), "id")</pre>
+                      <pre class="language-r">  checkmate::assert_flag(anchored)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">207</td>
-                    <td class="coverage">17<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">        logger::log_trace("{ class(self)[1] }$remove_filter_state removing filters, state_id: { toString(state_ids) }")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">208</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="num">128</td>
+                    <td class="coverage">569<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$state_list_remove(state_ids)</pre>
+                      <pre class="language-r">  formal_args &lt;- as.list(environment())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</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="covered">
-                    <td class="num">210</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="num">130</td>
+                    <td class="coverage">569<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(NULL)</pre>
+                      <pre class="language-r">  if (!missing(expr) &amp;&amp; !missing(varname)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">211</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">    stop("Must provide either `expr` or `varname`.")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">212</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">132</td>
+                    <td class="coverage">569<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  } else if (!missing(expr)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">213</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">133</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">    checkmate::assert_string(id)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">214</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">134</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Gets reactive values from active `FilterState` objects.</pre>
+                      <pre class="language-r">    checkmate::assert_string(title)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">215</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">135</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_string(expr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Get active filter state from `FilterState` objects stored in `state_list`(s).</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">217</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">    #' The output is a list compatible with input to `self$set_filter_state`.</pre>
+                      <pre class="language-r">    formal_args$fixed &lt;- TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">218</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">    #'</pre>
+                      <pre class="language-r">    ts_expr_args &lt;- c("dataname", "id", "expr", "fixed", "anchored", "title")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">219</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">139</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return Object of class `teal_slices`.</pre>
+                      <pre class="language-r">    formal_args &lt;- formal_args[ts_expr_args]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">220</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">140</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">    ans &lt;- do.call(reactiveValues, c(formal_args, list(...)))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">221</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">141</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_filter_state = function() {</pre>
+                      <pre class="language-r">    class(ans) &lt;- c("teal_slice_expr", "teal_slice", class(ans))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">222</td>
-                    <td class="coverage">364<em>x</em></td>
+                    <td class="num">142</td>
+                    <td class="coverage">539<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      slices &lt;- unname(lapply(private$state_list(), function(x) x$get_state()))</pre>
+                      <pre class="language-r">  } else if (!missing(varname)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">223</td>
-                    <td class="coverage">364<em>x</em></td>
+                    <td class="num">143</td>
+                    <td class="coverage">538<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      fs &lt;- do.call(teal_slices, c(slices, list(count_type = private$count_type)))</pre>
+                      <pre class="language-r">    checkmate::assert_string(varname)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">224</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">144</td>
+                    <td class="coverage">535<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    checkmate::assert_multi_class(choices, .filterable_class, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">225</td>
-                    <td class="coverage">364<em>x</em></td>
+                    <td class="num">145</td>
+                    <td class="coverage">534<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      include_varnames &lt;- private$include_varnames</pre>
+                      <pre class="language-r">    checkmate::assert_multi_class(selected, .filterable_class, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">226</td>
-                    <td class="coverage">364<em>x</em></td>
+                    <td class="num">146</td>
+                    <td class="coverage">532<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(include_varnames)) {</pre>
+                      <pre class="language-r">    checkmate::assert_flag(keep_na, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">227</td>
-                    <td class="coverage">214<em>x</em></td>
+                    <td class="num">147</td>
+                    <td class="coverage">531<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        attr(fs, "include_varnames") &lt;- structure(</pre>
+                      <pre class="language-r">    checkmate::assert_flag(keep_inf, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">228</td>
-                    <td class="coverage">214<em>x</em></td>
+                    <td class="num">148</td>
+                    <td class="coverage">530<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          list(include_varnames),</pre>
+                      <pre class="language-r">    checkmate::assert_flag(multiple)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">149</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">229</td>
-                    <td class="coverage">214<em>x</em></td>
+                    <td class="num">150</td>
+                    <td class="coverage">530<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          names = private$dataname</pre>
+                      <pre class="language-r">    ts_var_args &lt;- c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">230</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">151</td>
+                    <td class="coverage">530<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">      "dataname", "varname", "id", "choices", "selected", "keep_na", "keep_inf",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">231</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">152</td>
+                    <td class="coverage">530<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">      "fixed", "anchored", "multiple"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">232</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="covered">
-                    <td class="num">233</td>
-                    <td class="coverage">364<em>x</em></td>
+                    <td class="num">154</td>
+                    <td class="coverage">530<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      exclude_varnames &lt;- private$exclude_varnames</pre>
+                      <pre class="language-r">    formal_args &lt;- formal_args[ts_var_args]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">234</td>
-                    <td class="coverage">364<em>x</em></td>
+                    <td class="num">155</td>
+                    <td class="coverage">530<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(exclude_varnames)) {</pre>
+                      <pre class="language-r">    args &lt;- c(formal_args, list(...))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">235</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">156</td>
+                    <td class="coverage">530<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        attr(fs, "exclude_varnames") &lt;- structure(</pre>
+                      <pre class="language-r">    args[c("choices", "selected")] &lt;-</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">236</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">157</td>
+                    <td class="coverage">530<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          list(exclude_varnames),</pre>
+                      <pre class="language-r">      lapply(args[c("choices", "selected")], function(x) if (is.factor(x)) as.character(x) else x)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">237</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">158</td>
+                    <td class="coverage">530<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          names = private$dataname</pre>
+                      <pre class="language-r">    if (missing(id)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">238</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">159</td>
+                    <td class="coverage">521<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">      args$id &lt;- get_default_slice_id(args)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">239</td>
+                    <td class="num">160</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">161</td>
+                    <td class="coverage">9<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      checkmate::assert_string(id)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">240</td>
+                    <td class="num">162</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">241</td>
-                    <td class="coverage">364<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      fs</pre>
+                    <td class="num">163</td>
+                    <td class="coverage">527<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ans &lt;- do.call(reactiveValues, args)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">164</td>
+                    <td class="coverage">527<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    class(ans) &lt;- c("teal_slice_var", "teal_slice", class(ans))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">242</td>
+                    <td class="num">165</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">166</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    stop("Must provide either `expr` or `varname`.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">243</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">244</td>
+                    <td class="num">168</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="covered">
+                    <td class="num">169</td>
+                    <td class="coverage">550<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  ans</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">245</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Sets active `FilterState` objects.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">246</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param state (`teal_slices`)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">247</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return Function that raises an error.</pre>
+                      <pre class="language-r">#' `teal_slice` utility functions</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">248</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set_filter_state = function(state) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">249</td>
-                    <td class="coverage">135<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">      isolate({</pre>
+                      <pre class="language-r">#' Helper functions for working with [`teal_slice`] object.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">250</td>
-                    <td class="coverage">135<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">        logger::log_trace("{ class(self)[1] }$set_filter_state initializing, dataname: { private$dataname }")</pre>
+                      <pre class="language-r">#' @param x (`teal.slice`)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">251</td>
-                    <td class="coverage">135<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">        checkmate::assert_class(state, "teal_slices")</pre>
+                      <pre class="language-r">#' @param show_all (`logical(1)`) indicating whether to show all fields. If set to `FALSE`,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">252</td>
-                    <td class="coverage">135<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">        lapply(state, function(x) {</pre>
+                      <pre class="language-r">#'  only non-NULL elements will be printed.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">253</td>
-                    <td class="coverage">177<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">178</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          checkmate::assert_true(</pre>
+                      <pre class="language-r">#' @param trim_lines (`logical(1)`) indicating whether to trim lines when printing.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">254</td>
-                    <td class="coverage">177<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">            x$dataname == private$dataname,</pre>
+                      <pre class="language-r">#' @param ... additional arguments passed to other functions.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">255</td>
-                    <td class="coverage">177<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">            .var.name = "dataname matches private$dataname"</pre>
+                      <pre class="language-r">#' @name teal_slice-utilities</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">256</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#' @inherit teal_slice examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">257</td>
+                    <td class="num">182</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">258</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">259</td>
-                    <td class="coverage">135<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">        private$set_filterable_varnames(</pre>
+                      <pre class="language-r">#' @rdname teal_slice-utilities</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">260</td>
-                    <td class="coverage">135<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">185</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          include_varnames = attr(state, "include_varnames")[[private$dataname]],</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">261</td>
-                    <td class="coverage">135<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">186</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          exclude_varnames = attr(state, "exclude_varnames")[[private$dataname]]</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">262</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">is.teal_slice &lt;- function(x) { # nolint</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">263</td>
-                    <td class="coverage">135<em>x</em></td>
+                    <td class="num">188</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        count_type &lt;- attr(state, "count_type")</pre>
+                      <pre class="language-r">  inherits(x, "teal_slice")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">264</td>
-                    <td class="coverage">135<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">        if (length(count_type)) {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">265</td>
-                    <td class="coverage">21<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">          private$count_type &lt;- count_type</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">266</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">#' @rdname teal_slice-utilities</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">267</td>
+                    <td class="num">192</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">268</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # Drop teal_slices that refer to excluded variables.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">269</td>
-                    <td class="coverage">135<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">        varnames &lt;- unique(unlist(lapply(state, "[[", "varname")))</pre>
+                      <pre class="language-r">as.teal_slice &lt;- function(x) { # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">270</td>
-                    <td class="coverage">135<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">195</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        excluded_varnames &lt;- setdiff(varnames, private$get_filterable_varnames())</pre>
+                      <pre class="language-r">  checkmate::assert_list(x, names = "named")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">271</td>
-                    <td class="coverage">135<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">196</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (length(excluded_varnames)) {</pre>
+                      <pre class="language-r">  do.call(teal_slice, x)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">272</td>
-                    <td class="coverage">3<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">          state &lt;- Filter(function(x) !isTRUE(x$varname %in% excluded_varnames), state)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">273</td>
-                    <td class="coverage">3<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">          warning(sprintf("filters for columns: %s excluded from %s", toString(excluded_varnames), private$dataname))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">274</td>
+                    <td class="num">199</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">#' @rdname teal_slice-utilities</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">275</td>
+                    <td class="num">200</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="covered">
-                    <td class="num">276</td>
-                    <td class="coverage">135<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">        if (length(state) &gt; 0) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">277</td>
-                    <td class="coverage">93<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">202</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          private$set_filter_state_impl(</pre>
+                      <pre class="language-r">as.list.teal_slice &lt;- function(x, ...) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">278</td>
-                    <td class="coverage">93<em>x</em></td>
+                    <td class="num">203</td>
+                    <td class="coverage">283<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            state = state,</pre>
+                      <pre class="language-r">  formal_args &lt;- setdiff(names(formals(teal_slice)), "...")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">279</td>
-                    <td class="coverage">93<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">204</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            data = private$data,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">280</td>
-                    <td class="coverage">93<em>x</em></td>
+                    <td class="num">205</td>
+                    <td class="coverage">283<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            data_reactive = private$data_reactive</pre>
+                      <pre class="language-r">  x &lt;- if (isRunning()) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">281</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">          )</pre>
+                      <pre class="language-r">    reactiveValuesToList(x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">282</td>
+                    <td class="num">207</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">283</td>
-                    <td class="coverage">135<em>x</em></td>
+                    <td class="num">208</td>
+                    <td class="coverage">283<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        logger::log_trace("{ class(self)[1] }$set_filter_state initialized, dataname: { private$dataname }")</pre>
+                      <pre class="language-r">    isolate(reactiveValuesToList(x))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">284</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">285</td>
+                    <td class="num">210</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">286</td>
-                    <td class="coverage">135<em>x</em></td>
+                    <td class="num">211</td>
+                    <td class="coverage">283<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(NULL)</pre>
+                      <pre class="language-r">  formal_args &lt;- intersect(formal_args, names(x))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">287</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">212</td>
+                    <td class="coverage">283<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">  extra_args &lt;- rev(setdiff(names(x), formal_args))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">288</td>
+                    <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <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">214</td>
+                    <td class="coverage">283<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">  x[c(formal_args, extra_args)]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">290</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Remove all `FilterState` objects from this `FilterStates` object.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">291</td>
+                    <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">292</td>
+                    <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param force (`logical(1)`)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">293</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   flag specifying whether to include anchored filter states.</pre>
+                      <pre class="language-r">#' @rdname teal_slice-utilities</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">294</td>
+                    <td class="num">219</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">295</td>
+                    <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `NULL`, invisibly.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">296</td>
+                    <td class="num">221</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">format.teal_slice &lt;- function(x, show_all = FALSE, trim_lines = TRUE, ...) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">222</td>
+                    <td class="coverage">116<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_flag(show_all)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">223</td>
+                    <td class="coverage">92<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_flag(trim_lines)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">297</td>
+                    <td class="num">224</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    clear_filter_states = function(force = FALSE) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">298</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">225</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$state_list_empty(force)</pre>
+                      <pre class="language-r">  x_list &lt;- as.list(x)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">299</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">226</td>
+                    <td class="coverage">47<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(NULL)</pre>
+                      <pre class="language-r">  if (!show_all) x_list &lt;- Filter(Negate(is.null), x_list)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">300</td>
+                    <td class="num">227</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">301</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">228</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  jsonify(x_list, trim_lines)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">302</td>
+                    <td class="num">229</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # shiny modules ----</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">303</td>
+                    <td class="num">230</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">304</td>
+                    <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">#' @rdname teal_slice-utilities</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">305</td>
+                    <td class="num">232</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' `shiny` UI definition that stores `FilterState` UI elements.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">306</td>
+                    <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Populated with elements created with `renderUI` in the module server.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">307</td>
+                    <td class="num">234</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">print.teal_slice &lt;- function(x, ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">308</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">235</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param id (`character(1)`)</pre>
+                      <pre class="language-r">  cat(format(x, ...))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">309</td>
+                    <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">310</td>
+                    <td class="num">237</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">311</td>
+                    <td class="num">238</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `shiny.tag`</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">312</td>
+                    <td class="num">239</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r"># format utils -----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">313</td>
+                    <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_active = function(id) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">314</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">241</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ns &lt;- NS(id)</pre>
+                      <pre class="language-r">#' Convert a list to a justified `JSON` string</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">315</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">242</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tagList(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">316</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">243</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        include_css_files(pattern = "filter-panel"),</pre>
+                      <pre class="language-r">#' This function takes a list and converts it to a `JSON` string.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">317</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">244</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        uiOutput(ns("trigger_visible_state_change"), inline = TRUE),</pre>
+                      <pre class="language-r">#' The resulting `JSON` string is then optionally justified to improve readability</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">318</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">245</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        uiOutput(</pre>
+                      <pre class="language-r">#' and trimmed to easier fit in the console when printing.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">319</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">246</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ns("cards"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">320</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">247</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          class = "accordion",</pre>
+                      <pre class="language-r">#' @param x (`list`), possibly recursive, obtained from `teal_slice` or `teal_slices`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">321</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">248</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          `data-label` = ifelse(length(private$datalabel), paste0("&gt; ", private$datalabel), ""),</pre>
+                      <pre class="language-r">#' @param trim_lines (`logical(1)`) flag specifying whether to trim lines of the `JSON` string.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">322</td>
+                    <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' @return A `JSON` string representation of the input list.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">323</td>
+                    <td class="num">250</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">324</td>
+                    <td class="num">251</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">325</td>
+                    <td class="num">252</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">jsonify &lt;- function(x, trim_lines) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">253</td>
+                    <td class="coverage">131<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_list(x)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
+                  <tr class="covered">
+                    <td class="num">255</td>
+                    <td class="coverage">131<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  x_json &lt;- to_json(x)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">256</td>
+                    <td class="coverage">131<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  x_json_justified &lt;- justify_json(x_json)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">257</td>
+                    <td class="coverage">121<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (trim_lines) x_json_justified &lt;- trim_lines_json(x_json_justified)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">258</td>
+                    <td class="coverage">131<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  paste(x_json_justified, collapse = "\n")</pre>
+                    </td>
+                  </tr>
                   <tr class="never">
-                    <td class="num">326</td>
+                    <td class="num">259</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">327</td>
+                    <td class="num">260</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' `shiny` server module.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">328</td>
+                    <td class="num">261</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' Converts a list to a `JSON` string</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">329</td>
+                    <td class="num">262</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">330</td>
+                    <td class="num">263</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
+                      <pre class="language-r">#' Converts a list representation of `teal_slice` or `teal_slices` into a `JSON` string.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">331</td>
+                    <td class="num">264</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' Ensures proper unboxing of list elements.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">332</td>
+                    <td class="num">265</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `NULL`.</pre>
+                      <pre class="language-r">#' This function is used by the `format` methods for `teal_slice` and `teal_slices`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">333</td>
+                    <td class="num">266</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' @param x (`list`) possibly recursive, obtained from `teal_slice` or `teal_slices`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">334</td>
+                    <td class="num">267</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    srv_active = function(id) {</pre>
+                      <pre class="language-r">#' @return A `JSON` string.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">335</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">268</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="covered">
-                    <td class="num">336</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">269</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = id,</pre>
+                      <pre class="language-r">#' @param x (`list`) representation of `teal_slices` object.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">270</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">271</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <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">to_json &lt;- function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">337</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">273</td>
+                    <td class="coverage">131<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        function(input, output, session) {</pre>
+                      <pre class="language-r">  no_unbox &lt;- function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">338</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">274</td>
+                    <td class="coverage">2390<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_trace("FilterState$srv_active initializing, dataname: { private$dataname }")</pre>
+                      <pre class="language-r">    vars &lt;- c("selected", "choices")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">339</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">275</td>
+                    <td class="coverage">2390<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          current_state &lt;- reactive(private$state_list_get())</pre>
+                      <pre class="language-r">    if (is.list(x)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">340</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">276</td>
+                    <td class="coverage">385<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          previous_state &lt;- reactiveVal(NULL) # FilterState list</pre>
+                      <pre class="language-r">      for (var in vars) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">341</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">277</td>
+                    <td class="coverage">307<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          added_states &lt;- reactiveVal(NULL) # FilterState list</pre>
+                      <pre class="language-r">        if (!is.null(x[[var]])) x[[var]] &lt;- I(format_time(x[[var]]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">342</td>
+                    <td class="num">278</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">279</td>
+                    <td class="coverage">385<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      lapply(x, no_unbox)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">343</td>
+                    <td class="num">280</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # gives a valid shiny ns based on a default slice id</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">344</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">281</td>
+                    <td class="coverage">2005<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          fs_to_shiny_ns &lt;- function(x) {</pre>
+                      <pre class="language-r">      x</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">345</td>
-                    <td class="coverage">24<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">282</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            checkmate::assert_multi_class(x, c("FilterState", "FilterStateExpr"))</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>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">284</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">346</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">285</td>
+                    <td class="coverage">131<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            gsub("[^[:alnum:]]+", "_", get_default_slice_id(x$get_state()))</pre>
+                      <pre class="language-r">  jsonlite::toJSON(no_unbox(x), pretty = TRUE, auto_unbox = TRUE, digits = 16, null = "null")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">347</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">348</td>
+                    <td class="num">287</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">349</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">288</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          output$trigger_visible_state_change &lt;- renderUI({</pre>
+                      <pre class="language-r">#' Format `POSIXt` for storage</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">350</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">289</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            current_state()</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">351</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">290</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            isolate({</pre>
+                      <pre class="language-r">#' Convert `POSIXt` date time object to character representation in UTC time zone.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">352</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">291</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              logger::log_trace("FilterStates$srv_active@1 determining added and removed filter states")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">353</td>
+                    <td class="num">292</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              # Be aware this returns a list because `current_state` is a list and not `teal_slices`.</pre>
+                      <pre class="language-r">#' Date times are stored as string representations expressed in the UTC time zone.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">354</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">293</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              added_states(setdiff_teal_slices(current_state(), previous_state()))</pre>
+                      <pre class="language-r">#' The storage format is `YYYY-MM-DD HH:MM:SS`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">355</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">294</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              previous_state(current_state())</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">356</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">295</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              NULL</pre>
+                      <pre class="language-r">#' @param x (`POSIXt`) vector of date time values or anything else</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">357</td>
+                    <td class="num">296</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            })</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">358</td>
+                    <td class="num">297</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          })</pre>
+                      <pre class="language-r">#' @return If `x` is of class `POSIXt`, a character vector, otherwise `x` itself.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">359</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="covered">
-                    <td class="num">360</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">299</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          output[["cards"]] &lt;- renderUI({</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">361</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">300</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            lapply(</pre>
+                      <pre class="language-r">format_time &lt;- function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">362</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">301</td>
+                    <td class="coverage">307<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              current_state(), # observes only if added/removed</pre>
+                      <pre class="language-r">  if ("POSIXt" %in% class(x)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">363</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">302</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              function(state) {</pre>
+                      <pre class="language-r">    format(x, format = "%Y-%m-%d %H:%M:%S", usetz = TRUE, tz = "UTC")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">364</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">303</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                isolate( # isolates when existing state changes</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">365</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">304</td>
+                    <td class="coverage">287<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  state$ui(id = session$ns(fs_to_shiny_ns(state)), parent_id = session$ns("cards"))</pre>
+                      <pre class="language-r">    x</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">366</td>
+                    <td class="num">305</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">367</td>
+                    <td class="num">306</td>
                     <td class="coverage"></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="num">307</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">369</td>
+                    <td class="num">308</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          })</pre>
+                      <pre class="language-r">#' Justify colons in `JSON` string</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">370</td>
+                    <td class="num">309</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">371</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">310</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          observeEvent(</pre>
+                      <pre class="language-r">#' This function takes a `JSON` string as input, splits it into lines, and pads element names</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">372</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">311</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            added_states(), # we want to call FilterState module only once when it's added</pre>
+                      <pre class="language-r">#' with spaces so that colons are justified between lines.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">373</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">312</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ignoreNULL = TRUE,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">374</td>
+                    <td class="num">313</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            {</pre>
+                      <pre class="language-r">#' @param json (`character(1)`) a `JSON` string.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">375</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">314</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              added_state_names &lt;- vapply(added_states(), function(x) x$get_state()$id, character(1L))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">376</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">315</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              logger::log_trace("FilterStates$srv_active@2 triggered by added states: { toString(added_state_names) }")</pre>
+                      <pre class="language-r">#' @return A list of character strings, which can be collapsed into a `JSON` string.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">377</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">316</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              lapply(added_states(), function(state) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">378</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">317</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                fs_callback &lt;- state$server(id = fs_to_shiny_ns(state))</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">379</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">318</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                observeEvent(</pre>
+                      <pre class="language-r">justify_json &lt;- function(json) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">380</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">319</td>
+                    <td class="coverage">131<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  once = TRUE, # remove button can be called once, should be destroyed afterwards</pre>
+                      <pre class="language-r">  format_name &lt;- function(name, name_width) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">381</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">320</td>
+                    <td class="coverage">2775<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  ignoreInit = TRUE, # ignoreInit: should not matter because we destroy the previous input set of the UI</pre>
+                      <pre class="language-r">    if (nchar(name) == 1 || nchar(gsub("\\s", "", name)) &lt;= 2) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">382</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">321</td>
+                    <td class="coverage">630<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  eventExpr = fs_callback(), # when remove button is clicked in the FilterState ui</pre>
+                      <pre class="language-r">      return(name)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">383</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">322</td>
+                    <td class="coverage">2145<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  handlerExpr = private$state_list_remove(state$get_state()$id)</pre>
+                      <pre class="language-r">    } else if (grepl("slices|attributes", name)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">384</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">323</td>
+                    <td class="coverage">90<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                )</pre>
+                      <pre class="language-r">      paste0(name, ":")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">385</td>
+                    <td class="num">324</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">386</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">325</td>
+                    <td class="coverage">2055<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              added_states(NULL)</pre>
+                      <pre class="language-r">      paste(format(name, width = name_width), ":")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">387</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">388</td>
+                    <td class="num">327</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">389</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">328</td>
+                    <td class="coverage">131<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  json_lines &lt;- strsplit(json, "\n")[[1]]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">390</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">329</td>
+                    <td class="coverage">131<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          NULL</pre>
+                      <pre class="language-r">  json_lines_split &lt;- regmatches(json_lines, regexpr(":", json_lines), invert = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">391</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">330</td>
+                    <td class="coverage">131<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">  name_width &lt;- max(unlist(regexpr(":", json_lines))) - 1</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">392</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">331</td>
+                    <td class="coverage">131<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">  vapply(json_lines_split, function(x) paste0(format_name(x[1], name_width), stats::na.omit(x[2])), character(1))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">393</td>
+                    <td class="num">332</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">394</td>
+                    <td class="num">333</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">395</td>
+                    <td class="num">334</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">#' Trim lines in `JSON` string</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">396</td>
+                    <td class="num">335</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' `shiny` UI module to add filter variable.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">397</td>
+                    <td class="num">336</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' This function takes a `JSON` string as input and returns a modified version of the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">398</td>
+                    <td class="num">337</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param id (`character(1)`)</pre>
+                      <pre class="language-r">#' input where the values portion of each line is trimmed for a less messy console output.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">399</td>
+                    <td class="num">338</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">400</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 x (`character`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">401</td>
+                    <td class="num">340</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `shiny.tag`</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">402</td>
+                    <td class="num">341</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' @return A character string trimmed after a certain hard-coded number of characters in the value portion.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">403</td>
+                    <td class="num">342</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_add = function(id) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">404</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">343</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_string(id)</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">405</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">344</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data &lt;- private$data</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">406</td>
+                    <td class="num">345</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">trim_lines_json &lt;- function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">407</td>
-                    <td class="coverage">1<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">408</td>
-                    <td class="coverage"></td>
+                    <td class="num">346</td>
+                    <td class="coverage">121<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  name_width &lt;- max(unlist(gregexpr(":", x))) - 1</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">409</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">347</td>
+                    <td class="coverage">121<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (ncol(data) == 0) {</pre>
+                      <pre class="language-r">  trim_position &lt;- name_width + 37L</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">410</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">348</td>
+                    <td class="coverage">121<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$div("no sample variables available")</pre>
+                      <pre class="language-r">  x_trim &lt;- substr(x, 1, trim_position)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">411</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">349</td>
+                    <td class="coverage">121<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (nrow(data) == 0) {</pre>
+                      <pre class="language-r">  substr(x_trim, trim_position - 2, trim_position) &lt;- "..."</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">412</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">350</td>
+                    <td class="coverage">121<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$div("no samples available")</pre>
+                      <pre class="language-r">  x_trim</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">413</td>
+                    <td class="num">351</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">414</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">352</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        uiOutput(ns("add_filter"))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">415</td>
+                    <td class="num">353</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' Default `teal_slice` id</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">416</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="never">
-                    <td class="num">417</td>
+                    <td class="num">355</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Create a slice id if none provided.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">418</td>
+                    <td class="num">356</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">419</td>
+                    <td class="num">357</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' `shiny` server module to add filter variable.</pre>
+                      <pre class="language-r">#' Function returns a default `id` for a `teal_slice` object which needs</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">420</td>
+                    <td class="num">358</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' to be distinct from other `teal_slice` objects created for any</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">421</td>
+                    <td class="num">359</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' This module controls available choices to select as a filter variable.</pre>
+                      <pre class="language-r">#' `FilterStates` object. Returned `id` can be treated as a location of</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">422</td>
+                    <td class="num">360</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Once selected, a variable is removed from available choices.</pre>
+                      <pre class="language-r">#' a vector on which `FilterState` is built:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">423</td>
+                    <td class="num">361</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Removing a filter variable adds it back to available choices.</pre>
+                      <pre class="language-r">#' - for a `data.frame` `id` concatenates `dataname` and `varname`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">424</td>
+                    <td class="num">362</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' - for a `MultiAssayExperiment` `id` concatenates `dataname`, `varname`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">425</td>
+                    <td class="num">363</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param id (`character(1)`)</pre>
+                      <pre class="language-r">#' `experiment` and `arg`, so that one can add `teal_slice` for a `varname`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">426</td>
+                    <td class="num">364</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
+                      <pre class="language-r">#' which exists in multiple `SummarizedExperiment`s or exists in both `colData`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">427</td>
+                    <td class="num">365</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' and `rowData` of given experiment.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">428</td>
+                    <td class="num">366</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `NULL`.</pre>
+                      <pre class="language-r">#' For such a vector `teal.slice` doesn't allow to activate more than one filters.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">429</td>
+                    <td class="num">367</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    srv_add = function(id) {</pre>
+                      <pre class="language-r">#' In case of `teal_slice_expr` `id` is mandatory and must be unique.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">430</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">368</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="covered">
-                    <td class="num">431</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">369</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = id,</pre>
+                      <pre class="language-r">#' @param x (`teal_slice` or `list`)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">432</td>
-                    <td class="coverage">8<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">        function(input, output, session) {</pre>
+                      <pre class="language-r">#' @return (`character(1)`) `id` for a `teal_slice` object.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">433</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">371</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_trace("FilterStates$srv_add initializing, dataname: { private$dataname }")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">434</td>
+                    <td class="num">372</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">435</td>
+                    <td class="num">373</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # available choices to display</pre>
+                      <pre class="language-r">get_default_slice_id &lt;- function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">436</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">374</td>
+                    <td class="coverage">610<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          avail_column_choices &lt;- reactive({</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(x, c("teal_slice", "list"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">437</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">375</td>
+                    <td class="coverage">610<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            data &lt;- private$data</pre>
+                      <pre class="language-r">  isolate({</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">438</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">376</td>
+                    <td class="coverage">610<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            vars_include &lt;- private$get_filterable_varnames()</pre>
+                      <pre class="language-r">    if (inherits(x, "teal_slice_expr") || is.null(x$varname)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">439</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">377</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            active_filter_vars &lt;- unique(unlist(lapply(self$get_filter_state(), "[[", "varname")))</pre>
+                      <pre class="language-r">      x$id</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">440</td>
-                    <td class="coverage">9<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">            choices &lt;- setdiff(vars_include, active_filter_vars)</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">441</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">379</td>
+                    <td class="coverage">600<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            varlabels &lt;- get_varlabels(data)</pre>
+                      <pre class="language-r">      paste(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">442</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">380</td>
+                    <td class="coverage">600<em>x</em></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">443</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">381</td>
+                    <td class="coverage">600<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            data_choices_labeled(</pre>
+                      <pre class="language-r">          length,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">444</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">382</td>
+                    <td class="coverage">600<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              data = data,</pre>
+                      <pre class="language-r">          as.list(x)[c("dataname", "varname", "experiment", "arg")]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">445</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">383</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              choices = choices,</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">446</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">384</td>
+                    <td class="coverage">600<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              varlabels = varlabels,</pre>
+                      <pre class="language-r">        collapse = " "</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">447</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">385</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              keys = private$keys</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">448</td>
+                    <td class="num">386</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">449</td>
+                    <td class="num">387</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          })</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">450</td>
+                    <td class="num">388</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/count_labels.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">451</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Progress bars with labels</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">452</td>
-                    <td class="coverage">8<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">          output$add_filter &lt;- renderUI({</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">453</td>
-                    <td class="coverage">6<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">            logger::log_trace(</pre>
+                      <pre class="language-r">#' `shiny` element displaying a series of progress bars and observation counts.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">454</td>
-                    <td class="coverage">6<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">              "FilterStates$srv_add@1 updating available column choices, dataname: { private$dataname }"</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">455</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">#' @param inputId (`character(1)`) `shiny` id of the parent element (e.g. a check-box group input).</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">456</td>
-                    <td class="coverage">6<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">            if (length(avail_column_choices()) == 0) {</pre>
+                      <pre class="language-r">#' @param choices (`vector`) Available values. Used to determine label text.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">457</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$span("No available columns to add.")</pre>
+                      <pre class="language-r">#' @param countsmax (`numeric`) Maximum counts of each element. Must be the same length `choices`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">458</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">#' @param countsnow (`numeric`) Current counts of each element. Must be the same length `choices`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">459</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">              tags$div(</pre>
+                      <pre class="language-r">#' @param session (`session`) `shiny` `session` object passed to function given to `shinyServer`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">460</td>
-                    <td class="coverage">6<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">                teal.widgets::optionalSelectInput(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">461</td>
-                    <td class="coverage">6<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">                  session$ns("var_to_add"),</pre>
+                      <pre class="language-r">#' @return List of `shiny.tag`s.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">462</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">                  choices = avail_column_choices(),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">463</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">                  selected = NULL,</pre>
+                      <pre class="language-r">#' Creates a number of progress bar elements, one for each value of `choices`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">464</td>
-                    <td class="coverage">6<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">                  options = shinyWidgets::pickerOptions(</pre>
+                      <pre class="language-r">#' The widths of all progress bars add up to the full width of the container.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">465</td>
-                    <td class="coverage">6<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">                    liveSearch = TRUE,</pre>
+                      <pre class="language-r">#' Each progress bar has a text label that contains the name of the value and the number of counts.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">466</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">                    noneSelectedText = "Select variable to filter"</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">467</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  )</pre>
+                      <pre class="language-r">#' If the filter panel is used with `count_type = "all"`, the progress bars will be filled</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">468</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                )</pre>
+                      <pre class="language-r">#' according to the number of counts remaining in the current selection and the label will show</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">469</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r">#' both the current and the total number of counts.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">470</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">471</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          })</pre>
+                      <pre class="language-r">#' Each child element can have a unique `id` attribute to be used independently.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">472</td>
+                    <td class="num">22</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">473</td>
-                    <td class="coverage">8<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">          observeEvent(</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">474</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">            eventExpr = input$var_to_add,</pre>
+                      <pre class="language-r">#' # use non-exported function from teal.slice</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">475</td>
-                    <td class="coverage">8<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">            handlerExpr = {</pre>
+                      <pre class="language-r">#' include_js_files &lt;- getFromNamespace("include_js_files", "teal.slice")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">476</td>
-                    <td class="coverage">3<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">              logger::log_trace(</pre>
+                      <pre class="language-r">#' include_css_files &lt;- getFromNamespace("include_css_files", "teal.slice")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">477</td>
-                    <td class="coverage">3<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">                sprintf(</pre>
+                      <pre class="language-r">#' countBars &lt;- getFromNamespace("countBars", "teal.slice")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">478</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">                  "FilterStates$srv_add@2 adding FilterState of variable %s, dataname: %s",</pre>
+                      <pre class="language-r">#' updateCountBars &lt;- getFromNamespace("updateCountBars", "teal.slice")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">479</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">                  input$var_to_add,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">480</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">                  private$dataname</pre>
+                      <pre class="language-r">#' library(shiny)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">481</td>
+                    <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">482</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r">#' choices &lt;- sample(as.factor(c("a", "b", "c")), size = 20, replace = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">483</td>
-                    <td class="coverage">3<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">              self$set_filter_state(</pre>
+                      <pre class="language-r">#' counts &lt;- table(choices)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">484</td>
-                    <td class="coverage">3<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">                teal_slices(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">485</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                  teal_slice(dataname = private$dataname, varname = input$var_to_add)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">486</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">487</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">488</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              logger::log_trace(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">489</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                sprintf(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">490</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                  "FilterStates$srv_add@2 added FilterState of variable %s, dataname: %s",</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">491</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                  input$var_to_add,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">492</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                  private$dataname</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">493</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                )</pre>
+                      <pre class="language-r">#' labels &lt;- countBars(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">494</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r">#'   inputId = "counts",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">495</td>
+                    <td class="num">36</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">496</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#'   countsmax = counts,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">497</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">498</td>
-                    <td class="coverage">8<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_trace("FilterStates$srv_add initialized, dataname: { private$dataname }")</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">499</td>
-                    <td class="coverage">8<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          NULL</pre>
+                      <pre class="language-r">#'   countsnow = unname(counts)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">500</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">501</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">502</td>
+                    <td class="num">41</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">503</td>
+                    <td class="num">42</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">504</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  private = list(</pre>
+                      <pre class="language-r">#'     class = "choices_state",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">505</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # private fields ----</pre>
+                      <pre class="language-r">#'     include_js_files("count-bar-labels.js"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">506</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    count_type = "none", # specifies how observation numbers are displayed in filter cards,</pre>
+                      <pre class="language-r">#'     include_css_files(pattern = "filter-panel"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">507</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data = NULL, # data.frame, MAE, SE or matrix</pre>
+                      <pre class="language-r">#'     checkboxGroupInput(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">508</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data_reactive = NULL, # reactive</pre>
+                      <pre class="language-r">#'       inputId = "choices",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">509</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datalabel = NULL, # to follow default `experiment = NULL` in `teal_slice`</pre>
+                      <pre class="language-r">#'       selected = levels(choices),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">510</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataname = NULL, # because it holds object of class name</pre>
+                      <pre class="language-r">#'       choiceNames = labels,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">511</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataname_prefixed = character(0), # name used in call returned from get_call</pre>
+                      <pre class="language-r">#'       choiceValues = levels(choices),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">512</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    exclude_varnames = character(0), # holds column names</pre>
+                      <pre class="language-r">#'       label = NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">513</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    include_varnames = character(0), # holds column names</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">514</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extract_type = character(0), # type of the prefix in a subset call (eg. "list": x$var; "matrix": x[["var"]])</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">515</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    fun = quote(subset), # function used to generate subset call</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">516</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    keys = character(0),</pre>
+                      <pre class="language-r">#' server &lt;- function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">517</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ns = NULL, # shiny ns()</pre>
+                      <pre class="language-r">#'   observeEvent(input$choices, {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">518</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    observers = list(), # observers</pre>
+                      <pre class="language-r">#'     new_counts &lt;- counts</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">519</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    state_list = NULL, # list of `reactiveVal`s initialized by init methods of child classes,</pre>
+                      <pre class="language-r">#'     new_counts[!names(new_counts) %in% input$choices] &lt;- 0</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">520</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     updateCountBars(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">521</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # private methods ----</pre>
+                      <pre class="language-r">#'       inputId = "counts",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">522</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'       choices = levels(choices),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">523</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @description</pre>
+                      <pre class="language-r">#'       countsmax = counts,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">524</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Set the allowed filterable variables</pre>
+                      <pre class="language-r">#'       countsnow = unname(new_counts)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">525</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @param include_varnames (`character`) Names of variables included in filtering.</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">526</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @param exclude_varnames (`character`) Names of variables excluded from filtering.</pre>
+                      <pre class="language-r">#'   })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">527</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="never">
-                    <td class="num">528</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @details When retrieving the filtered variables only</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">529</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # those which have filtering supported (i.e. are of the permitted types).</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">530</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Only one from `include_varnames` and `exclude_varnames` can be used in one call. When `exclude_varnames`</pre>
+                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">531</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # is called `include_varnames` is cleared - same otherwise.</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">532</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # are included.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">533</td>
+                    <td class="num">72</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">534</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @return `NULL`, invisibly.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">535</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set_filterable_varnames = function(include_varnames = character(0), exclude_varnames = character(0)) {</pre>
+                      <pre class="language-r">countBars &lt;- function(inputId, choices, countsmax, countsnow = NULL) { # nolint</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">536</td>
-                    <td class="coverage">288<em>x</em></td>
+                    <td class="num">75</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if ((length(include_varnames) + length(exclude_varnames)) == 0L) {</pre>
+                      <pre class="language-r">  checkmate::assert_string(inputId)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">537</td>
-                    <td class="coverage">113<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        return(invisible(NULL))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">538</td>
-                    <td class="coverage"></td>
+                    <td class="num">76</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">  checkmate::assert_vector(choices)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">539</td>
-                    <td class="coverage">175<em>x</em></td>
+                    <td class="num">77</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_character(include_varnames, any.missing = FALSE, min.len = 0L, null.ok = TRUE)</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(countsmax, len = length(choices))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">540</td>
-                    <td class="coverage">175<em>x</em></td>
+                    <td class="num">78</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_character(exclude_varnames, any.missing = FALSE, min.len = 0L, null.ok = TRUE)</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(countsnow, len = length(choices), null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">541</td>
-                    <td class="coverage">175<em>x</em></td>
+                    <td class="num">79</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(include_varnames) &amp;&amp; length(exclude_varnames)) {</pre>
+                      <pre class="language-r">  if (!is.null(countsnow)) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">542</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">80</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        stop(</pre>
+                      <pre class="language-r">    checkmate::assert_true(all(countsnow &lt;= countsmax))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">543</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">81</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "`include_varnames` and `exclude_varnames` has been both specified for",</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">544</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">82</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          private$dataname,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">545</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">83</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ". Only one per dataset is allowed.",</pre>
+                      <pre class="language-r">  ns &lt;- NS(inputId)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">546</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">547</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">85</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">  mapply(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">548</td>
-                    <td class="coverage">175<em>x</em></td>
+                    <td class="num">86</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      supported_vars &lt;- get_supported_filter_varnames(private$data)</pre>
+                      <pre class="language-r">    countBar,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">549</td>
-                    <td class="coverage">175<em>x</em></td>
+                    <td class="num">87</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(include_varnames)) {</pre>
+                      <pre class="language-r">    inputId = ns(seq_along(choices)),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">550</td>
-                    <td class="coverage">161<em>x</em></td>
+                    <td class="num">88</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$include_varnames &lt;- intersect(include_varnames, supported_vars)</pre>
+                      <pre class="language-r">    label = as.character(choices),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">551</td>
-                    <td class="coverage">161<em>x</em></td>
+                    <td class="num">89</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$exclude_varnames &lt;- character(0)</pre>
+                      <pre class="language-r">    countmax = countsmax,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">552</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">90</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">    countnow = if (is.null(countsnow)) rep(list(NULL), length(choices)) else countsnow,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">553</td>
+                    <td class="num">91</td>
                     <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$exclude_varnames &lt;- exclude_varnames</pre>
+                      <pre class="language-r">    MoreArgs = list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">554</td>
+                    <td class="num">92</td>
                     <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$include_varnames &lt;- character(0)</pre>
+                      <pre class="language-r">      counttotal = sum(countsmax)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">555</td>
+                    <td class="num">93</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">556</td>
-                    <td class="coverage">175<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      invisible(NULL)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">557</td>
-                    <td class="coverage"></td>
+                    <td class="num">94</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">    SIMPLIFY = FALSE, USE.NAMES = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">558</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">559</td>
+                    <td class="num">96</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">560</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Get vector of filterable varnames</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">561</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #</pre>
+                      <pre class="language-r">#' Progress bar with label</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">562</td>
+                    <td class="num">99</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">563</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #  These are the only columns which can be used in the filter panel</pre>
+                      <pre class="language-r">#' `shiny` element displaying a progress bar and observation count.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">564</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="never">
-                    <td class="num">565</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @return character vector with names of the columns</pre>
+                      <pre class="language-r">#' A progress bar is created to visualize the number of counts in a variable, with filling and a text label.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">566</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_filterable_varnames = function() {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">567</td>
-                    <td class="coverage">144<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      if (length(private$include_varnames)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">568</td>
-                    <td class="coverage">97<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        private$include_varnames</pre>
+                      <pre class="language-r">#' - progress bar width is derived as a fraction of the container width: `style = "width: &lt;countmax&gt; / &lt;counttotal&gt;%"`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">569</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">570</td>
-                    <td class="coverage">47<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        supported_varnames &lt;- get_supported_filter_varnames(private$data)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">571</td>
-                    <td class="coverage">47<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        setdiff(supported_varnames, private$exclude_varnames)</pre>
+                      <pre class="language-r">#' - progress bar is filled up to the fraction `&lt;countnow&gt; / &lt;countmax&gt;`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">572</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' - text label is obtained by `&lt;label&gt; (&lt;countnow&gt; / &lt;countmax&gt;)`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">573</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">574</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param inputId (`character(1)`) `shiny` id of the parent element (e.g. a check-box group input).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">575</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # state_list methods ----</pre>
+                      <pre class="language-r">#' @param label (`character(1)`) Text to display followed by counts.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">576</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param countmax (`numeric(1)`) Maximum count for a single element.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">577</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @description</pre>
+                      <pre class="language-r">#' @param countnow (`numeric(1)`) Current count for a single element.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">578</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Returns a list of `FilterState` objects stored in this `FilterStates`.</pre>
+                      <pre class="language-r">#' @param counttotal (`numeric(1)`) Sum total of maximum counts of all elements, see `Details`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">579</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #</pre>
+                      <pre class="language-r">#' @param session (`session`) `shiny` `session` object passed to function given to `shinyServer`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">580</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @param state_id (`character(1)`)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">581</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #   name of element in a filter state (which is a `reactiveVal` containing a list)</pre>
+                      <pre class="language-r">#' @return `shiny.tag` object with a progress bar and a label.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">582</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">583</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @return `list` of `FilterState` objects</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">584</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">585</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    state_list_get = function(state_id = NULL) {</pre>
+                      <pre class="language-r">countBar &lt;- function(inputId, label, countmax, countnow = NULL, counttotal = countmax) { # nolint</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">586</td>
-                    <td class="coverage">212<em>x</em></td>
+                    <td class="num">119</td>
+                    <td class="coverage">62<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_string(state_id, null.ok = TRUE)</pre>
+                      <pre class="language-r">  checkmate::assert_string(inputId)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">587</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">120</td>
+                    <td class="coverage">58<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="covered">
-                    <td class="num">588</td>
-                    <td class="coverage">212<em>x</em></td>
+                    <td class="num">121</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (is.null(state_id)) {</pre>
+                      <pre class="language-r">  checkmate::assert_number(countmax)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">589</td>
-                    <td class="coverage">212<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        private$state_list()</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">590</td>
-                    <td class="coverage"></td>
+                    <td class="num">122</td>
+                    <td class="coverage">53<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">  checkmate::assert_number(countnow, null.ok = TRUE, upper = countmax)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">591</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">123</td>
+                    <td class="coverage">51<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$state_list()[[state_id]]</pre>
+                      <pre class="language-r">  checkmate::assert_number(counttotal, lower = countmax)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">592</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">593</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">125</td>
+                    <td class="coverage">49<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">  label &lt;- make_count_text(label, countmax = countmax, countnow = countnow)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">594</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">126</td>
+                    <td class="coverage">49<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  ns &lt;- NS(inputId)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">595</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">127</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @description</pre>
+                      <pre class="language-r">  if (is.null(countnow)) countnow &lt;- 0</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">596</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">128</td>
+                    <td class="coverage">49<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Adds a new `FilterState` object to this `FilterStates`.</pre>
+                      <pre class="language-r">  tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">597</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">129</td>
+                    <td class="coverage">49<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Raises error if the length of `x` does not match the length of `state_id`.</pre>
+                      <pre class="language-r">    class = "progress state-count-container",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">598</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #</pre>
+                      <pre class="language-r">    # * .9 to not exceed width of the parent html element</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">599</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">131</td>
+                    <td class="coverage">49<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @param x (`FilterState`)</pre>
+                      <pre class="language-r">    tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">600</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">132</td>
+                    <td class="coverage">49<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #   object to be added to filter state list</pre>
+                      <pre class="language-r">      id = ns("count_bar_filtered"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">601</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">133</td>
+                    <td class="coverage">49<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @param state_id (`character(1)`)</pre>
+                      <pre class="language-r">      class = "progress-bar state-count-bar-filtered",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">602</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">134</td>
+                    <td class="coverage">49<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #   name of element in a filter state (which is a `reactiveVal` containing a list)</pre>
+                      <pre class="language-r">      style = sprintf("width: %s%%", countnow / counttotal * 100),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">603</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">135</td>
+                    <td class="coverage">49<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #</pre>
+                      <pre class="language-r">      role = "progressbar",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">604</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">136</td>
+                    <td class="coverage">49<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @return `NULL`.</pre>
+                      <pre class="language-r">      label</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">605</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">606</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">138</td>
+                    <td class="coverage">49<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    state_list_push = function(x, state_id) {</pre>
+                      <pre class="language-r">    tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">607</td>
-                    <td class="coverage">183<em>x</em></td>
+                    <td class="num">139</td>
+                    <td class="coverage">49<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      logger::log_trace("{ class(self)[1] } pushing into state_list, dataname: { private$dataname }")</pre>
+                      <pre class="language-r">      id = ns("count_bar_unfiltered"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">608</td>
-                    <td class="coverage">183<em>x</em></td>
+                    <td class="num">140</td>
+                    <td class="coverage">49<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_string(state_id)</pre>
+                      <pre class="language-r">      class = "progress-bar state-count-bar-unfiltered",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">609</td>
-                    <td class="coverage">183<em>x</em></td>
+                    <td class="num">141</td>
+                    <td class="coverage">49<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_multi_class(x, c("FilterState", "FilterStateExpr"))</pre>
+                      <pre class="language-r">      style = sprintf("width: %s%%", (countmax - countnow) / counttotal * 100),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">610</td>
-                    <td class="coverage">183<em>x</em></td>
+                    <td class="num">142</td>
+                    <td class="coverage">49<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      state &lt;- stats::setNames(list(x), state_id)</pre>
+                      <pre class="language-r">      role = "progressbar"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">611</td>
-                    <td class="coverage">183<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">      new_state_list &lt;- c(</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">612</td>
-                    <td class="coverage">183<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">144</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        isolate(private$state_list()),</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">613</td>
-                    <td class="coverage">183<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">145</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        state</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">614</td>
+                    <td class="num">146</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">615</td>
-                    <td class="coverage">183<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">      isolate(private$state_list(new_state_list))</pre>
+                      <pre class="language-r">#' @rdname countBars</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">616</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">updateCountBars &lt;- function(session = getDefaultReactiveDomain(), inputId, choices, countsmax, countsnow = NULL) { # nolint</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">617</td>
-                    <td class="coverage">183<em>x</em></td>
+                    <td class="num">149</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      logger::log_trace("{ class(self)[1] } pushed into queue, dataname: { private$dataname }")</pre>
+                      <pre class="language-r">  checkmate::assert_string(inputId)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">618</td>
-                    <td class="coverage">183<em>x</em></td>
+                    <td class="num">150</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(NULL)</pre>
+                      <pre class="language-r">  checkmate::assert_vector(choices)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">619</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">151</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(countsmax, len = length(choices))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">152</td>
+                    <td class="coverage">7<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_numeric(countsnow, len = length(choices), null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">620</td>
+                    <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">621</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">154</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @description</pre>
+                      <pre class="language-r">  ns &lt;- NS(inputId)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">622</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">155</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Removes a single filter state with all associated shiny elements:</pre>
+                      <pre class="language-r">  mapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">623</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">156</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # * specified `FilterState` from `private$state_list`</pre>
+                      <pre class="language-r">    updateCountBar,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">624</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">157</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # * UI card created for this filter</pre>
+                      <pre class="language-r">    inputId = ns(seq_along(choices)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">625</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">158</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # * observers tracking the selection and remove button</pre>
+                      <pre class="language-r">    label = choices,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">626</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">159</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #</pre>
+                      <pre class="language-r">    countmax = countsmax,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">627</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">160</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @param state_id (`character`)</pre>
+                      <pre class="language-r">    countnow = if (is.null(countsnow)) rep(list(NULL), length(choices)) else countsnow,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">628</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">161</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #   identifiers of elements in a filter state (which is a `reactiveVal` containing a list).</pre>
+                      <pre class="language-r">    MoreArgs = list(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">162</td>
+                    <td class="coverage">7<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      counttotal = sum(countsmax)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">629</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @param force (`logical(1)`)</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">630</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #   flag specifying whether to include anchored filter states.</pre>
+                      <pre class="language-r">  )</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">165</td>
+                    <td class="coverage">7<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  invisible(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">631</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">632</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @return `NULL`, invisibly.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">633</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #</pre>
+                      <pre class="language-r">#' @rdname countBar</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">634</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    state_list_remove = function(state_id, force = FALSE) {</pre>
+                      <pre class="language-r">updateCountBar &lt;- function(session = getDefaultReactiveDomain(), inputId, label, countmax, countnow = NULL, counttotal) { # nolint</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">635</td>
-                    <td class="coverage">32<em>x</em></td>
+                    <td class="num">170</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_character(state_id)</pre>
+                      <pre class="language-r">  checkmate::assert_string(inputId)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">636</td>
-                    <td class="coverage">32<em>x</em></td>
+                    <td class="num">171</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      logger::log_trace("{ class(self)[1] } removing a filter, state_id: { toString(state_id) }")</pre>
+                      <pre class="language-r">  checkmate::assert_string(label)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">637</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">172</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  checkmate::assert_number(countmax)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">638</td>
-                    <td class="coverage">32<em>x</em></td>
+                    <td class="num">173</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      isolate({</pre>
+                      <pre class="language-r">  checkmate::assert_number(countnow, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">639</td>
-                    <td class="coverage">32<em>x</em></td>
+                    <td class="num">174</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        current_state_ids &lt;- vapply(private$state_list(), function(x) x$get_state()$id, character(1))</pre>
+                      <pre class="language-r">  checkmate::assert_number(counttotal)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">640</td>
-                    <td class="coverage">32<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">        to_remove &lt;- state_id %in% current_state_ids</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">641</td>
-                    <td class="coverage">32<em>x</em></td>
+                    <td class="num">176</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (any(to_remove)) {</pre>
+                      <pre class="language-r">  label &lt;- make_count_text(label, countmax = countmax, countnow = countnow)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">642</td>
-                    <td class="coverage">31<em>x</em></td>
+                    <td class="num">177</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          new_state_list &lt;- Filter(</pre>
+                      <pre class="language-r">  if (is.null(countnow)) countnow &lt;- countmax</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">643</td>
-                    <td class="coverage">31<em>x</em></td>
+                    <td class="num">178</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            function(state) {</pre>
+                      <pre class="language-r">  session$sendCustomMessage(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">644</td>
-                    <td class="coverage">68<em>x</em></td>
+                    <td class="num">179</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              if (state$get_state()$id %in% state_id) {</pre>
+                      <pre class="language-r">    type = "updateCountBar",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">645</td>
-                    <td class="coverage">54<em>x</em></td>
+                    <td class="num">180</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                if (state$get_state()$anchored &amp;&amp; !force) {</pre>
+                      <pre class="language-r">    message = list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">646</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">181</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  return(TRUE)</pre>
+                      <pre class="language-r">      id = session$ns(inputId),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">647</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">                } else {</pre>
+                      <pre class="language-r">      label = label,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">648</td>
-                    <td class="coverage">47<em>x</em></td>
+                    <td class="num">183</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  state$destroy_observers()</pre>
+                      <pre class="language-r">      countmax = countmax,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">649</td>
-                    <td class="coverage">47<em>x</em></td>
+                    <td class="num">184</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  FALSE</pre>
+                      <pre class="language-r">      countnow = countnow,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">650</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">                }</pre>
+                      <pre class="language-r">      counttotal = counttotal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">651</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">652</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                TRUE</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">653</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="never">
-                    <td class="num">654</td>
+                    <td class="num">188</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">655</td>
-                    <td class="coverage">31<em>x</em></td>
+                    <td class="num">189</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            private$state_list()</pre>
+                      <pre class="language-r">  invisible(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">656</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">657</td>
-                    <td class="coverage">31<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          private$state_list(new_state_list)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">658</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="covered">
-                    <td class="num">659</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          warning(sprintf("\"%s\" not found in state list", state_id))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">660</td>
+                    <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">#' @rdname countBar</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">661</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">updateCountText &lt;- function(session = getDefaultReactiveDomain(), inputId, label, countmax, countnow) { # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">662</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">194</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  checkmate::assert_string(inputId)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">663</td>
-                    <td class="coverage">32<em>x</em></td>
+                    <td class="num">195</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(NULL)</pre>
+                      <pre class="language-r">  checkmate::assert_string(label)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">664</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">196</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">665</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">666</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    # @description</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">667</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    # Remove all `FilterState` objects from this `FilterStates` object.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">668</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    # @param force (`logical(1)`)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">669</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    #   flag specifying whether to include anchored filter states.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">670</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    # @return `NULL`, invisibly.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">671</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    #</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">672</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    state_list_empty = function(force = FALSE) {</pre>
+                      <pre class="language-r">  checkmate::assert_number(countmax)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">673</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">197</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      isolate({</pre>
+                      <pre class="language-r">  checkmate::assert_number(countnow, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">674</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">198</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        logger::log_trace(</pre>
+                      <pre class="language-r">  label &lt;- make_count_text(label, countmax = countmax, countnow = countnow)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">675</td>
-                    <td class="coverage">25<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          "{ class(self)[1] }$state_list_empty removing all non-anchored filters for dataname: { private$dataname }"</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">676</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">677</td>
-                    <td class="coverage"></td>
+                    <td class="num">199</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  session$sendCustomMessage(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">678</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">200</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        state_list &lt;- private$state_list()</pre>
+                      <pre class="language-r">    type = "updateCountText",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">679</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">201</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (length(state_list)) {</pre>
+                      <pre class="language-r">    message = list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">680</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">202</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          state_ids &lt;- vapply(state_list, function(x) x$get_state()$id, character(1))</pre>
+                      <pre class="language-r">      id = session$ns(inputId),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">681</td>
-                    <td class="coverage">15<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          private$state_list_remove(state_ids, force)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">682</td>
-                    <td class="coverage"></td>
+                    <td class="num">203</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">      label = label</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">683</td>
+                    <td class="num">204</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">684</td>
+                    <td class="num">205</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">685</td>
-                    <td class="coverage">25<em>x</em></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">686</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">687</td>
+                    <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">688</td>
+                    <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @description</pre>
+                      <pre class="language-r">#' Build count text</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">689</td>
+                    <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Set filter state</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">690</td>
+                    <td class="num">210</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #</pre>
+                      <pre class="language-r">#' Returns a text label describing filtered counts. The text is composed in the following way:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">691</td>
+                    <td class="num">211</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Utility method for `set_filter_state` to create or modify `FilterState` using a single</pre>
+                      <pre class="language-r">#' - when `countnow` is not `NULL`: `&lt;label&gt; (&lt;countnow&gt;/&lt;countmax&gt;)`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">692</td>
+                    <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #  `teal_slice`.</pre>
+                      <pre class="language-r">#' - when `countnow` is `NULL`: `&lt;label&gt; (&lt;countmax&gt;)`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">693</td>
+                    <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @param state (`teal_slices`)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">694</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @param data (`data.frame`, `matrix` or `DataFrame`)</pre>
+                      <pre class="language-r">#' @param label (`character(1)`) Text displayed before counts.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">695</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @param data_reactive (`function`)</pre>
+                      <pre class="language-r">#' @param countnow (`numeric(1)`) Number of filtered counts.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">696</td>
+                    <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #  function having `sid` as argument.</pre>
+                      <pre class="language-r">#' @param countmax (`numeric(1)`) Number of unfiltered counts.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">697</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">698</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @return `NULL`, invisibly.</pre>
+                      <pre class="language-r">#' @return A character string.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">699</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">700</td>
+                    <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set_filter_state_impl = function(state,</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">701</td>
+                    <td class="num">221</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     data,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">702</td>
+                    <td class="num">222</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     data_reactive) {</pre>
+                      <pre class="language-r">make_count_text &lt;- function(label, countmax, countnow = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">703</td>
-                    <td class="coverage">211<em>x</em></td>
+                    <td class="num">223</td>
+                    <td class="coverage">96<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_class(state, "teal_slices")</pre>
+                      <pre class="language-r">  checkmate::assert_string(label)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">704</td>
-                    <td class="coverage">211<em>x</em></td>
+                    <td class="num">224</td>
+                    <td class="coverage">94<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_multi_class(data, c("data.frame", "matrix", "DataFrame", "HermesData"))</pre>
+                      <pre class="language-r">  checkmate::assert_number(countmax)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">705</td>
-                    <td class="coverage">211<em>x</em></td>
+                    <td class="num">225</td>
+                    <td class="coverage">92<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_function(data_reactive, args = "sid")</pre>
+                      <pre class="language-r">  checkmate::assert_number(countnow, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">706</td>
-                    <td class="coverage">211<em>x</em></td>
+                    <td class="num">226</td>
+                    <td class="coverage">90<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(state) == 0L) {</pre>
+                      <pre class="language-r">  sprintf(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">707</td>
-                    <td class="coverage">101<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        return(invisible(NULL))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">708</td>
-                    <td class="coverage"></td>
+                    <td class="num">227</td>
+                    <td class="coverage">90<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">    "%s (%s%s)",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">709</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">228</td>
+                    <td class="coverage">90<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    label,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">710</td>
-                    <td class="coverage">110<em>x</em></td>
+                    <td class="num">229</td>
+                    <td class="coverage">90<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      slices_hashed &lt;- vapply(state, `[[`, character(1L), "id")</pre>
+                      <pre class="language-r">    if (is.null(countnow)) "" else sprintf("%s/", countnow),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">711</td>
-                    <td class="coverage">110<em>x</em></td>
+                    <td class="num">230</td>
+                    <td class="coverage">90<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (any(duplicated(slices_hashed))) {</pre>
+                      <pre class="language-r">    countmax</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">712</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">231</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="missed">
-                    <td class="num">713</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">232</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Some of the teal_slice objects refer to the same filter. ",</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">714</td>
-                    <td class="coverage">!</td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/FilterState-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">          "Please specify different 'id' when calling teal_slice"</pre>
+                      <pre class="language-r">#' Initialize `FilterState`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">715</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">716</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' Initializes a `FilterState` object corresponding to the class of the filtered variable.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">717</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="covered">
-                    <td class="num">718</td>
-                    <td class="coverage">110<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">      state_list &lt;- isolate(private$state_list_get())</pre>
+                      <pre class="language-r">#' @param x (`vector`)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">719</td>
-                    <td class="coverage">110<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">      lapply(state, function(slice) {</pre>
+                      <pre class="language-r">#'   variable to be filtered.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">720</td>
-                    <td class="coverage">191<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">        state_id &lt;- slice$id</pre>
+                      <pre class="language-r">#' @param x_reactive (`reactive`)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">721</td>
-                    <td class="coverage">191<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 (state_id %in% names(state_list)) {</pre>
+                      <pre class="language-r">#'   returning vector of the same type as `x`. Is used to update</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">722</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # Modify existing filter states.</pre>
+                      <pre class="language-r">#'   counts following the change in values of the filtered dataset.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">723</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">          state_list[[state_id]]$set_state(slice)</pre>
+                      <pre class="language-r">#'   If it is set to `reactive(NULL)` then counts based on filtered</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">724</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">#'   dataset are not shown.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">725</td>
-                    <td class="coverage">183<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 (inherits(slice, "teal_slice_expr")) {</pre>
+                      <pre class="language-r">#' @param slice (`teal_slice`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">726</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            # create a new FilterStateExpr</pre>
+                      <pre class="language-r">#'   specification of this filter state.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">727</td>
-                    <td class="coverage">6<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">            fstate &lt;- init_filter_state_expr(slice)</pre>
+                      <pre class="language-r">#'   `teal_slice` is stored in the object and `set_state` directly manipulates values within `teal_slice`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">728</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          } else {</pre>
+                      <pre class="language-r">#'   `get_state` returns `teal_slice` object which can be reused in other places.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">729</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            # create a new FilterState</pre>
+                      <pre class="language-r">#'   Note that `teal_slice` is a `reactiveValues`, which means it has reference semantics, i.e.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">730</td>
-                    <td class="coverage">177<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">            fstate &lt;- init_filter_state(</pre>
+                      <pre class="language-r">#'   changes made to an object are automatically reflected in all places that refer to the same `teal_slice`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">731</td>
-                    <td class="coverage">177<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">              x = data[, slice$varname, drop = TRUE],</pre>
+                      <pre class="language-r">#' @param extract_type (`character`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">732</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              # data_reactive is a function which eventually calls get_call(sid).</pre>
+                      <pre class="language-r">#'   specifying whether condition calls should be prefixed by `dataname`. Possible values:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">733</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              # This chain of calls returns column from the data filtered by everything</pre>
+                      <pre class="language-r">#' - `character(0)` (default) `varname` in the condition call will not be prefixed</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">734</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              # but filter identified by the sid argument. FilterState then get x_reactive</pre>
+                      <pre class="language-r">#' - `"list"` `varname` in the condition call will be returned as `&lt;dataname&gt;$&lt;varname&gt;`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">735</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              # and this no longer needs to be a function to pass sid. reactive in the FilterState</pre>
+                      <pre class="language-r">#' - `"matrix"` `varname` in the condition call will be returned as `&lt;dataname&gt;[, &lt;varname&gt;]`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">736</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              # is also beneficial as it can be cached and retriger filter counts only if</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">737</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              # returned vector is different.</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">738</td>
-                    <td class="coverage">177<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">              x_reactive = if (private$count_type == "none") {</pre>
+                      <pre class="language-r">#' # use non-exported function from teal.slice</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">739</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">                reactive(NULL)</pre>
+                      <pre class="language-r">#' init_filter_state &lt;- getFromNamespace("init_filter_state", "teal.slice")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">740</td>
+                    <td class="num">27</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">741</td>
-                    <td class="coverage">6<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">                reactive(data_reactive(state_id)[, slice$varname, drop = TRUE])</pre>
+                      <pre class="language-r">#' library(shiny)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">742</td>
+                    <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="covered">
-                    <td class="num">743</td>
-                    <td class="coverage">177<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">              slice = slice,</pre>
+                      <pre class="language-r">#' filter_state &lt;- init_filter_state(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">744</td>
-                    <td class="coverage">177<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">              extract_type = private$extract_type</pre>
+                      <pre class="language-r">#'   x = c(1:10, NA, Inf),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">745</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">#'   x_reactive = reactive(c(1:10, NA, Inf)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">746</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">#'   slice = teal_slice(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">747</td>
-                    <td class="coverage">183<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">          private$state_list_push(x = fstate, state_id = state_id)</pre>
+                      <pre class="language-r">#'     varname = "varname",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">748</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">#'     dataname = "dataname"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">749</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">750</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_type = "matrix"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">751</td>
-                    <td class="coverage">110<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">      invisible(NULL)</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">752</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">753</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' isolate(filter_state$get_call())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">754</td>
+                    <td class="num">41</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/teal_slice.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Specify single filter</pre>
+                      <pre class="language-r">#' # working filter in an app</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">43</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">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Create a `teal_slice` object that holds complete information on filtering one variable.</pre>
+                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Check out [`teal_slice-utilities`] functions for working with `teal_slice` object.</pre>
+                      <pre class="language-r">#'   filter_state$ui(id = "app"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   verbatimTextOutput("call")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `teal_slice` object fully describes filter state and can be used to create,</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' modify, and delete a filter state. A `teal_slice` contains a number of common fields</pre>
+                      <pre class="language-r">#' server &lt;- function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' (all named arguments of `teal_slice`), some of which are mandatory, but only</pre>
+                      <pre class="language-r">#'   filter_state$server("app")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `dataname` and  either `varname` or `expr` must be specified, while the others have default</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' values.</pre>
+                      <pre class="language-r">#'   output$call &lt;- renderText(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     deparse1(filter_state$get_call(), collapse = "\n")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Setting any of the other values to `NULL` means that those properties will not be modified</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' (when setting an existing state) or that they will be determined by data (when creating new a new one).</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Entire object is `FilterState` class member and can be accessed with `FilterState$get_state()`.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">56</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">16</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' A `teal_slice` can come in two flavors:</pre>
+                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' 1. `teal_slice_var` -</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' this describes a typical interactive filter that refers to a single variable, managed by the `FilterState` class.</pre>
+                      <pre class="language-r">#'</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">#' This class is created when `varname` is specified.</pre>
+                      <pre class="language-r">#' @return `FilterState` object</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The object retains all fields specified in the call. `id` can be created by default and need not be specified.</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' 2. `teal_slice_expr` -</pre>
+                      <pre class="language-r">init_filter_state &lt;- function(x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' this describes a filter state that refers to an expression, which can potentially include multiple variables,</pre>
+                      <pre class="language-r">                              x_reactive = reactive(NULL),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' managed by the `FilterStateExpr` class.</pre>
+                      <pre class="language-r">                              slice,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This class is created when `expr` is specified.</pre>
+                      <pre class="language-r">                              extract_type = character(0)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">66</td>
+                    <td class="coverage">195<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `dataname` and `anchored` are retained, `fixed` is set to `TRUE`, `id` becomes mandatory, `title`</pre>
+                      <pre class="language-r">  checkmate::assert_class(x_reactive, "reactive")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">67</td>
+                    <td class="coverage">194<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' remains optional, while other arguments are disregarded.</pre>
+                      <pre class="language-r">  checkmate::assert_character(extract_type, max.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">68</td>
+                    <td class="coverage">194<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_class(slice, "teal_slice")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">69</td>
+                    <td class="coverage">193<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' A teal_slice can be passed `FilterState`/`FilterStateExpr` constructors to instantiate an object.</pre>
+                      <pre class="language-r">  if (length(extract_type) == 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">70</td>
+                    <td class="coverage">43<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' It can also be passed to `FilterState$set_state` to modify the state.</pre>
+                      <pre class="language-r">    checkmate::assert_choice(extract_type, choices = c("list", "matrix"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' However, once a `FilterState` is created, only the mutable features can be set with a teal_slice:</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `selected`, `keep_na` and `keep_inf`.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">73</td>
+                    <td class="coverage">192<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  if (all(is.na(x))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">33</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">74</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Special consideration is given to two fields: `fixed` and `anchored`.</pre>
+                      <pre class="language-r">    EmptyFilterState$new(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">75</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' These are always immutable logical flags that default to `FALSE`.</pre>
+                      <pre class="language-r">      x = x,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">76</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' In a `FilterState` instantiated with `fixed = TRUE` the features</pre>
+                      <pre class="language-r">      x_reactive = x_reactive,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">77</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `selected`, `keep_na`, `keep_inf` cannot be changed.</pre>
+                      <pre class="language-r">      slice = slice,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">78</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Note that a `FilterStateExpr` is always considered to have `fixed = TRUE`.</pre>
+                      <pre class="language-r">      extract_type = extract_type</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' A `FilterState` instantiated with `anchored = TRUE` cannot be removed.</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">80</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">40</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">81</td>
+                    <td class="coverage">191<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @section Filters in `SumarizedExperiment` and `MultiAssayExperiment` objects:</pre>
+                      <pre class="language-r">    UseMethod("init_filter_state")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</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">42</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' To establish a filter on a column in a `data.frame`, `dataname` and `varname` are sufficient.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `MultiAssayExperiment` objects can be filtered either on their `colData` slot (which contains subject information)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' or on their experiments, which are stored in the `experimentList` slot.</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' For filters referring to `colData` no extra arguments are needed.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' If a filter state is created for an experiment, that experiment name must be specified in the `experiment` argument.</pre>
+                      <pre class="language-r">init_filter_state.default &lt;- function(x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Furthermore, to specify filter for an `SummarizedExperiment` one must also set `arg`</pre>
+                      <pre class="language-r">                                      x_reactive = reactive(NULL),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' (`"subset"`  or `"select"`, arguments in the [subset()] function for `SummarizedExperiment`)</pre>
+                      <pre class="language-r">                                      slice,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' in order to determine whether the filter refers to the `SE`'s `rowData` or `colData`.</pre>
+                      <pre class="language-r">                                      extract_type = character(0)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">91</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  args &lt;- list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">51</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">92</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param dataname (`character(1)`) name of data set</pre>
+                      <pre class="language-r">    x = x,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">52</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">93</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param varname (`character(1)`) name of variable</pre>
+                      <pre class="language-r">    x_reactive = x_reactive,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">94</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param id (`character(1)`) identifier of the filter. Must be specified when `expr` is set.</pre>
+                      <pre class="language-r">    extract_type = extract_type,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">54</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">#'  When `varname` is specified then `id` is set to `"{dataname} {varname}"` by default.</pre>
+                      <pre class="language-r">    slice</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param expr (`character(1)`) string providing a logical expression.</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  Must be a valid `R` expression which can be evaluated in the context of the data set.</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">98</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  For a `data.frame` `var == "x"` is sufficient, but `MultiAssayExperiment::subsetByColData`</pre>
+                      <pre class="language-r">  do.call(FilterState$new, args)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  requires `dataname` prefix, *e.g.* `data$var == "x"`.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param choices (`vector`) optional, specifies allowed choices;</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' When specified it should be a subset of values in variable denoted by `varname`;</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Type and size depends on variable type. Factors are coerced to character.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param selected (`vector`) optional, specifies selected values from `choices`;</pre>
+                      <pre class="language-r">init_filter_state.logical &lt;- function(x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Type and size depends on variable type. Factors are coerced to character.</pre>
+                      <pre class="language-r">                                      x_reactive = reactive(NULL),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param multiple (`logical(1)`) optional flag specifying whether more than one value can be selected;</pre>
+                      <pre class="language-r">                                      slice,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' only applicable to `ChoicesFilterState` and `LogicalFilterState`</pre>
+                      <pre class="language-r">                                      extract_type = character(0)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">66</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">107</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param keep_na (`logical(1)`) optional flag specifying whether to keep missing values</pre>
+                      <pre class="language-r">  LogicalFilterState$new(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">67</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">108</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param keep_inf (`logical(1)`) optional flag specifying whether to keep infinite values</pre>
+                      <pre class="language-r">    x = x,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">68</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">109</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param fixed (`logical(1)`) flag specifying whether to fix this filter state (forbid setting state)</pre>
+                      <pre class="language-r">    x_reactive = x_reactive,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">69</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">110</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param anchored (`logical(1)`) flag specifying whether to lock this filter state (forbid removing and inactivating)</pre>
+                      <pre class="language-r">    slice = slice,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">70</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">111</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param title (`character(1)`) optional title of the filter. Ignored when `varname` is set.</pre>
+                      <pre class="language-r">    extract_type = extract_type</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ... additional arguments which can be handled by extensions of `teal.slice` classes.</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">113</td>
                     <td class="coverage"></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">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `teal.slice` object. Depending on whether `varname` or `expr` was specified, the resulting</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `teal_slice` also receives class `teal_slice_var` or `teal_slice_expr`, respectively.</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">116</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">76</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note Date time objects of `POSIX*t` classes are printed as strings after converting to UTC timezone.</pre>
+                      <pre class="language-r">init_filter_state.numeric &lt;- function(x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                      x_reactive = reactive(NULL),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">                                      slice,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' x1 &lt;- teal_slice(</pre>
+                      <pre class="language-r">                                      extract_type = character(0)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">80</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">121</td>
+                    <td class="coverage">120<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   dataname = "data",</pre>
+                      <pre class="language-r">  args &lt;- list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">81</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">122</td>
+                    <td class="coverage">120<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   id = "Female adults",</pre>
+                      <pre class="language-r">    x = x,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">82</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">123</td>
+                    <td class="coverage">120<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   expr = "SEX == 'F' &amp; AGE &gt;= 18",</pre>
+                      <pre class="language-r">    x_reactive = x_reactive,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">83</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">124</td>
+                    <td class="coverage">120<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   title = "Female adults"</pre>
+                      <pre class="language-r">    slice = slice,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">84</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">125</td>
+                    <td class="coverage">120<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">    extract_type = extract_type</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' x2 &lt;- teal_slice(</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   dataname = "data",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">87</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">128</td>
+                    <td class="coverage">120<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   varname = "var",</pre>
+                      <pre class="language-r">  if (length(unique(x[!is.na(x)])) &lt; getOption("teal.threshold_slider_vs_checkboxgroup")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">88</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">129</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   choices = c("F", "M", "U"),</pre>
+                      <pre class="language-r">    do.call(ChoicesFilterState$new, args)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   selected = "F",</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">90</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">131</td>
+                    <td class="coverage">92<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   keep_na = TRUE,</pre>
+                      <pre class="language-r">    do.call(RangeFilterState$new, args)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   keep_inf = TRUE,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   fixed = FALSE,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   anchored = FALSE,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   multiple = TRUE,</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   id = "Gender",</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   extra_arg = "extra"</pre>
+                      <pre class="language-r">init_filter_state.factor &lt;- function(x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">                                     x_reactive = reactive(NULL),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                     slice,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' is.teal_slice(x1)</pre>
+                      <pre class="language-r">                                     extract_type = character(0)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">100</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">141</td>
+                    <td class="coverage">31<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' as.list(x1)</pre>
+                      <pre class="language-r">  ChoicesFilterState$new(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">101</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">142</td>
+                    <td class="coverage">31<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' as.teal_slice(list(dataname = "a", varname = "var"))</pre>
+                      <pre class="language-r">    x = x,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">102</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">143</td>
+                    <td class="coverage">31<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' format(x1)</pre>
+                      <pre class="language-r">    x_reactive = x_reactive,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">103</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">144</td>
+                    <td class="coverage">31<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' format(x1, show_all = TRUE, trim_lines = FALSE)</pre>
+                      <pre class="language-r">    slice = slice,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">104</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">145</td>
+                    <td class="coverage">31<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' print(x1)</pre>
+                      <pre class="language-r">    extract_type = extract_type</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' print(x1, show_all = TRUE, trim_lines = FALSE)</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</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>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [`teal_slices`],</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' [`is.teal_slice`], [`as.teal_slice`], [`as.list.teal_slice`], [`print.teal_slice`], [`format.teal_slice`]</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">150</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">110</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">init_filter_state.character &lt;- function(x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">teal_slice &lt;- function(dataname,</pre>
+                      <pre class="language-r">                                        x_reactive = reactive(NULL),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       varname,</pre>
+                      <pre class="language-r">                                        slice,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       id,</pre>
+                      <pre class="language-r">                                        extract_type = character(0)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">114</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">155</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       expr,</pre>
+                      <pre class="language-r">  ChoicesFilterState$new(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">156</td>
+                    <td class="coverage">32<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    x = x,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">157</td>
+                    <td class="coverage">32<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    x_reactive = x_reactive,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">158</td>
+                    <td class="coverage">32<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    slice = slice,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">159</td>
+                    <td class="coverage">32<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    extract_type = extract_type</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       choices = NULL,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       selected = NULL,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       keep_na = NULL,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       keep_inf = NULL,</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       fixed = FALSE,</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       anchored = FALSE,</pre>
+                      <pre class="language-r">init_filter_state.Date &lt;- function(x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       multiple = TRUE,</pre>
+                      <pre class="language-r">                                   x_reactive = reactive(NULL),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       title = NULL,</pre>
+                      <pre class="language-r">                                   slice,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       ...) {</pre>
+                      <pre class="language-r">                                   extract_type = character(0)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">124</td>
-                    <td class="coverage">580<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">  checkmate::assert_string(dataname)</pre>
+                      <pre class="language-r">  args &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">125</td>
-                    <td class="coverage">573<em>x</em></td>
+                    <td class="num">170</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(fixed)</pre>
+                      <pre class="language-r">    x = x,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">126</td>
-                    <td class="coverage">571<em>x</em></td>
+                    <td class="num">171</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(anchored)</pre>
+                      <pre class="language-r">    x_reactive = x_reactive,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">127</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">172</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    slice = slice,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">128</td>
-                    <td class="coverage">569<em>x</em></td>
+                    <td class="num">173</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  formal_args &lt;- as.list(environment())</pre>
+                      <pre class="language-r">    extract_type = extract_type</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">174</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">130</td>
-                    <td class="coverage">569<em>x</em></td>
+                    <td class="num">176</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!missing(expr) &amp;&amp; !missing(varname)) {</pre>
+                      <pre class="language-r">  if (length(unique(x[!is.na(x)])) &lt; getOption("teal.threshold_slider_vs_checkboxgroup")) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">131</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">177</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("Must provide either `expr` or `varname`.")</pre>
+                      <pre class="language-r">    do.call(ChoicesFilterState$new, args)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">569<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">178</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (!missing(expr)) {</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">133</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">179</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_string(id)</pre>
+                      <pre class="language-r">    do.call(DateFilterState$new, args)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">134</td>
-                    <td class="coverage">27<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">    checkmate::assert_string(title)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">135</td>
-                    <td class="coverage">24<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">    checkmate::assert_string(expr)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">182</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">23<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">    formal_args$fixed &lt;- TRUE</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">138</td>
-                    <td class="coverage">23<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">    ts_expr_args &lt;- c("dataname", "id", "expr", "fixed", "anchored", "title")</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">139</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">185</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    formal_args &lt;- formal_args[ts_expr_args]</pre>
+                      <pre class="language-r">init_filter_state.POSIXct &lt;- function(x,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">140</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">186</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ans &lt;- do.call(reactiveValues, c(formal_args, list(...)))</pre>
+                      <pre class="language-r">                                      x_reactive = reactive(NULL),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">141</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">187</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    class(ans) &lt;- c("teal_slice_expr", "teal_slice", class(ans))</pre>
+                      <pre class="language-r">                                      slice,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">539<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">188</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (!missing(varname)) {</pre>
+                      <pre class="language-r">                                      extract_type = character(0)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">143</td>
-                    <td class="coverage">538<em>x</em></td>
+                    <td class="num">189</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_string(varname)</pre>
+                      <pre class="language-r">  args &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">144</td>
-                    <td class="coverage">535<em>x</em></td>
+                    <td class="num">190</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_multi_class(choices, .filterable_class, null.ok = TRUE)</pre>
+                      <pre class="language-r">    x = x,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">145</td>
-                    <td class="coverage">534<em>x</em></td>
+                    <td class="num">191</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_multi_class(selected, .filterable_class, null.ok = TRUE)</pre>
+                      <pre class="language-r">    x_reactive = x_reactive,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">146</td>
-                    <td class="coverage">532<em>x</em></td>
+                    <td class="num">192</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_flag(keep_na, null.ok = TRUE)</pre>
+                      <pre class="language-r">    slice = slice,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">147</td>
-                    <td class="coverage">531<em>x</em></td>
+                    <td class="num">193</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_flag(keep_inf, null.ok = TRUE)</pre>
+                      <pre class="language-r">    extract_type = extract_type</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">148</td>
-                    <td class="coverage">530<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">    checkmate::assert_flag(multiple)</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</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">150</td>
-                    <td class="coverage">530<em>x</em></td>
+                    <td class="num">196</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ts_var_args &lt;- c(</pre>
+                      <pre class="language-r">  if (length(unique(x[!is.na(x)])) &lt; getOption("teal.threshold_slider_vs_checkboxgroup")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">151</td>
-                    <td class="coverage">530<em>x</em></td>
+                    <td class="num">197</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "dataname", "varname", "id", "choices", "selected", "keep_na", "keep_inf",</pre>
+                      <pre class="language-r">    do.call(ChoicesFilterState$new, args)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">198</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">152</td>
-                    <td class="coverage">530<em>x</em></td>
+                    <td class="num">199</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "fixed", "anchored", "multiple"</pre>
+                      <pre class="language-r">    do.call(DatetimeFilterState$new, args)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">200</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">154</td>
-                    <td class="coverage">530<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">    formal_args &lt;- formal_args[ts_var_args]</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">155</td>
-                    <td class="coverage">530<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">202</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    args &lt;- c(formal_args, list(...))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">156</td>
-                    <td class="coverage">530<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">203</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    args[c("choices", "selected")] &lt;-</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">157</td>
-                    <td class="coverage">530<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">204</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lapply(args[c("choices", "selected")], function(x) if (is.factor(x)) as.character(x) else x)</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">158</td>
-                    <td class="coverage">530<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">    if (missing(id)) {</pre>
+                      <pre class="language-r">init_filter_state.POSIXlt &lt;- function(x,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">159</td>
-                    <td class="coverage">521<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">206</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      args$id &lt;- get_default_slice_id(args)</pre>
+                      <pre class="language-r">                                      x_reactive = reactive(NULL),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">                                      slice,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">161</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">208</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_string(id)</pre>
+                      <pre class="language-r">                                      extract_type = character(0)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">162</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">209</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  args &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">163</td>
-                    <td class="coverage">527<em>x</em></td>
+                    <td class="num">210</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ans &lt;- do.call(reactiveValues, args)</pre>
+                      <pre class="language-r">    x = x,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">164</td>
-                    <td class="coverage">527<em>x</em></td>
+                    <td class="num">211</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    class(ans) &lt;- c("teal_slice_var", "teal_slice", class(ans))</pre>
+                      <pre class="language-r">    x_reactive = x_reactive,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">165</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">212</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">    slice = slice,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">166</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">213</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("Must provide either `expr` or `varname`.")</pre>
+                      <pre class="language-r">    extract_type = extract_type</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</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">168</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">550<em>x</em></td>
+                    <td class="num">216</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ans</pre>
+                      <pre class="language-r">  if (length(unique(x[!is.na(x)])) &lt; getOption("teal.threshold_slider_vs_checkboxgroup")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">170</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">217</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    do.call(ChoicesFilterState$new, args)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">218</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">172</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">219</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `teal_slice` utility functions</pre>
+                      <pre class="language-r">    do.call(DatetimeFilterState$new, args)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">220</td>
                     <td class="coverage"></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">221</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper functions for working with [`teal_slice`] object.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">222</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`teal.slice`)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</td>
+                    <td class="num">223</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param show_all (`logical(1)`) indicating whether to show all fields. If set to `FALSE`,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">224</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  only non-NULL elements will be printed.</pre>
+                      <pre class="language-r">#' Initialize a `FilterStateExpr` object</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">225</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param trim_lines (`logical(1)`) indicating whether to trim lines when printing.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">226</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ... additional arguments passed to other functions.</pre>
+                      <pre class="language-r">#' @param slice (`teal_slice_expr`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">227</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name teal_slice-utilities</pre>
+                      <pre class="language-r">#'   specifying this filter state.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">228</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inherit teal_slice examples</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">229</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @return `FilterStateExpr` object</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">230</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">183</td>
+                    <td class="num">231</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">init_filter_state_expr &lt;- function(slice) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">232</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  FilterStateExpr$new(slice)</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"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname teal_slice-utilities</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' Get hex code of the current Bootstrap theme color.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">237</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">238</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">is.teal_slice &lt;- function(x) { # nolint</pre>
+                      <pre class="language-r">#' Determines the color specification for the currently active Bootstrap color theme and returns one queried color.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">188</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">239</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  inherits(x, "teal_slice")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">189</td>
+                    <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @param color (`character(1)`) naming one of the available theme colors</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</td>
+                    <td class="num">241</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param alpha either a `numeric(1)` or `character(1)` specifying transparency</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">191</td>
+                    <td class="num">242</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname teal_slice-utilities</pre>
+                      <pre class="language-r">#'              in the range of `0-1` or a hexadecimal value `00-ff`, respectively;</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">192</td>
+                    <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'              set to NULL to omit adding the alpha channel</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">194</td>
+                    <td class="num">245</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">as.teal_slice &lt;- function(x) { # nolint</pre>
+                      <pre class="language-r">#' @return Named `character(1)` containing a hexadecimal color representation.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">195</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">246</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(x, names = "named")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">196</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">247</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  do.call(teal_slice, x)</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">248</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' fetch_bs_color &lt;- getFromNamespace("fetch_bs_color", "teal.slice")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' fetch_bs_color("primary")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">199</td>
+                    <td class="num">250</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname teal_slice-utilities</pre>
+                      <pre class="language-r">#' fetch_bs_color("danger", 0.35)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">251</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' fetch_bs_color("danger", "80")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">252</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">202</td>
+                    <td class="num">253</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">as.list.teal_slice &lt;- function(x, ...) {</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">203</td>
-                    <td class="coverage">283<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">254</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  formal_args &lt;- setdiff(names(formals(teal_slice)), "...")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</td>
+                    <td class="num">255</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">fetch_bs_color &lt;- function(color, alpha = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">205</td>
-                    <td class="coverage">283<em>x</em></td>
+                    <td class="num">256</td>
+                    <td class="coverage">119<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x &lt;- if (isRunning()) {</pre>
+                      <pre class="language-r">  checkmate::assert_string(color)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">206</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">257</td>
+                    <td class="coverage">119<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    reactiveValuesToList(x)</pre>
+                      <pre class="language-r">  checkmate::assert(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">207</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">258</td>
+                    <td class="coverage">119<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">    checkmate::check_number(alpha, lower = 0, upper = 1, null.ok = TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">208</td>
-                    <td class="coverage">283<em>x</em></td>
+                    <td class="num">259</td>
+                    <td class="coverage">119<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    isolate(reactiveValuesToList(x))</pre>
+                      <pre class="language-r">    checkmate::check_string(alpha, pattern = "[0-9a-f]{2}", null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</td>
+                    <td class="num">260</td>
                     <td class="coverage"></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">261</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">211</td>
-                    <td class="coverage">283<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">  formal_args &lt;- intersect(formal_args, names(x))</pre>
+                      <pre class="language-r">  # locate file that describes the current theme</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">212</td>
-                    <td class="coverage">283<em>x</em></td>
+                    <td class="num">263</td>
+                    <td class="coverage">119<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  extra_args &lt;- rev(setdiff(names(x), formal_args))</pre>
+                      <pre class="language-r">  sass_file &lt;- if (utils::packageVersion("bslib") &lt; as.package_version("0.5.1.9000")) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">264</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    bslib::bs_theme()[["layers"]][[2]][["defaults"]][[1]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">213</td>
+                    <td class="num">265</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">214</td>
-                    <td class="coverage">283<em>x</em></td>
+                    <td class="num">266</td>
+                    <td class="coverage">119<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x[c(formal_args, extra_args)]</pre>
+                      <pre class="language-r">    bslib::bs_theme()[["layers"]][[2]][["defaults"]][[1]][[1]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">215</td>
+                    <td class="num">267</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">216</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">268</td>
+                    <td class="coverage">119<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  sass_file &lt;- attr(sass_file, "sass_file_path")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">217</td>
+                    <td class="num">269</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <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">#' @rdname teal_slice-utilities</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">219</td>
+                    <td class="num">270</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  # load scss file that encodes variables</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">220</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">271</td>
+                    <td class="coverage">119<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  variables_file &lt;- readLines(sass_file)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">221</td>
+                    <td class="num">272</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">format.teal_slice &lt;- function(x, show_all = FALSE, trim_lines = TRUE, ...) {</pre>
+                      <pre class="language-r">  # locate theme color variables</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">222</td>
-                    <td class="coverage">116<em>x</em></td>
+                    <td class="num">273</td>
+                    <td class="coverage">119<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(show_all)</pre>
+                      <pre class="language-r">  ind &lt;- grep("// scss-docs-(start|end) theme-color-variables", variables_file)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">223</td>
-                    <td class="coverage">92<em>x</em></td>
+                    <td class="num">274</td>
+                    <td class="coverage">119<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(trim_lines)</pre>
+                      <pre class="language-r">  color_definitions &lt;- variables_file[(ind[1] + 1L):(ind[2] - 1L)]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">224</td>
+                    <td class="num">275</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">225</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">276</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_list &lt;- as.list(x)</pre>
+                      <pre class="language-r">  # extract colors names</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">226</td>
-                    <td class="coverage">47<em>x</em></td>
+                    <td class="num">277</td>
+                    <td class="coverage">119<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!show_all) x_list &lt;- Filter(Negate(is.null), x_list)</pre>
+                      <pre class="language-r">  color_names &lt;- sub("(\\$)(\\w.+)(:.+)", "\\2", color_definitions)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">227</td>
+                    <td class="num">278</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">228</td>
-                    <td class="coverage">86<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">  jsonify(x_list, trim_lines)</pre>
+                      <pre class="language-r">  # verify that an available color was requested</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">229</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">280</td>
+                    <td class="coverage">119<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  checkmate::assert_choice(color, color_names)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">230</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">231</td>
+                    <td class="num">282</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname teal_slice-utilities</pre>
+                      <pre class="language-r">  # extract color references</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">232</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">283</td>
+                    <td class="coverage">119<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  color_references &lt;- sub("(\\$)(\\w.+)(:\\s.+\\$)(\\w.+)(\\s.+)", "\\4", color_definitions)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">233</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">234</td>
+                    <td class="num">285</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">print.teal_slice &lt;- function(x, ...) {</pre>
+                      <pre class="language-r">  # translate references to color codes</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">235</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">286</td>
+                    <td class="coverage">119<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  cat(format(x, ...))</pre>
+                      <pre class="language-r">  color_specification &lt;- structure(color_references, names = color_names)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">236</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">287</td>
+                    <td class="coverage">119<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  color_specification &lt;- vapply(color_specification, function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">237</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">288</td>
+                    <td class="coverage">952<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    line &lt;- grep(sprintf("^\\$%s:\\s+#\\w{6}\\s+!default", x), variables_file, value = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">238</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">289</td>
+                    <td class="coverage">952<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    code &lt;- sub("(.+)(#\\w{6})(\\s+.+)", "\\2", line)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">239</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">290</td>
+                    <td class="coverage">952<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># format utils -----</pre>
+                      <pre class="language-r">    code</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">291</td>
+                    <td class="coverage">119<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  }, character(1L))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">240</td>
+                    <td class="num">292</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <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">293</td>
+                    <td class="coverage">119<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Convert a list to a justified `JSON` string</pre>
+                      <pre class="language-r">  if (!is.null(alpha)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">242</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">    if (is.numeric(alpha)) alpha &lt;- as.hexmode(ceiling(255 * alpha))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">243</td>
+                    <td class="num">295</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function takes a list and converts it to a `JSON` string.</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">244</td>
+                    <td class="num">296</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The resulting `JSON` string is then optionally justified to improve readability</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">245</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">297</td>
+                    <td class="coverage">119<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' and trimmed to easier fit in the console when printing.</pre>
+                      <pre class="language-r">  paste0(color_specification[color], alpha)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">246</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>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/FilterStateChoices.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">247</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`list`), possibly recursive, obtained from `teal_slice` or `teal_slices`.</pre>
+                      <pre class="language-r"># ChoicesFilterState ------</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">248</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param trim_lines (`logical(1)`) flag specifying whether to trim lines of the `JSON` string.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">249</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `JSON` string representation of the input list.</pre>
+                      <pre class="language-r">#' @name ChoicesFilterState</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">250</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' @docType class</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">251</td>
+                    <td class="num">5</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">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">jsonify &lt;- function(x, trim_lines) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">253</td>
-                    <td class="coverage">131<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(x)</pre>
+                      <pre class="language-r">#' @title `FilterState` object for categorical data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">254</td>
+                    <td class="num">7</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">255</td>
-                    <td class="coverage">131<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">  x_json &lt;- to_json(x)</pre>
+                      <pre class="language-r">#' @description Manages choosing elements from a set.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">256</td>
-                    <td class="coverage">131<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">  x_json_justified &lt;- justify_json(x_json)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">257</td>
-                    <td class="coverage">121<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 (trim_lines) x_json_justified &lt;- trim_lines_json(x_json_justified)</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">258</td>
-                    <td class="coverage">131<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">  paste(x_json_justified, collapse = "\n")</pre>
+                      <pre class="language-r">#' # use non-exported function from teal.slice</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">#' include_css_files &lt;- getFromNamespace("include_css_files", "teal.slice")</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">#' include_js_files &lt;- getFromNamespace("include_js_files", "teal.slice")</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">#' Converts a list to a `JSON` string</pre>
+                      <pre class="language-r">#' ChoicesFilterState &lt;- getFromNamespace("ChoicesFilterState", "teal.slice")</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">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">263</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Converts a list representation of `teal_slice` or `teal_slices` into a `JSON` string.</pre>
+                      <pre class="language-r">#' library(shiny)</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">#' Ensures proper unboxing of list elements.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">265</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function is used by the `format` methods for `teal_slice` and `teal_slices`.</pre>
+                      <pre class="language-r">#' filter_state &lt;- ChoicesFilterState$new(</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">#' @param x (`list`) possibly recursive, obtained from `teal_slice` or `teal_slices`.</pre>
+                      <pre class="language-r">#'   x = c(LETTERS, NA),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">267</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `JSON` string.</pre>
+                      <pre class="language-r">#'   slice = teal_slice(varname = "var", dataname = "data")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">268</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">269</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`list`) representation of `teal_slices` object.</pre>
+                      <pre class="language-r">#' isolate(filter_state$get_call())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">270</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' filter_state$set_state(</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">#'   teal_slice(</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">to_json &lt;- function(x) {</pre>
+                      <pre class="language-r">#'     dataname = "data",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">273</td>
-                    <td class="coverage">131<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">  no_unbox &lt;- function(x) {</pre>
+                      <pre class="language-r">#'     varname = "var",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">274</td>
-                    <td class="coverage">2390<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">    vars &lt;- c("selected", "choices")</pre>
+                      <pre class="language-r">#'     selected = "A",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">275</td>
-                    <td class="coverage">2390<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">    if (is.list(x)) {</pre>
+                      <pre class="language-r">#'     keep_na = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">276</td>
-                    <td class="coverage">385<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">      for (var in vars) {</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">277</td>
-                    <td class="coverage">307<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(x[[var]])) x[[var]] &lt;- I(format_time(x[[var]]))</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">278</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' isolate(filter_state$get_call())</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">279</td>
-                    <td class="coverage">385<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">      lapply(x, no_unbox)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">280</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">#' # working filter in an app</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">281</td>
-                    <td class="coverage">2005<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">      x</pre>
+                      <pre class="language-r">#' library(shinyjs)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">282</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">283</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' data_choices &lt;- c(sample(letters[1:4], 100, replace = TRUE), NA)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">284</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' attr(data_choices, "label") &lt;- "lowercase letters"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">285</td>
-                    <td class="coverage">131<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">  jsonlite::toJSON(no_unbox(x), pretty = TRUE, auto_unbox = TRUE, digits = 16, null = "null")</pre>
+                      <pre class="language-r">#' fs &lt;- ChoicesFilterState$new(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">286</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'   x = data_choices,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">287</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   slice = teal_slice(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">288</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Format `POSIXt` for storage</pre>
+                      <pre class="language-r">#'     dataname = "data", varname = "variable", selected = c("a", "c"), keep_na = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">289</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">290</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Convert `POSIXt` date time object to character representation in UTC time zone.</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">291</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">292</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Date times are stored as string representations expressed in the UTC time zone.</pre>
+                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">293</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The storage format is `YYYY-MM-DD HH:MM:SS`.</pre>
+                      <pre class="language-r">#'   useShinyjs(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">294</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   include_css_files(pattern = "filter-panel"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">295</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`POSIXt`) vector of date time values or anything else</pre>
+                      <pre class="language-r">#'   include_js_files(pattern = "count-bar-labels"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">296</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   column(4, tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">297</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return If `x` is of class `POSIXt`, a character vector, otherwise `x` itself.</pre>
+                      <pre class="language-r">#'     tags$h4("ChoicesFilterState"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">298</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     fs$ui("fs")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">299</td>
+                    <td class="num">52</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">300</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">format_time &lt;- function(x) {</pre>
+                      <pre class="language-r">#'   column(4, tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">301</td>
-                    <td class="coverage">307<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">  if ("POSIXt" %in% class(x)) {</pre>
+                      <pre class="language-r">#'     tags$h4("Condition (i.e. call)"), # display the condition call generated by this FilterState</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">302</td>
-                    <td class="coverage">20<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">    format(x, format = "%Y-%m-%d %H:%M:%S", usetz = TRUE, tz = "UTC")</pre>
+                      <pre class="language-r">#'     textOutput("condition_choices"), tags$br(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">303</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#'     tags$h4("Unformatted state"), # display raw filter state</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">304</td>
-                    <td class="coverage">287<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">    x</pre>
+                      <pre class="language-r">#'     textOutput("unformatted_choices"), tags$br(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">305</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'     tags$h4("Formatted state"), # display human readable filter state</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">306</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'     textOutput("formatted_choices"), tags$br()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">307</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">308</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Justify colons in `JSON` string</pre>
+                      <pre class="language-r">#'   column(4, tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">309</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     tags$h4("Programmatic filter control"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">310</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function takes a `JSON` string as input, splits it into lines, and pads element names</pre>
+                      <pre class="language-r">#'     actionButton("button1_choices", "set drop NA", width = "100%"), tags$br(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">311</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' with spaces so that colons are justified between lines.</pre>
+                      <pre class="language-r">#'     actionButton("button2_choices", "set keep NA", width = "100%"), tags$br(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">312</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     actionButton("button3_choices", "set selection: a, b", width = "100%"), tags$br(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">313</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param json (`character(1)`) a `JSON` string.</pre>
+                      <pre class="language-r">#'     actionButton("button4_choices", "deselect all", width = "100%"), tags$br(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">314</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     actionButton("button0_choices", "set initial state", width = "100%"), tags$br()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">315</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A list of character strings, which can be collapsed into a `JSON` string.</pre>
+                      <pre class="language-r">#'   ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">316</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">317</td>
+                    <td class="num">70</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">318</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">justify_json &lt;- function(json) {</pre>
+                      <pre class="language-r">#' server &lt;- function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">319</td>
-                    <td class="coverage">131<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">  format_name &lt;- function(name, name_width) {</pre>
+                      <pre class="language-r">#'   fs$server("fs")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">320</td>
-                    <td class="coverage">2775<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">    if (nchar(name) == 1 || nchar(gsub("\\s", "", name)) &lt;= 2) {</pre>
+                      <pre class="language-r">#'   output$condition_choices &lt;- renderPrint(fs$get_call())</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">321</td>
-                    <td class="coverage">630<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">      return(name)</pre>
+                      <pre class="language-r">#'   output$formatted_choices &lt;- renderText(fs$format())</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">322</td>
-                    <td class="coverage">2145<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">    } else if (grepl("slices|attributes", name)) {</pre>
+                      <pre class="language-r">#'   output$unformatted_choices &lt;- renderPrint(fs$get_state())</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">323</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">      paste0(name, ":")</pre>
+                      <pre class="language-r">#'   # modify filter state programmatically</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">324</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">#'   observeEvent(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">325</td>
-                    <td class="coverage">2055<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">      paste(format(name, width = name_width), ":")</pre>
+                      <pre class="language-r">#'     input$button1_choices,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">326</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'     fs$set_state(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">327</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'       teal_slice(dataname = "data", varname = "variable", keep_na = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">328</td>
-                    <td class="coverage">131<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">  json_lines &lt;- strsplit(json, "\n")[[1]]</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">329</td>
-                    <td class="coverage">131<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">  json_lines_split &lt;- regmatches(json_lines, regexpr(":", json_lines), invert = TRUE)</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">330</td>
-                    <td class="coverage">131<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">  name_width &lt;- max(unlist(regexpr(":", json_lines))) - 1</pre>
+                      <pre class="language-r">#'   observeEvent(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">331</td>
-                    <td class="coverage">131<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">  vapply(json_lines_split, function(x) paste0(format_name(x[1], name_width), stats::na.omit(x[2])), character(1))</pre>
+                      <pre class="language-r">#'     input$button2_choices,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">332</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'     fs$set_state(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">333</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'       teal_slice(dataname = "data", varname = "variable", keep_na = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">334</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Trim lines in `JSON` string</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">335</td>
+                    <td class="num">88</td>
                     <td class="coverage"></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">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function takes a `JSON` string as input and returns a modified version of the</pre>
+                      <pre class="language-r">#'   observeEvent(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">337</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' input where the values portion of each line is trimmed for a less messy console output.</pre>
+                      <pre class="language-r">#'     input$button3_choices,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">338</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     fs$set_state(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">339</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`character`)</pre>
+                      <pre class="language-r">#'       teal_slice(dataname = "data", varname = "variable", selected = c("a", "b"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">340</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">341</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A character string trimmed after a certain hard-coded number of characters in the value portion.</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">342</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   observeEvent(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">343</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'     input$button4_choices,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">344</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     fs$set_state(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">345</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">trim_lines_json &lt;- function(x) {</pre>
+                      <pre class="language-r">#'       teal_slice(dataname = "data", varname = "variable", selected = character(0), keep_na = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">346</td>
-                    <td class="coverage">121<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">  name_width &lt;- max(unlist(gregexpr(":", x))) - 1</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">347</td>
-                    <td class="coverage">121<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">  trim_position &lt;- name_width + 37L</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">348</td>
-                    <td class="coverage">121<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">  x_trim &lt;- substr(x, 1, trim_position)</pre>
+                      <pre class="language-r">#'   observeEvent(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">349</td>
-                    <td class="coverage">121<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">  substr(x_trim, trim_position - 2, trim_position) &lt;- "..."</pre>
+                      <pre class="language-r">#'     input$button0_choices,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">350</td>
-                    <td class="coverage">121<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">  x_trim</pre>
+                      <pre class="language-r">#'     fs$set_state(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">351</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'       teal_slice(dataname = "data", varname = "variable", selected = c("a", "c"), keep_na = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">352</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">353</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Default `teal_slice` id</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">354</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">355</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Create a slice id if none provided.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">356</td>
+                    <td class="num">109</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">357</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Function returns a default `id` for a `teal_slice` object which needs</pre>
+                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">358</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' to be distinct from other `teal_slice` objects created for any</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">359</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `FilterStates` object. Returned `id` can be treated as a location of</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">360</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' a vector on which `FilterState` is built:</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">361</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - for a `data.frame` `id` concatenates `dataname` and `varname`.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">362</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - for a `MultiAssayExperiment` `id` concatenates `dataname`, `varname`,</pre>
+                      <pre class="language-r">ChoicesFilterState &lt;- R6::R6Class( # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">363</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `experiment` and `arg`, so that one can add `teal_slice` for a `varname`</pre>
+                      <pre class="language-r">  "ChoicesFilterState",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">364</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' which exists in multiple `SummarizedExperiment`s or exists in both `colData`</pre>
+                      <pre class="language-r">  inherit = FilterState,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">365</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' and `rowData` of given experiment.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">366</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' For such a vector `teal.slice` doesn't allow to activate more than one filters.</pre>
+                      <pre class="language-r">  # public methods ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">367</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' In case of `teal_slice_expr` `id` is mandatory and must be unique.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">368</td>
+                    <td class="num">121</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">369</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`teal_slice` or `list`)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">370</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return (`character(1)`) `id` for a `teal_slice` object.</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">371</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' Initialize a `FilterState` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">372</td>
+                    <td class="num">125</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">373</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_default_slice_id &lt;- function(x) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">374</td>
-                    <td class="coverage">610<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(x, c("teal_slice", "list"))</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">375</td>
-                    <td class="coverage">610<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  isolate({</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">376</td>
-                    <td class="coverage">610<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    if (inherits(x, "teal_slice_expr") || is.null(x$varname)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">377</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      x$id</pre>
+                      <pre class="language-r">    #' @param x (`character`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">378</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">379</td>
-                    <td class="coverage">600<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      paste(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">380</td>
-                    <td class="coverage">600<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        Filter(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">381</td>
-                    <td class="coverage">600<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          length,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">382</td>
-                    <td class="coverage">600<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          as.list(x)[c("dataname", "varname", "experiment", "arg")]</pre>
+                      <pre class="language-r">    #'   variable to be filtered.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">383</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">    #' @param x_reactive (`reactive`)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">384</td>
-                    <td class="coverage">600<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">        collapse = " "</pre>
+                      <pre class="language-r">    #'   returning vector of the same type as `x`. Is used to update</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">385</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    #'   counts following the change in values of the filtered dataset.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">386</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    #'   If it is set to `reactive(NULL)` then counts based on filtered</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">387</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">    #'   dataset are not shown.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">388</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    #' @param slice (`teal_slice`)</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/count_labels.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Progress bars with labels</pre>
+                      <pre class="language-r">    #'   specification of this filter state.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #'   `teal_slice` is stored in the object and `set_state` directly manipulates values within `teal_slice`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `shiny` element displaying a series of progress bars and observation counts.</pre>
+                      <pre class="language-r">    #'   `get_state` returns `teal_slice` object which can be reused in other places.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #'   Note that `teal_slice` is a `reactiveValues`, which means it has reference semantics, i.e.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param inputId (`character(1)`) `shiny` id of the parent element (e.g. a check-box group input).</pre>
+                      <pre class="language-r">    #'   changes made to an object are automatically reflected in all places that refer to the same `teal_slice`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param choices (`vector`) Available values. Used to determine label text.</pre>
+                      <pre class="language-r">    #' @param extract_type (`character`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param countsmax (`numeric`) Maximum counts of each element. Must be the same length `choices`.</pre>
+                      <pre class="language-r">    #'   specifying whether condition calls should be prefixed by `dataname`. Possible values:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param countsnow (`numeric`) Current counts of each element. Must be the same length `choices`.</pre>
+                      <pre class="language-r">    #' - `character(0)` (default) `varname` in the condition call will not be prefixed</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param session (`session`) `shiny` `session` object passed to function given to `shinyServer`.</pre>
+                      <pre class="language-r">    #' - `"list"` `varname` in the condition call will be returned as `&lt;dataname&gt;$&lt;varname&gt;`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' - `"matrix"` `varname` in the condition call will be returned as `&lt;dataname&gt;[, &lt;varname&gt;]`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return List of `shiny.tag`s.</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' @return Object of class `ChoicesFilterState`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Creates a number of progress bar elements, one for each value of `choices`.</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The widths of all progress bars add up to the full width of the container.</pre>
+                      <pre class="language-r">    initialize = function(x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Each progress bar has a text label that contains the name of the value and the number of counts.</pre>
+                      <pre class="language-r">                          x_reactive = reactive(NULL),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                          slice,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' If the filter panel is used with `count_type = "all"`, the progress bars will be filled</pre>
+                      <pre class="language-r">                          extract_type = character(0)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">151</td>
+                    <td class="coverage">160<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' according to the number of counts remaining in the current selection and the label will show</pre>
+                      <pre class="language-r">      isolate({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">152</td>
+                    <td class="coverage">160<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' both the current and the total number of counts.</pre>
+                      <pre class="language-r">        checkmate::assert(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">153</td>
+                    <td class="coverage">160<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          is.character(x),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">154</td>
+                    <td class="coverage">160<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Each child element can have a unique `id` attribute to be used independently.</pre>
+                      <pre class="language-r">          is.factor(x),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">155</td>
+                    <td class="coverage">160<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          length(unique(x[!is.na(x)])) &lt; getOption("teal.threshold_slider_vs_checkboxgroup"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">156</td>
+                    <td class="coverage">160<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">          combine = "or"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # use non-exported function from teal.slice</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">158</td>
+                    <td class="coverage">160<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' include_js_files &lt;- getFromNamespace("include_js_files", "teal.slice")</pre>
+                      <pre class="language-r">        super$initialize(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">159</td>
+                    <td class="coverage">160<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' include_css_files &lt;- getFromNamespace("include_css_files", "teal.slice")</pre>
+                      <pre class="language-r">          x = x,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">160</td>
+                    <td class="coverage">160<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' countBars &lt;- getFromNamespace("countBars", "teal.slice")</pre>
+                      <pre class="language-r">          x_reactive = x_reactive,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">161</td>
+                    <td class="coverage">160<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' updateCountBars &lt;- getFromNamespace("updateCountBars", "teal.slice")</pre>
+                      <pre class="language-r">          slice = slice,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">162</td>
+                    <td class="coverage">160<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          extract_type = extract_type</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(shiny)</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">164</td>
+                    <td class="coverage">160<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        private$set_choices(slice$choices)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">165</td>
+                    <td class="coverage">160<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' choices &lt;- sample(as.factor(c("a", "b", "c")), size = 20, replace = TRUE)</pre>
+                      <pre class="language-r">        if (is.null(slice$selected) &amp;&amp; slice$multiple) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">33</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">166</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' counts &lt;- table(choices)</pre>
+                      <pre class="language-r">          slice$selected &lt;- private$get_choices()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">167</td>
+                    <td class="coverage">118<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' labels &lt;- countBars(</pre>
+                      <pre class="language-r">        } else if (is.null(slice$selected)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">168</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   inputId = "counts",</pre>
+                      <pre class="language-r">          slice$selected &lt;- private$get_choices()[1]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">169</td>
+                    <td class="coverage">117<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   choices = c("a", "b", "c"),</pre>
+                      <pre class="language-r">        } else if (length(slice$selected) &gt; 1 &amp;&amp; !slice$multiple) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">170</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   countsmax = counts,</pre>
+                      <pre class="language-r">          warning(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">171</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   countsnow = unname(counts)</pre>
+                      <pre class="language-r">            "ChoicesFilterState allows \"selected\" to be of length 1 when \"multiple\" is FALSE. ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">39</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">172</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">            "Only the first value will be used."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">41</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">174</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
+                      <pre class="language-r">          slice$selected &lt;- slice$selected[1]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">175</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="never">
-                    <td class="num">43</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">176</td>
+                    <td class="coverage">160<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     class = "choices_state",</pre>
+                      <pre class="language-r">        private$set_selected(slice$selected)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">177</td>
+                    <td class="coverage">160<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     include_js_files("count-bar-labels.js"),</pre>
+                      <pre class="language-r">        if (inherits(x, "POSIXt")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">45</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">178</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     include_css_files(pattern = "filter-panel"),</pre>
+                      <pre class="language-r">          private$tzone &lt;- Find(function(x) x != "", attr(as.POSIXlt(x), "tzone"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     checkboxGroupInput(</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       inputId = "choices",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">48</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">181</td>
+                    <td class="coverage">160<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       selected = levels(choices),</pre>
+                      <pre class="language-r">        private$set_choices_counts(unname(table(x)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       choiceNames = labels,</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">183</td>
+                    <td class="coverage">160<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       choiceValues = levels(choices),</pre>
+                      <pre class="language-r">      invisible(self)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       label = NULL</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">186</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">54</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">    #' Returns reproducible condition call for current selection.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">188</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">    #' For this class returned call looks like</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   observeEvent(input$choices, {</pre>
+                      <pre class="language-r">    #' `&lt;varname&gt; %in% c(&lt;values selected&gt;)` with optional `is.na(&lt;varname&gt;)`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     new_counts &lt;- counts</pre>
+                      <pre class="language-r">    #' @param dataname (`character(1)`) name of data set; defaults to `private$get_dataname()`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     new_counts[!names(new_counts) %in% input$choices] &lt;- 0</pre>
+                      <pre class="language-r">    #' @return `call` or `NULL`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     updateCountBars(</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       inputId = "counts",</pre>
+                      <pre class="language-r">    get_call = function(dataname) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">61</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">194</td>
+                    <td class="coverage">61<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       choices = levels(choices),</pre>
+                      <pre class="language-r">      if (isFALSE(private$is_any_filtered())) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">62</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">195</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       countsmax = counts,</pre>
+                      <pre class="language-r">        return(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       countsnow = unname(new_counts)</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">197</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">      if (missing(dataname)) dataname &lt;- private$get_dataname()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">65</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">198</td>
+                    <td class="coverage">54<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   })</pre>
+                      <pre class="language-r">      varname &lt;- private$get_varname_prefixed(dataname)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">66</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">199</td>
+                    <td class="coverage">54<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">      choices &lt;- private$get_choices()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">67</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">200</td>
+                    <td class="coverage">54<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      selected &lt;- private$get_selected()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">68</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">201</td>
+                    <td class="coverage">54<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">      fun_compare &lt;- if (length(selected) == 1L) "==" else "%in%"</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">69</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">202</td>
+                    <td class="coverage">54<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
+                      <pre class="language-r">      filter_call &lt;- if (length(selected) == 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">70</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">203</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">        call("!", call(fun_compare, varname, make_c_call(as.character(choices))))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">204</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">72</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">205</td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">        if (setequal(selected, choices) &amp;&amp; !private$is_choice_limited) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">73</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">206</td>
+                    <td class="coverage">2<em>x</em></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">74</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">207</td>
+                    <td class="coverage">46<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">countBars &lt;- function(inputId, choices, countsmax, countsnow = NULL) { # nolint</pre>
+                      <pre class="language-r">        } else if (inherits(private$x, "Date")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">75</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">208</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(inputId)</pre>
+                      <pre class="language-r">          call(fun_compare, varname, call("as.Date", make_c_call(as.character(selected))))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">76</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="num">209</td>
+                    <td class="coverage">45<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_vector(choices)</pre>
+                      <pre class="language-r">        } else if (inherits(private$x, c("POSIXct", "POSIXlt"))) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">77</td>
-                    <td class="coverage">20<em>x</em></td>
+                    <td class="num">210</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(countsmax, len = length(choices))</pre>
+                      <pre class="language-r">          class &lt;- class(private$x)[1L]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">78</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="num">211</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(countsnow, len = length(choices), null.ok = TRUE)</pre>
+                      <pre class="language-r">          date_fun &lt;- as.name(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">79</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">212</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(countsnow)) {</pre>
+                      <pre class="language-r">            switch(class,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">80</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">213</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_true(all(countsnow &lt;= countsmax))</pre>
+                      <pre class="language-r">              "POSIXct" = "as.POSIXct",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">81</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">214</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">              "POSIXlt" = "as.POSIXlt"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">83</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(inputId)</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">216</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">85</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">217</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mapply(</pre>
+                      <pre class="language-r">          call(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">86</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">218</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    countBar,</pre>
+                      <pre class="language-r">            fun_compare,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">87</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">219</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    inputId = ns(seq_along(choices)),</pre>
+                      <pre class="language-r">            varname,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">88</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">220</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label = as.character(choices),</pre>
+                      <pre class="language-r">            as.call(list(date_fun, make_c_call(as.character(selected)), tz = private$tzone))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">89</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">221</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    countmax = countsmax,</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">90</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">222</td>
+                    <td class="coverage">43<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    countnow = if (is.null(countsnow)) rep(list(NULL), length(choices)) else countsnow,</pre>
+                      <pre class="language-r">        } else if (is.numeric(private$x)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">91</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">223</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    MoreArgs = list(</pre>
+                      <pre class="language-r">          call(fun_compare, varname, make_c_call(as.numeric(selected)))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">92</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">224</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      counttotal = sum(countsmax)</pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">225</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">          # This handles numerics, characters, and factors.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">94</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    SIMPLIFY = FALSE, USE.NAMES = FALSE</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">95</td>
-                    <td class="coverage"></td>
+                    <td class="num">226</td>
+                    <td class="coverage">36<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">          call(fun_compare, varname, make_c_call(selected))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">227</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">228</td>
                     <td class="coverage"></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="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">229</td>
+                    <td class="coverage">54<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Progress bar with label</pre>
+                      <pre class="language-r">      private$add_keep_na_call(filter_call, varname)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</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">100</td>
+                    <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `shiny` element displaying a progress bar and observation count.</pre>
+                      <pre class="language-r">  ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">232</td>
                     <td class="coverage"></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">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' A progress bar is created to visualize the number of counts in a variable, with filling and a text label.</pre>
+                      <pre class="language-r">  # private members ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">234</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - progress bar width is derived as a fraction of the container width: `style = "width: &lt;countmax&gt; / &lt;counttotal&gt;%"`,</pre>
+                      <pre class="language-r">  private = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - progress bar is filled up to the fraction `&lt;countnow&gt; / &lt;countmax&gt;`,</pre>
+                      <pre class="language-r">    x = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - text label is obtained by `&lt;label&gt; (&lt;countnow&gt; / &lt;countmax&gt;)`.</pre>
+                      <pre class="language-r">    choices_counts = integer(0),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">237</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    tzone = character(0), # if x is a datetime, stores time zone so that it can be restored in $get_call</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">238</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param inputId (`character(1)`) `shiny` id of the parent element (e.g. a check-box group input).</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">239</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param label (`character(1)`) Text to display followed by counts.</pre>
+                      <pre class="language-r">    # private methods ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param countmax (`numeric(1)`) Maximum count for a single element.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">241</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param countnow (`numeric(1)`) Current count for a single element.</pre>
+                      <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">242</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param counttotal (`numeric(1)`) Sum total of maximum counts of all elements, see `Details`.</pre>
+                      <pre class="language-r">    # Checks validity of the choices, adjust if neccessary and sets the flag for the case where choices</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param session (`session`) `shiny` `session` object passed to function given to `shinyServer`.</pre>
+                      <pre class="language-r">    #  are limited by default from the start.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    set_choices = function(choices) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">114</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">245</td>
+                    <td class="coverage">160<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `shiny.tag` object with a progress bar and a label.</pre>
+                      <pre class="language-r">      if (is.null(choices)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">115</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">246</td>
+                    <td class="coverage">145<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        choices &lt;- unique(as.character(na.omit(private$x)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">247</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">117</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">248</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        choices &lt;- as.character(choices)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">118</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">249</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">countBar &lt;- function(inputId, label, countmax, countnow = NULL, counttotal = countmax) { # nolint</pre>
+                      <pre class="language-r">        choices_adjusted &lt;- choices[choices %in% unique(private$x)]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">119</td>
-                    <td class="coverage">62<em>x</em></td>
+                    <td class="num">250</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(inputId)</pre>
+                      <pre class="language-r">        if (length(setdiff(choices, choices_adjusted)) &gt; 0L) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">120</td>
-                    <td class="coverage">58<em>x</em></td>
+                    <td class="num">251</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(label)</pre>
+                      <pre class="language-r">          warning(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">121</td>
-                    <td class="coverage">55<em>x</em></td>
+                    <td class="num">252</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(countmax)</pre>
+                      <pre class="language-r">            sprintf(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">122</td>
-                    <td class="coverage">53<em>x</em></td>
+                    <td class="num">253</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(countnow, null.ok = TRUE, upper = countmax)</pre>
+                      <pre class="language-r">              "Some choices not found in data. Adjusting. Filter id: %s.",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">123</td>
-                    <td class="coverage">51<em>x</em></td>
+                    <td class="num">254</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(counttotal, lower = countmax)</pre>
+                      <pre class="language-r">              private$get_id()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</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="covered">
-                    <td class="num">125</td>
-                    <td class="coverage">49<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">256</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  label &lt;- make_count_text(label, countmax = countmax, countnow = countnow)</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">126</td>
-                    <td class="coverage">49<em>x</em></td>
+                    <td class="num">257</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(inputId)</pre>
+                      <pre class="language-r">          choices &lt;- choices_adjusted</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">127</td>
-                    <td class="coverage">26<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">  if (is.null(countnow)) countnow &lt;- 0</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">128</td>
-                    <td class="coverage">49<em>x</em></td>
+                    <td class="num">259</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tags$div(</pre>
+                      <pre class="language-r">        if (length(choices) == 0) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">129</td>
-                    <td class="coverage">49<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    class = "progress state-count-container",</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">130</td>
-                    <td class="coverage"></td>
+                    <td class="num">260</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # * .9 to not exceed width of the parent html element</pre>
+                      <pre class="language-r">          warning(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">131</td>
-                    <td class="coverage">49<em>x</em></td>
+                    <td class="num">261</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">            sprintf(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">49<em>x</em></td>
+                    <td class="num">262</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = ns("count_bar_filtered"),</pre>
+                      <pre class="language-r">              "None of the choices were found in data. Setting defaults. Filter id: %s.",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">133</td>
-                    <td class="coverage">49<em>x</em></td>
+                    <td class="num">263</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      class = "progress-bar state-count-bar-filtered",</pre>
+                      <pre class="language-r">              private$get_id()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">134</td>
-                    <td class="coverage">49<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">264</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      style = sprintf("width: %s%%", countnow / counttotal * 100),</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">135</td>
-                    <td class="coverage">49<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">265</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      role = "progressbar",</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">136</td>
-                    <td class="coverage">49<em>x</em></td>
+                    <td class="num">266</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      label</pre>
+                      <pre class="language-r">          choices &lt;- levels(private$x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">267</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">138</td>
-                    <td class="coverage">49<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">268</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">139</td>
-                    <td class="coverage">49<em>x</em></td>
+                    <td class="num">269</td>
+                    <td class="coverage">160<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = ns("count_bar_unfiltered"),</pre>
+                      <pre class="language-r">      private$set_is_choice_limited(private$x, choices)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">140</td>
-                    <td class="coverage">49<em>x</em></td>
+                    <td class="num">270</td>
+                    <td class="coverage">160<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      class = "progress-bar state-count-bar-unfiltered",</pre>
+                      <pre class="language-r">      private$teal_slice$choices &lt;- choices</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">141</td>
-                    <td class="coverage">49<em>x</em></td>
+                    <td class="num">271</td>
+                    <td class="coverage">160<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      style = sprintf("width: %s%%", (countmax - countnow) / counttotal * 100),</pre>
+                      <pre class="language-r">      private$x &lt;- private$x[(private$x %in% private$get_choices()) | is.na(private$x)]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">49<em>x</em></td>
+                    <td class="num">272</td>
+                    <td class="coverage">36<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      role = "progressbar"</pre>
+                      <pre class="language-r">      if (is.factor(private$x)) private$x &lt;- droplevels(private$x)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">143</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">273</td>
+                    <td class="coverage">160<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      invisible(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">274</td>
                     <td class="coverage"></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">275</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">146</td>
+                    <td class="num">276</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # Check whether the initial choices filter out some values of x and set the flag in case.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">277</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname countBars</pre>
+                      <pre class="language-r">    set_is_choice_limited = function(x, choices) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">148</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">278</td>
+                    <td class="coverage">160<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">updateCountBars &lt;- function(session = getDefaultReactiveDomain(), inputId, choices, countsmax, countsnow = NULL) { # nolint</pre>
+                      <pre class="language-r">      xl &lt;- x[!is.na(x)]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">149</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">279</td>
+                    <td class="coverage">160<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(inputId)</pre>
+                      <pre class="language-r">      private$is_choice_limited &lt;- length(setdiff(xl, choices)) &gt; 0L</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">150</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">280</td>
+                    <td class="coverage">160<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_vector(choices)</pre>
+                      <pre class="language-r">      invisible(NULL)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">151</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">281</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(countsmax, len = length(choices))</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">152</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">282</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(countsnow, len = length(choices), null.ok = TRUE)</pre>
+                      <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">283</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # Sets choices_counts private field.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">154</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">284</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- NS(inputId)</pre>
+                      <pre class="language-r">    set_choices_counts = function(choices_counts) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">155</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">285</td>
+                    <td class="coverage">160<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mapply(</pre>
+                      <pre class="language-r">      private$choices_counts &lt;- choices_counts</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">156</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">286</td>
+                    <td class="coverage">160<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    updateCountBar,</pre>
+                      <pre class="language-r">      invisible(NULL)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">157</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">287</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    inputId = ns(seq_along(choices)),</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">158</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">288</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label = choices,</pre>
+                      <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">159</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">289</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    countmax = countsmax,</pre>
+                      <pre class="language-r">    # Checks how many counts of each choice is present in the data.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">160</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">290</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    countnow = if (is.null(countsnow)) rep(list(NULL), length(choices)) else countsnow,</pre>
+                      <pre class="language-r">    get_choices_counts = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">161</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">291</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    MoreArgs = list(</pre>
+                      <pre class="language-r">      if (!is.null(private$x_reactive)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">162</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">292</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      counttotal = sum(countsmax)</pre>
+                      <pre class="language-r">        table(factor(private$x_reactive(), levels = private$get_choices()))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">293</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">164</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">        NULL</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">295</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">166</td>
+                    <td class="num">296</td>
                     <td class="coverage"></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">297</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">168</td>
+                    <td class="num">298</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname countBar</pre>
+                      <pre class="language-r">    # Checks whether the input should be rendered as a checkboxgroup/radiobutton or a drop-down.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">299</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">updateCountBar &lt;- function(session = getDefaultReactiveDomain(), inputId, label, countmax, countnow = NULL, counttotal) { # nolint</pre>
+                      <pre class="language-r">    is_checkboxgroup = function() {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">170</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">300</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(inputId)</pre>
+                      <pre class="language-r">      length(private$get_choices()) &lt;= getOption("teal.threshold_slider_vs_checkboxgroup")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">301</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(label)</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">172</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">302</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(countmax)</pre>
+                      <pre class="language-r">    cast_and_validate = function(values) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">173</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">303</td>
+                    <td class="coverage">189<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(countnow, null.ok = TRUE)</pre>
+                      <pre class="language-r">      tryCatch(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">174</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">304</td>
+                    <td class="coverage">189<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(counttotal)</pre>
+                      <pre class="language-r">        expr = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">175</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">305</td>
+                    <td class="coverage">189<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          values &lt;- as.character(values)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">176</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">306</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  label &lt;- make_count_text(label, countmax = countmax, countnow = countnow)</pre>
+                      <pre class="language-r">          if (anyNA(values)) stop()</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">307</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(countnow)) countnow &lt;- countmax</pre>
+                      <pre class="language-r">        },</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">178</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">308</td>
+                    <td class="coverage">189<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  session$sendCustomMessage(</pre>
+                      <pre class="language-r">        error = function(e) stop("The vector of set values must contain values coercible to character.")</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">309</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    type = "updateCountBar",</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">180</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">310</td>
+                    <td class="coverage">189<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    message = list(</pre>
+                      <pre class="language-r">      values</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">181</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">311</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = session$ns(inputId),</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">182</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">312</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      label = label,</pre>
+                      <pre class="language-r">    # If multiple forbidden but selected, restores previous selection with warning.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">183</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">313</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      countmax = countmax,</pre>
+                      <pre class="language-r">    check_length = function(values) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">184</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">314</td>
+                    <td class="coverage">189<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      countnow = countnow,</pre>
+                      <pre class="language-r">      if (!private$is_multiple() &amp;&amp; length(values) &gt; 1) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">185</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">315</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      counttotal = counttotal</pre>
+                      <pre class="language-r">        warning(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">186</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">316</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">          sprintf("Selection: %s is not a vector of length one. ", toString(values, width = 360)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">187</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">317</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">          "Maintaining previous selection."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</td>
+                    <td class="num">318</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">189</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">319</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  invisible(NULL)</pre>
+                      <pre class="language-r">        values &lt;- isolate(private$get_selected())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</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">191</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">321</td>
+                    <td class="coverage">189<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      values</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">192</td>
+                    <td class="num">322</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname countBar</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">323</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">updateCountText &lt;- function(session = getDefaultReactiveDomain(), inputId, label, countmax, countnow) { # nolint</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">194</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(inputId)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">195</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(label)</pre>
+                      <pre class="language-r">    remove_out_of_bounds_values = function(values) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">196</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="num">324</td>
+                    <td class="coverage">189<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(countmax)</pre>
+                      <pre class="language-r">      in_choices_mask &lt;- values %in% private$get_choices()</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">197</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="num">325</td>
+                    <td class="coverage">189<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(countnow, null.ok = TRUE)</pre>
+                      <pre class="language-r">      if (length(values[!in_choices_mask]) &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">198</td>
+                    <td class="num">326</td>
                     <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  label &lt;- make_count_text(label, countmax = countmax, countnow = countnow)</pre>
+                      <pre class="language-r">        warning(paste(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">199</td>
+                    <td class="num">327</td>
                     <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  session$sendCustomMessage(</pre>
+                      <pre class="language-r">          "Values:", toString(values[!in_choices_mask], width = 360),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">200</td>
+                    <td class="num">328</td>
                     <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    type = "updateCountText",</pre>
+                      <pre class="language-r">          "are not in choices of column", private$get_varname(), "in dataset", private$get_dataname(), "."</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">201</td>
-                    <td class="coverage">17<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">329</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    message = list(</pre>
+                      <pre class="language-r">        ))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">202</td>
-                    <td class="coverage">17<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">330</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = session$ns(inputId),</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">203</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="num">331</td>
+                    <td class="coverage">189<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      label = label</pre>
+                      <pre class="language-r">      values[in_choices_mask]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</td>
+                    <td class="num">332</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">205</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">206</td>
+                    <td class="num">334</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    # shiny modules ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</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">208</td>
+                    <td class="num">336</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Build count text</pre>
+                      <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</td>
+                    <td class="num">337</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    # UI Module for `ChoicesFilterState`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">210</td>
+                    <td class="num">338</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Returns a text label describing filtered counts. The text is composed in the following way:</pre>
+                      <pre class="language-r">    # This UI element contains available choices selection and</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">211</td>
+                    <td class="num">339</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - when `countnow` is not `NULL`: `&lt;label&gt; (&lt;countnow&gt;/&lt;countmax&gt;)`</pre>
+                      <pre class="language-r">    # checkbox whether to keep or not keep the `NA` values.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">212</td>
+                    <td class="num">340</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - when `countnow` is `NULL`: `&lt;label&gt; (&lt;countmax&gt;)`</pre>
+                      <pre class="language-r">    # @param id (`character(1)`) `shiny` module instance id.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">213</td>
+                    <td class="num">341</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    ui_inputs = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">214</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">342</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param label (`character(1)`) Text displayed before counts.</pre>
+                      <pre class="language-r">      ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">215</td>
+                    <td class="num">343</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param countnow (`numeric(1)`) Number of filtered counts.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">344</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param countmax (`numeric(1)`) Number of unfiltered counts.</pre>
+                      <pre class="language-r">      # we need to isolate UI to not rettrigger renderUI</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">217</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">345</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      isolate({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">218</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">346</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A character string.</pre>
+                      <pre class="language-r">        countsmax &lt;- private$choices_counts</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">219</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">347</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        countsnow &lt;- if (!is.null(private$x_reactive())) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">220</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">348</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">          unname(table(factor(private$x_reactive(), levels = private$get_choices())))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">221</td>
+                    <td class="num">349</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">222</td>
+                    <td class="num">350</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">make_count_text &lt;- function(label, countmax, countnow = NULL) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">223</td>
-                    <td class="coverage">96<em>x</em></td>
+                    <td class="num">351</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(label)</pre>
+                      <pre class="language-r">        ui_input &lt;- if (private$is_checkboxgroup()) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">224</td>
-                    <td class="coverage">94<em>x</em></td>
+                    <td class="num">352</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(countmax)</pre>
+                      <pre class="language-r">          labels &lt;- countBars(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">225</td>
-                    <td class="coverage">92<em>x</em></td>
+                    <td class="num">353</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(countnow, null.ok = TRUE)</pre>
+                      <pre class="language-r">            inputId = ns("labels"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">226</td>
-                    <td class="coverage">90<em>x</em></td>
+                    <td class="num">354</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  sprintf(</pre>
+                      <pre class="language-r">            choices = private$get_choices(),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">227</td>
-                    <td class="coverage">90<em>x</em></td>
+                    <td class="num">355</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "%s (%s%s)",</pre>
+                      <pre class="language-r">            countsnow = countsnow,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">228</td>
-                    <td class="coverage">90<em>x</em></td>
+                    <td class="num">356</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label,</pre>
+                      <pre class="language-r">            countsmax = countsmax</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">229</td>
-                    <td class="coverage">90<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">357</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (is.null(countnow)) "" else sprintf("%s/", countnow),</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">230</td>
-                    <td class="coverage">90<em>x</em></td>
+                    <td class="num">358</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    countmax</pre>
+                      <pre class="language-r">          tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">231</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">359</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">            class = "choices_state",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">232</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">360</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">            if (private$is_multiple()) {</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/FilterState-utils.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">361</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Initialize `FilterState`</pre>
+                      <pre class="language-r">              checkboxGroupInput(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">362</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                inputId = ns("selection"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">363</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Initializes a `FilterState` object corresponding to the class of the filtered variable.</pre>
+                      <pre class="language-r">                label = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">364</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                selected = private$get_selected(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">365</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`vector`)</pre>
+                      <pre class="language-r">                choiceNames = labels,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">366</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variable to be filtered.</pre>
+                      <pre class="language-r">                choiceValues = private$get_choices(),</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 x_reactive (`reactive`)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">367</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   returning vector of the same type as `x`. Is used to update</pre>
+                      <pre class="language-r">                width = "100%"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">368</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   counts following the change in values of the filtered dataset.</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">369</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   If it is set to `reactive(NULL)` then counts based on filtered</pre>
+                      <pre class="language-r">            } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</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">#'   dataset are not shown.</pre>
+                      <pre class="language-r">              radioButtons(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</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 slice (`teal_slice`)</pre>
+                      <pre class="language-r">                inputId = ns("selection"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">372</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   specification of this filter state.</pre>
+                      <pre class="language-r">                label = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">373</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `teal_slice` is stored in the object and `set_state` directly manipulates values within `teal_slice`.</pre>
+                      <pre class="language-r">                selected = private$get_selected(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</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">#'   `get_state` returns `teal_slice` object which can be reused in other places.</pre>
+                      <pre class="language-r">                choiceNames = labels,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</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">#'   Note that `teal_slice` is a `reactiveValues`, which means it has reference semantics, i.e.</pre>
+                      <pre class="language-r">                choiceValues = private$get_choices(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</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">#'   changes made to an object are automatically reflected in all places that refer to the same `teal_slice`.</pre>
+                      <pre class="language-r">                width = "100%"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">377</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param extract_type (`character`)</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">378</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   specifying whether condition calls should be prefixed by `dataname`. Possible values:</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">379</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `character(0)` (default) `varname` in the condition call will not be prefixed</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">380</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `"list"` `varname` in the condition call will be returned as `&lt;dataname&gt;$&lt;varname&gt;`</pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">381</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `"matrix"` `varname` in the condition call will be returned as `&lt;dataname&gt;[, &lt;varname&gt;]`</pre>
+                      <pre class="language-r">          labels &lt;- mapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">382</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            FUN = make_count_text,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">383</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">            label = private$get_choices(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">384</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # use non-exported function from teal.slice</pre>
+                      <pre class="language-r">            countnow = if (is.null(countsnow)) rep(list(NULL), length(private$get_choices())) else countsnow,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">385</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' init_filter_state &lt;- getFromNamespace("init_filter_state", "teal.slice")</pre>
+                      <pre class="language-r">            countmax = countsmax</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">386</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">387</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(shiny)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">388</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          teal.widgets::optionalSelectInput(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</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">#' filter_state &lt;- init_filter_state(</pre>
+                      <pre class="language-r">            inputId = ns("selection"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</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">#'   x = c(1:10, NA, Inf),</pre>
+                      <pre class="language-r">            choices = stats::setNames(private$get_choices(), labels),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</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">#'   x_reactive = reactive(c(1:10, NA, Inf)),</pre>
+                      <pre class="language-r">            selected = private$get_selected(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">33</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">#'   slice = teal_slice(</pre>
+                      <pre class="language-r">            multiple = private$is_multiple(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</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">#'     varname = "varname",</pre>
+                      <pre class="language-r">            options = shinyWidgets::pickerOptions(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</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">#'     dataname = "dataname"</pre>
+                      <pre class="language-r">              actionsBox = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</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">#'   ),</pre>
+                      <pre class="language-r">              liveSearch = (length(private$get_choices()) &gt; 10),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">396</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   extract_type = "matrix"</pre>
+                      <pre class="language-r">              noneSelectedText = "Select a value"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">397</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">398</td>
                     <td class="coverage"></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">399</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' isolate(filter_state$get_call())</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">41</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">400</td>
+                    <td class="coverage">7<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">42</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">401</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # working filter in an app</pre>
+                      <pre class="language-r">          uiOutput(ns("trigger_visible")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">43</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">402</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          ui_input,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">403</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
+                      <pre class="language-r">          private$keep_na_ui(ns("keep_na"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">404</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter_state$ui(id = "app"),</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">405</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   verbatimTextOutput("call")</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">406</td>
                     <td class="coverage"></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">407</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"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">408</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter_state$server("app")</pre>
+                      <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">409</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    # Server module</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">410</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   output$call &lt;- renderText(</pre>
+                      <pre class="language-r">    # @param id (`character(1)`) `shiny` module instance id.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">411</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     deparse1(filter_state$get_call(), collapse = "\n")</pre>
+                      <pre class="language-r">    # @return `NULL`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">412</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">    server_inputs = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">54</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">413</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">      moduleServer(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">55</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">414</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        id = id,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">56</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">415</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">        function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">57</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">416</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
+                      <pre class="language-r">          logger::log_trace("ChoicesFilterState$server_inputs initializing, id: { private$get_id() }")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">417</td>
                     <td class="coverage"></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="num">418</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          # 1. renderUI is used here as an observer which triggers only if output is visible</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">419</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `FilterState` object</pre>
+                      <pre class="language-r">          #  and if the reactive changes - reactive triggers only if the output is visible.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">420</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">          # 2. We want to trigger change of the labels only if reactive count changes (not underlying data)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">62</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">421</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">init_filter_state &lt;- function(x,</pre>
+                      <pre class="language-r">          non_missing_values &lt;- reactive(Filter(Negate(is.na), private$x_reactive()))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">63</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">422</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              x_reactive = reactive(NULL),</pre>
+                      <pre class="language-r">          output$trigger_visible &lt;- renderUI({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">64</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">423</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              slice,</pre>
+                      <pre class="language-r">            logger::log_trace("ChoicesFilterState$server_inputs@1 updating count labels, id: { private$get_id() }")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">424</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              extract_type = character(0)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">66</td>
-                    <td class="coverage">195<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(x_reactive, "reactive")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">67</td>
-                    <td class="coverage">194<em>x</em></td>
+                    <td class="num">425</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(extract_type, max.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">            countsnow &lt;- if (!is.null(private$x_reactive())) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">68</td>
-                    <td class="coverage">194<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">426</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(slice, "teal_slice")</pre>
+                      <pre class="language-r">              unname(table(factor(non_missing_values(), levels = private$get_choices())))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">69</td>
-                    <td class="coverage">193<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">427</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(extract_type) == 1) {</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">70</td>
-                    <td class="coverage">43<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">428</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_choice(extract_type, choices = c("list", "matrix"))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">429</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">            # update should be based on a change of counts only</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">72</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">430</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            isolate({</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">73</td>
-                    <td class="coverage">192<em>x</em></td>
+                    <td class="num">431</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (all(is.na(x))) {</pre>
+                      <pre class="language-r">              if (private$is_checkboxgroup()) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">74</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">432</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    EmptyFilterState$new(</pre>
+                      <pre class="language-r">                updateCountBars(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">75</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">433</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x = x,</pre>
+                      <pre class="language-r">                  inputId = "labels",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">76</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">434</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x_reactive = x_reactive,</pre>
+                      <pre class="language-r">                  choices = private$get_choices(),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">77</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">435</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      slice = slice,</pre>
+                      <pre class="language-r">                  countsmax = private$choices_counts,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">78</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">436</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      extract_type = extract_type</pre>
+                      <pre class="language-r">                  countsnow = countsnow</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">437</td>
                     <td class="coverage"></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">438</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">              } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">81</td>
-                    <td class="coverage">191<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">439</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    UseMethod("init_filter_state")</pre>
+                      <pre class="language-r">                labels &lt;- mapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">82</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">440</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">                  FUN = make_count_text,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">83</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">441</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">                  label = private$get_choices(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">84</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">442</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                  countnow = if (is.null(countsnow)) rep(list(NULL), length(private$get_choices())) else countsnow,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">85</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">443</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">                  countmax = private$choices_counts</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">444</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">87</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">445</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">init_filter_state.default &lt;- function(x,</pre>
+                      <pre class="language-r">                teal.widgets::updateOptionalSelectInput(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">446</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                  session = session,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">447</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                  inputId = "selection",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">448</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                  choices = stats::setNames(private$get_choices(), labels),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">449</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                  selected = private$get_selected()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">450</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      x_reactive = reactive(NULL),</pre>
+                      <pre class="language-r">                )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">451</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="covered">
+                    <td class="num">452</td>
+                    <td class="coverage">7<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">453</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      extract_type = character(0)) {</pre>
+                      <pre class="language-r">            })</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">454</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          })</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">455</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">91</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">456</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  args &lt;- list(</pre>
+                      <pre class="language-r">          if (private$is_checkboxgroup()) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">92</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">457</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = x,</pre>
+                      <pre class="language-r">            private$observers$selection &lt;- observeEvent(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">93</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">458</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_reactive = x_reactive,</pre>
+                      <pre class="language-r">              ignoreNULL = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">94</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">459</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extract_type = extract_type,</pre>
+                      <pre class="language-r">              ignoreInit = TRUE, # ignoreInit: should not matter because we set the UI with the desired initial state</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">95</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">460</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    slice</pre>
+                      <pre class="language-r">              eventExpr = input$selection,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">96</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">461</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">              handlerExpr = {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">462</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                logger::log_trace("ChoicesFilterState$server_inputs@2 changed selection, id: { private$get_id() }")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">463</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">98</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">464</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  do.call(FilterState$new, args)</pre>
+                      <pre class="language-r">                selection &lt;- if (is.null(input$selection) &amp;&amp; private$is_multiple()) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">99</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">465</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">                  character(0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">466</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">101</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">467</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">                  input$selection</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">468</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">103</td>
+                    <td class="num">469</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">init_filter_state.logical &lt;- function(x,</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">470</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                private$set_selected(selection)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">471</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      x_reactive = reactive(NULL),</pre>
+                      <pre class="language-r">              }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">472</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">106</td>
+                    <td class="num">473</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      extract_type = character(0)) {</pre>
+                      <pre class="language-r">          } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">107</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">474</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  LogicalFilterState$new(</pre>
+                      <pre class="language-r">            private$observers$selection &lt;- observeEvent(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">108</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">475</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = x,</pre>
+                      <pre class="language-r">              ignoreNULL = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">109</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">476</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_reactive = x_reactive,</pre>
+                      <pre class="language-r">              ignoreInit = TRUE, # ignoreInit: should not matter because we set the UI with the desired initial state</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">110</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">477</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    slice = slice,</pre>
+                      <pre class="language-r">              eventExpr = input$selection_open, # observe click on a dropdown</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">111</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">478</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extract_type = extract_type</pre>
+                      <pre class="language-r">              handlerExpr = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">112</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">479</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">                if (!isTRUE(input$selection_open)) { # only when the dropdown got closed</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">113</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">480</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">                  logger::log_trace("ChoicesFilterState$server_inputs@2 changed selection, id: { private$get_id() }")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">481</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>
+                  <tr class="missed">
+                    <td class="num">482</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">                  selection &lt;- if (is.null(input$selection) &amp;&amp; private$is_multiple()) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">116</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">483</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                    character(0)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">117</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">484</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">init_filter_state.numeric &lt;- function(x,</pre>
+                      <pre class="language-r">                  } else if (isTRUE(length(input$selection) != 1) &amp;&amp; !private$is_multiple()) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">485</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      x_reactive = reactive(NULL),</pre>
+                      <pre class="language-r">                    # In optionalSelectInput user is able to select mutliple options. But if FilterState is not multiple</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">486</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      slice,</pre>
+                      <pre class="language-r">                    # we should prevent this selection to be processed further.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">487</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      extract_type = character(0)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">121</td>
-                    <td class="coverage">120<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  args &lt;- list(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">122</td>
-                    <td class="coverage">120<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    x = x,</pre>
+                      <pre class="language-r">                    # This is why notification is thrown and dropdown is changed back to latest selected.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">123</td>
-                    <td class="coverage">120<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">488</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_reactive = x_reactive,</pre>
+                      <pre class="language-r">                    showNotification(paste(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">124</td>
-                    <td class="coverage">120<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">489</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    slice = slice,</pre>
+                      <pre class="language-r">                      "This filter exclusively supports single selection.",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">125</td>
-                    <td class="coverage">120<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">490</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extract_type = extract_type</pre>
+                      <pre class="language-r">                      "Any additional choices made will be disregarded."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">491</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">                    ))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">127</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">492</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                    teal.widgets::updateOptionalSelectInput(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">128</td>
-                    <td class="coverage">120<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">493</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(unique(x[!is.na(x)])) &lt; getOption("teal.threshold_slider_vs_checkboxgroup")) {</pre>
+                      <pre class="language-r">                      session, "selection",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">129</td>
-                    <td class="coverage">28<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">494</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    do.call(ChoicesFilterState$new, args)</pre>
+                      <pre class="language-r">                      selected = private$get_selected()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">495</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">131</td>
-                    <td class="coverage">92<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">496</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    do.call(RangeFilterState$new, args)</pre>
+                      <pre class="language-r">                    return(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">497</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">133</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">498</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">                    input$selection</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">499</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">135</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">500</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">                  private$set_selected(selection)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">501</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">137</td>
+                    <td class="num">502</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">init_filter_state.factor &lt;- function(x,</pre>
+                      <pre class="language-r">              }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">503</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     x_reactive = reactive(NULL),</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">504</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">140</td>
+                    <td class="num">505</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     extract_type = character(0)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">141</td>
-                    <td class="coverage">31<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  ChoicesFilterState$new(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">31<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    x = x,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">143</td>
-                    <td class="coverage">31<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    x_reactive = x_reactive,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">144</td>
-                    <td class="coverage">31<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">506</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    slice = slice,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">145</td>
-                    <td class="coverage">31<em>x</em></td>
+                    <td class="num">507</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extract_type = extract_type</pre>
+                      <pre class="language-r">          private$keep_na_srv("keep_na")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">508</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">509</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">          # this observer is needed in the situation when teal_slice$selected has been</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">510</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          # changed directly by the api - then it's needed to rerender UI element</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">511</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">          # to show relevant values</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">150</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">512</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">          private$observers$selection_api &lt;- observeEvent(private$get_selected(), {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">513</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">init_filter_state.character &lt;- function(x,</pre>
+                      <pre class="language-r">            # it's important to not retrigger when the input$selection is the same as reactive values</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">514</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        x_reactive = reactive(NULL),</pre>
+                      <pre class="language-r">            # kept in the teal_slice$selected</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">153</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">515</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        slice,</pre>
+                      <pre class="language-r">            if (!setequal(input$selection, private$get_selected())) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">154</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">516</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        extract_type = character(0)) {</pre>
+                      <pre class="language-r">              logger::log_trace("ChoicesFilterState$server@1 state changed, id: { private$get_id() }")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">155</td>
-                    <td class="coverage">32<em>x</em></td>
+                    <td class="num">517</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ChoicesFilterState$new(</pre>
+                      <pre class="language-r">              if (private$is_checkboxgroup()) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">156</td>
-                    <td class="coverage">32<em>x</em></td>
+                    <td class="num">518</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = x,</pre>
+                      <pre class="language-r">                if (private$is_multiple()) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">157</td>
-                    <td class="coverage">32<em>x</em></td>
+                    <td class="num">519</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_reactive = x_reactive,</pre>
+                      <pre class="language-r">                  updateCheckboxGroupInput(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">158</td>
-                    <td class="coverage">32<em>x</em></td>
+                    <td class="num">520</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    slice = slice,</pre>
+                      <pre class="language-r">                    inputId = "selection",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">159</td>
-                    <td class="coverage">32<em>x</em></td>
+                    <td class="num">521</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extract_type = extract_type</pre>
+                      <pre class="language-r">                    selected = private$get_selected()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">522</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">                  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">523</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">162</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">524</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                  updateRadioButtons(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">163</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">525</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">                    inputId = "selection",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">164</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">526</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                    selected = private$get_selected()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">527</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">init_filter_state.Date &lt;- function(x,</pre>
+                      <pre class="language-r">                  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">528</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   x_reactive = reactive(NULL),</pre>
+                      <pre class="language-r">                }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">529</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   slice,</pre>
+                      <pre class="language-r">              } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">168</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">530</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   extract_type = character(0)) {</pre>
+                      <pre class="language-r">                teal.widgets::updateOptionalSelectInput(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">531</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  args &lt;- list(</pre>
+                      <pre class="language-r">                  session, "selection",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">170</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">532</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = x,</pre>
+                      <pre class="language-r">                  selected = private$get_selected()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">533</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_reactive = x_reactive,</pre>
+                      <pre class="language-r">                )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">172</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">534</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    slice = slice,</pre>
+                      <pre class="language-r">              }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">173</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">535</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extract_type = extract_type</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</td>
+                    <td class="num">536</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">          })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">537</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">176</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">538</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(unique(x[!is.na(x)])) &lt; getOption("teal.threshold_slider_vs_checkboxgroup")) {</pre>
+                      <pre class="language-r">          logger::log_trace("ChoicesFilterState$server_inputs initialized, id: { private$get_id() }")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">177</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">539</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    do.call(ChoicesFilterState$new, args)</pre>
+                      <pre class="language-r">          NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">540</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">179</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">541</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    do.call(DateFilterState$new, args)</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">542</td>
                     <td class="coverage"></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">543</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    server_inputs_fixed = function(id) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">544</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      moduleServer(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">545</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        id = id,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">546</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        function(input, output, session) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">547</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          logger::log_trace("ChoicesFilterState$server_inputs_fixed initializing, id: { private$get_id() }")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">548</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">183</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">549</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">          output$selection &lt;- renderUI({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">184</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">550</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">            countsnow &lt;- if (!is.null(private$x_reactive())) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">185</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">551</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">init_filter_state.POSIXct &lt;- function(x,</pre>
+                      <pre class="language-r">              unname(table(factor(private$x_reactive(), levels = private$get_choices())))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">552</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      x_reactive = reactive(NULL),</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">187</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">553</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      slice,</pre>
+                      <pre class="language-r">            countsmax &lt;- private$choices_counts</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</td>
+                    <td class="num">554</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      extract_type = character(0)) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">189</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">555</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  args &lt;- list(</pre>
+                      <pre class="language-r">            ind &lt;- private$get_choices() %in% isolate(private$get_selected())</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">190</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">556</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = x,</pre>
+                      <pre class="language-r">            countBars(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">191</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">557</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_reactive = x_reactive,</pre>
+                      <pre class="language-r">              inputId = session$ns("labels"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">192</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">558</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    slice = slice,</pre>
+                      <pre class="language-r">              choices = isolate(private$get_selected()),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">193</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">559</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extract_type = extract_type</pre>
+                      <pre class="language-r">              countsnow = countsnow[ind],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">194</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">560</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">              countsmax = countsmax[ind]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">195</td>
+                    <td class="num">561</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">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">562</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(unique(x[!is.na(x)])) &lt; getOption("teal.threshold_slider_vs_checkboxgroup")) {</pre>
+                      <pre class="language-r">          })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">197</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">563</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    do.call(ChoicesFilterState$new, args)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">198</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">564</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">          logger::log_trace("ChoicesFilterState$server_inputs_fixed initialized, id: { private$get_id() }")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">199</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">565</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    do.call(DatetimeFilterState$new, args)</pre>
+                      <pre class="language-r">          NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">566</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">567</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">202</td>
+                    <td class="num">568</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">569</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">204</td>
+                    <td class="num">570</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">205</td>
+                    <td class="num">571</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">init_filter_state.POSIXlt &lt;- function(x,</pre>
+                      <pre class="language-r">    # UI module to display filter summary</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">206</td>
+                    <td class="num">572</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      x_reactive = reactive(NULL),</pre>
+                      <pre class="language-r">    #  renders text describing number of selected levels</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">573</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      slice,</pre>
+                      <pre class="language-r">    #  and if NA are included also</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</td>
+                    <td class="num">574</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      extract_type = character(0)) {</pre>
+                      <pre class="language-r">    content_summary = function(id) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">209</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">575</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  args &lt;- list(</pre>
+                      <pre class="language-r">      selected &lt;- private$get_selected()</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">210</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">576</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = x,</pre>
+                      <pre class="language-r">      selected_text &lt;-</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">211</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">577</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_reactive = x_reactive,</pre>
+                      <pre class="language-r">        if (length(selected) == 0L) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">212</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">578</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    slice = slice,</pre>
+                      <pre class="language-r">          "no selection"</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">579</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">213</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">580</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extract_type = extract_type</pre>
+                      <pre class="language-r">          if (sum(nchar(selected)) &lt;= 40L) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">214</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">581</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">            paste(selected, collapse = ", ")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">215</td>
+                    <td class="num">582</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">216</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">583</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(unique(x[!is.na(x)])) &lt; getOption("teal.threshold_slider_vs_checkboxgroup")) {</pre>
+                      <pre class="language-r">            paste(length(selected), "levels selected")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">217</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">584</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    do.call(ChoicesFilterState$new, args)</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">218</td>
+                    <td class="num">585</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">219</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">586</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    do.call(DatetimeFilterState$new, args)</pre>
+                      <pre class="language-r">      tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">220</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">587</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">        tags$span(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">221</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">588</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">          class = "filter-card-summary-value",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">222</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">589</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          selected_text</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">223</td>
+                    <td class="num">590</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">224</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">591</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Initialize a `FilterStateExpr` object</pre>
+                      <pre class="language-r">        tags$span(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">225</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">592</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          class = "filter-card-summary-controls",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">226</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">593</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param slice (`teal_slice_expr`)</pre>
+                      <pre class="language-r">          if (private$na_count &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">227</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">594</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   specifying this filter state.</pre>
+                      <pre class="language-r">            tags$span("NA", if (isTRUE(private$get_keep_na())) icon("check") else icon("xmark"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">228</td>
+                    <td class="num">595</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">229</td>
+                    <td class="num">596</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `FilterStateExpr` object</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">230</td>
+                    <td class="num">597</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">231</td>
+                    <td class="num">598</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">init_filter_state_expr &lt;- function(slice) {</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">232</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">599</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  FilterStateExpr$new(slice)</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">233</td>
+                    <td class="num">600</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/FilterStates.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">234</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r"># FilterStates ------</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">235</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">236</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Get hex code of the current Bootstrap theme color.</pre>
+                      <pre class="language-r">#' @name FilterStates</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">237</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @docType class</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">238</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Determines the color specification for the currently active Bootstrap color theme and returns one queried color.</pre>
+                      <pre class="language-r">#' @title `FilterStates` `R6` class</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">239</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">240</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param color (`character(1)`) naming one of the available theme colors</pre>
+                      <pre class="language-r">#' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">241</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param alpha either a `numeric(1)` or `character(1)` specifying transparency</pre>
+                      <pre class="language-r">#' Abstract class that manages adding and removing `FilterState` objects</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">242</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'              in the range of `0-1` or a hexadecimal value `00-ff`, respectively;</pre>
+                      <pre class="language-r">#' and builds a *subset expression*.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">243</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'              set to NULL to omit adding the alpha channel</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">244</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' A `FilterStates` object tracks all condition calls</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">245</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Named `character(1)` containing a hexadecimal color representation.</pre>
+                      <pre class="language-r">#' (logical predicates that limit observations) associated with a given dataset</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">246</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 composes them into a single reproducible `R` expression</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">247</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' that will assign a subset of the original data to a new variable.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">248</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' fetch_bs_color &lt;- getFromNamespace("fetch_bs_color", "teal.slice")</pre>
+                      <pre class="language-r">#' This expression is hereafter referred to as *subset expression*.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">249</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' fetch_bs_color("primary")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">250</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' fetch_bs_color("danger", 0.35)</pre>
+                      <pre class="language-r">#' The *subset expression* is constructed differently for different</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">251</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' fetch_bs_color("danger", "80")</pre>
+                      <pre class="language-r">#' classes of the underlying data object and `FilterStates` sub-classes.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">252</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' Currently implemented for `data.frame`, `matrix`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">253</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">#' `SummarizedExperiment`, and `MultiAssayExperiment`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">254</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">255</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">fetch_bs_color &lt;- function(color, alpha = NULL) {</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">256</td>
-                    <td class="coverage">119<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_string(color)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">257</td>
-                    <td class="coverage">119<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(</pre>
+                      <pre class="language-r">FilterStates &lt;- R6::R6Class( # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">258</td>
-                    <td class="coverage">119<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::check_number(alpha, lower = 0, upper = 1, null.ok = TRUE),</pre>
+                      <pre class="language-r">  classname = "FilterStates",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">259</td>
-                    <td class="coverage">119<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::check_string(alpha, pattern = "[0-9a-f]{2}", null.ok = TRUE)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">260</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  # public members ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">261</td>
+                    <td class="num">28</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">262</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # locate file that describes the current theme</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">263</td>
-                    <td class="coverage">119<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">  sass_file &lt;- if (utils::packageVersion("bslib") &lt; as.package_version("0.5.1.9000")) {</pre>
+                      <pre class="language-r">    #' Initializes `FilterStates` object by setting</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">264</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">    bslib::bs_theme()[["layers"]][[2]][["defaults"]][[1]]</pre>
+                      <pre class="language-r">    #' `dataname`, and `datalabel`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">265</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">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">266</td>
-                    <td class="coverage">119<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">    bslib::bs_theme()[["layers"]][[2]][["defaults"]][[1]][[1]]</pre>
+                      <pre class="language-r">    #' @param data (`data.frame` or `MultiAssayExperiment` or `SummarizedExperiment` or `matrix`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">267</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    #'   the `R` object which `subset` function is applied on.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">268</td>
-                    <td class="coverage">119<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">  sass_file &lt;- attr(sass_file, "sass_file_path")</pre>
+                      <pre class="language-r">    #' @param data_reactive (`function(sid)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">269</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #'   should return an object of the same type as `data` object or `NULL`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">270</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # load scss file that encodes variables</pre>
+                      <pre class="language-r">    #'   This object is needed for the `FilterState` counts being updated</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">271</td>
-                    <td class="coverage">119<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">  variables_file &lt;- readLines(sass_file)</pre>
+                      <pre class="language-r">    #'   on a change in filters. If function returns `NULL` then filtered counts are not shown.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">272</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # locate theme color variables</pre>
+                      <pre class="language-r">    #'   Function has to have `sid` argument being a character.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">273</td>
-                    <td class="coverage">119<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">  ind &lt;- grep("// scss-docs-(start|end) theme-color-variables", variables_file)</pre>
+                      <pre class="language-r">    #' @param dataname (`character(1)`)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">274</td>
-                    <td class="coverage">119<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">  color_definitions &lt;- variables_file[(ind[1] + 1L):(ind[2] - 1L)]</pre>
+                      <pre class="language-r">    #'   name of the dataset, used in the subset expression.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">275</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #'   Passed to the function argument attached to this `FilterStates`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">276</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # extract colors names</pre>
+                      <pre class="language-r">    #' @param datalabel (`character(1)`) optional</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">277</td>
-                    <td class="coverage">119<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">44</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  color_names &lt;- sub("(\\$)(\\w.+)(:.+)", "\\2", color_definitions)</pre>
+                      <pre class="language-r">    #'   text label.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">278</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">279</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # verify that an available color was requested</pre>
+                      <pre class="language-r">    #' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">280</td>
-                    <td class="coverage">119<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">  checkmate::assert_choice(color, color_names)</pre>
+                      <pre class="language-r">    #' Object of class `FilterStates`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">281</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">282</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # extract color references</pre>
+                      <pre class="language-r">    initialize = function(data,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">283</td>
-                    <td class="coverage">119<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">  color_references &lt;- sub("(\\$)(\\w.+)(:\\s.+\\$)(\\w.+)(\\s.+)", "\\4", color_definitions)</pre>
+                      <pre class="language-r">                          data_reactive = function(sid = "") NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">284</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                          dataname,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">285</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # translate references to color codes</pre>
+                      <pre class="language-r">                          datalabel = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">286</td>
-                    <td class="coverage">119<em>x</em></td>
+                    <td class="num">53</td>
+                    <td class="coverage">274<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  color_specification &lt;- structure(color_references, names = color_names)</pre>
+                      <pre class="language-r">      checkmate::assert_string(dataname)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">287</td>
-                    <td class="coverage">119<em>x</em></td>
+                    <td class="num">54</td>
+                    <td class="coverage">272<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  color_specification &lt;- vapply(color_specification, function(x) {</pre>
+                      <pre class="language-r">      logger::log_trace("Instantiating { class(self)[1] }, dataname: { dataname }")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">288</td>
-                    <td class="coverage">952<em>x</em></td>
+                    <td class="num">55</td>
+                    <td class="coverage">272<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    line &lt;- grep(sprintf("^\\$%s:\\s+#\\w{6}\\s+!default", x), variables_file, value = TRUE)</pre>
+                      <pre class="language-r">      checkmate::assert_function(data_reactive, args = "sid")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">289</td>
-                    <td class="coverage">952<em>x</em></td>
+                    <td class="num">56</td>
+                    <td class="coverage">272<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    code &lt;- sub("(.+)(#\\w{6})(\\s+.+)", "\\2", line)</pre>
+                      <pre class="language-r">      checkmate::assert_string(datalabel, null.ok = TRUE)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">57</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">290</td>
-                    <td class="coverage">952<em>x</em></td>
+                    <td class="num">58</td>
+                    <td class="coverage">272<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    code</pre>
+                      <pre class="language-r">      private$dataname &lt;- dataname</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">291</td>
-                    <td class="coverage">119<em>x</em></td>
+                    <td class="num">59</td>
+                    <td class="coverage">272<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }, character(1L))</pre>
+                      <pre class="language-r">      private$datalabel &lt;- datalabel</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">292</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">60</td>
+                    <td class="coverage">272<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      private$dataname_prefixed &lt;- dataname</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">293</td>
-                    <td class="coverage">119<em>x</em></td>
+                    <td class="num">61</td>
+                    <td class="coverage">272<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(alpha)) {</pre>
+                      <pre class="language-r">      private$data &lt;- data</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">294</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">62</td>
+                    <td class="coverage">272<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (is.numeric(alpha)) alpha &lt;- as.hexmode(ceiling(255 * alpha))</pre>
+                      <pre class="language-r">      private$data_reactive &lt;- data_reactive</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">295</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">63</td>
+                    <td class="coverage">272<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      private$state_list &lt;- reactiveVal()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">296</td>
+                    <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">297</td>
-                    <td class="coverage">119<em>x</em></td>
+                    <td class="num">65</td>
+                    <td class="coverage">272<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  paste0(color_specification[color], alpha)</pre>
+                      <pre class="language-r">      logger::log_trace("Instantiated { class(self)[1] }, dataname: { private$dataname }")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">298</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">66</td>
+                    <td class="coverage">272<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      invisible(self)</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/FilterStateChoices.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># ChoicesFilterState ------</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">68</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">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name ChoicesFilterState</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @docType class</pre>
+                      <pre class="language-r">    #' Returns a formatted string representing this `FilterStates` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</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">6</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @title `FilterState` object for categorical data</pre>
+                      <pre class="language-r">    #' @param show_all (`logical(1)`) passed to `format.teal_slices`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' @param trim_lines (`logical(1)`) passed to `format.teal_slices`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description Manages choosing elements from a set.</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' @return `character(1)` the formatted string</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">76</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">11</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # use non-exported function from teal.slice</pre>
+                      <pre class="language-r">    format = function(show_all = FALSE, trim_lines = TRUE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</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">#' include_css_files &lt;- getFromNamespace("include_css_files", "teal.slice")</pre>
+                      <pre class="language-r">      sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</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">#' include_js_files &lt;- getFromNamespace("include_js_files", "teal.slice")</pre>
+                      <pre class="language-r">        "%s:\n%s",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</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">#' ChoicesFilterState &lt;- getFromNamespace("ChoicesFilterState", "teal.slice")</pre>
+                      <pre class="language-r">        class(self)[1],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">81</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        format(self$get_filter_state(), show_all = show_all, trim_lines = trim_lines)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(shiny)</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</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>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' filter_state &lt;- ChoicesFilterState$new(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   x = c(LETTERS, NA),</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   slice = teal_slice(varname = "var", dataname = "data")</pre>
+                      <pre class="language-r">    #' Filter call</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</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">22</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' isolate(filter_state$get_call())</pre>
+                      <pre class="language-r">    #' Builds *subset expression* from condition calls generated by `FilterState`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' filter_state$set_state(</pre>
+                      <pre class="language-r">    #' The `lhs` of the expression is a `dataname_prefixed`, where word prefixed refers to</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   teal_slice(</pre>
+                      <pre class="language-r">    #' situation when call is evaluated on elements of the original data, for example `dataname[[x]]`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     dataname = "data",</pre>
+                      <pre class="language-r">    #' By default `dataname_prefixed = dataname` and it's not alterable through class methods.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     varname = "var",</pre>
+                      <pre class="language-r">    #' Customization of `private$dataname_prefixed` is done through inheriting classes.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     selected = "A",</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     keep_na = TRUE</pre>
+                      <pre class="language-r">    #' The `rhs` is a call to `private$fun` with following arguments:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">    #' - `dataname_prefixed`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">    #' - list of logical expressions generated by `FilterState` objects</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' isolate(filter_state$get_call())</pre>
+                      <pre class="language-r">    #' stored in `private$state_list`. Each logical predicate is combined with `&amp;` operator.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' Variables in these logical expressions by default are not prefixed but this can be changed</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # working filter in an app</pre>
+                      <pre class="language-r">    #' by setting `private$extract_type` (change in the similar way as `dataname_prefixed`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(shinyjs)</pre>
+                      <pre class="language-r">    #' Possible call outputs depending on a custom fields/options:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</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="never">
-                    <td class="num">36</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data_choices &lt;- c(sample(letters[1:4], 100, replace = TRUE), NA)</pre>
+                      <pre class="language-r">    #' # default</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' attr(data_choices, "label") &lt;- "lowercase letters"</pre>
+                      <pre class="language-r">    #' dataname &lt;- subset(dataname, col == "x")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' fs &lt;- ChoicesFilterState$new(</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   x = data_choices,</pre>
+                      <pre class="language-r">    #' # fun = dplyr::filter</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   slice = teal_slice(</pre>
+                      <pre class="language-r">    #' dataname &lt;- dplyr::filter(dataname, col == "x")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     dataname = "data", varname = "variable", selected = c("a", "c"), keep_na = TRUE</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">    #' # fun = MultiAssayExperiment::subsetByColData; extract_type = "list"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">    #' dataname &lt;- MultiAssayExperiment::subsetByColData(dataname, dataname$col == "x")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</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="never">
-                    <td class="num">45</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
+                      <pre class="language-r">    #' # teal_slice objects having `arg = "subset"` and `arg = "select"`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   useShinyjs(),</pre>
+                      <pre class="language-r">    #' dataname &lt;- subset(dataname, subset = row_col == "x", select = col_col == "x")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   include_css_files(pattern = "filter-panel"),</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   include_js_files(pattern = "count-bar-labels"),</pre>
+                      <pre class="language-r">    #' # dataname = dataname[[element]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   column(4, tags$div(</pre>
+                      <pre class="language-r">    #' dataname[[element]] &lt;- subset(dataname[[element]], subset = col == "x")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tags$h4("ChoicesFilterState"),</pre>
+                      <pre class="language-r">    #' ```</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     fs$ui("fs")</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )),</pre>
+                      <pre class="language-r">    #' If no filters are applied, `NULL` is returned to avoid no-op calls such as `dataname &lt;- dataname`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   column(4, tags$div(</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tags$h4("Condition (i.e. call)"), # display the condition call generated by this FilterState</pre>
+                      <pre class="language-r">    #' @param sid (`character`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     textOutput("condition_choices"), tags$br(),</pre>
+                      <pre class="language-r">    #'  when specified then method returns code containing condition calls (logical predicates) of</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tags$h4("Unformatted state"), # display raw filter state</pre>
+                      <pre class="language-r">    #'  `FilterState` objects which `"sid"` attribute is different than this `sid` argument.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     textOutput("unformatted_choices"), tags$br(),</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tags$h4("Formatted state"), # display human readable filter state</pre>
+                      <pre class="language-r">    #' @return `call` or `NULL`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     textOutput("formatted_choices"), tags$br()</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )),</pre>
+                      <pre class="language-r">    get_call = function(sid = "") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">61</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">127</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   column(4, tags$div(</pre>
+                      <pre class="language-r">      logger::log_trace("FilterStates$get_call initializing")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tags$h4("Programmatic filter control"),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     actionButton("button1_choices", "set drop NA", width = "100%"), tags$br(),</pre>
+                      <pre class="language-r">      # `arg` must be the same as argument of the function where</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     actionButton("button2_choices", "set keep NA", width = "100%"), tags$br(),</pre>
+                      <pre class="language-r">      # predicate is passed to.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     actionButton("button3_choices", "set selection: a, b", width = "100%"), tags$br(),</pre>
+                      <pre class="language-r">      # For unnamed arguments state_list should have `arg = NULL`</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">66</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">132</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     actionButton("button4_choices", "deselect all", width = "100%"), tags$br(),</pre>
+                      <pre class="language-r">      states_list &lt;- private$state_list_get()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">67</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">133</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     actionButton("button0_choices", "set initial state", width = "100%"), tags$br()</pre>
+                      <pre class="language-r">      if (length(states_list) == 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">68</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">134</td>
+                    <td class="coverage">52<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">69</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">70</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">      args &lt;- vapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">71</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">137</td>
+                    <td class="coverage">36<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' server &lt;- function(input, output, session) {</pre>
+                      <pre class="language-r">        states_list,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">72</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">138</td>
+                    <td class="coverage">36<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   fs$server("fs")</pre>
+                      <pre class="language-r">        function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">73</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">139</td>
+                    <td class="coverage">57<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   output$condition_choices &lt;- renderPrint(fs$get_call())</pre>
+                      <pre class="language-r">          arg &lt;- x$get_state()$arg</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">74</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">140</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   output$formatted_choices &lt;- renderText(fs$format())</pre>
+                      <pre class="language-r">          `if`(is.null(arg), "", arg) # converting NULL -&gt; "" to enable tapply.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   output$unformatted_choices &lt;- renderPrint(fs$get_state())</pre>
+                      <pre class="language-r">        },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">76</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">142</td>
+                    <td class="coverage">36<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   # modify filter state programmatically</pre>
+                      <pre class="language-r">        character(1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   observeEvent(</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     input$button1_choices,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">79</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">#'     fs$set_state(</pre>
+                      <pre class="language-r">      filter_items &lt;- tapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">80</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">#'       teal_slice(dataname = "data", varname = "variable", keep_na = FALSE)</pre>
+                      <pre class="language-r">        X = states_list,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">81</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">#'     )</pre>
+                      <pre class="language-r">        INDEX = args,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">82</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">        simplify = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">83</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">#'   observeEvent(</pre>
+                      <pre class="language-r">        function(items) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     input$button2_choices,</pre>
+                      <pre class="language-r">          # removing filters identified by sid</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">85</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">151</td>
+                    <td class="coverage">38<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     fs$set_state(</pre>
+                      <pre class="language-r">          other_filter_idx &lt;- !names(items) %in% sid</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">86</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">152</td>
+                    <td class="coverage">38<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       teal_slice(dataname = "data", varname = "variable", keep_na = TRUE)</pre>
+                      <pre class="language-r">          filtered_items &lt;- items[other_filter_idx]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</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">88</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">154</td>
+                    <td class="coverage">38<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">          calls &lt;- Filter(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">89</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">155</td>
+                    <td class="coverage">38<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   observeEvent(</pre>
+                      <pre class="language-r">            Negate(is.null),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">90</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">156</td>
+                    <td class="coverage">38<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     input$button3_choices,</pre>
+                      <pre class="language-r">            lapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">91</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">157</td>
+                    <td class="coverage">38<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     fs$set_state(</pre>
+                      <pre class="language-r">              filtered_items,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">92</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">158</td>
+                    <td class="coverage">38<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       teal_slice(dataname = "data", varname = "variable", selected = c("a", "b"))</pre>
+                      <pre class="language-r">              function(state) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">93</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">159</td>
+                    <td class="coverage">51<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">                state$get_call(dataname = private$dataname_prefixed)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</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">95</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   observeEvent(</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     input$button4_choices,</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">97</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">163</td>
+                    <td class="coverage">38<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     fs$set_state(</pre>
+                      <pre class="language-r">          calls_combine_by(calls, operator = "&amp;")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       teal_slice(dataname = "data", varname = "variable", selected = character(0), keep_na = TRUE)</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</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">100</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">166</td>
+                    <td class="coverage">36<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">      filter_items &lt;- Filter(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">101</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">167</td>
+                    <td class="coverage">36<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   observeEvent(</pre>
+                      <pre class="language-r">        x = filter_items,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">102</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">168</td>
+                    <td class="coverage">36<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     input$button0_choices,</pre>
+                      <pre class="language-r">        f = Negate(is.null)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     fs$set_state(</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">104</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">170</td>
+                    <td class="coverage">36<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       teal_slice(dataname = "data", varname = "variable", selected = c("a", "c"), keep_na = TRUE)</pre>
+                      <pre class="language-r">      if (length(filter_items) &gt; 0L) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">105</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">171</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">        filter_function &lt;- private$fun</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">106</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">172</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">        data_name &lt;- str2lang(private$dataname_prefixed)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">107</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">173</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">        substitute(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">108</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">174</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          env = list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">109</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">175</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">            lhs = data_name,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">110</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">176</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
+                      <pre class="language-r">            rhs = as.call(c(filter_function, c(list(data_name), filter_items)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</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">112</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">178</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          expr = lhs &lt;- rhs</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">179</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">114</td>
+                    <td class="num">180</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">115</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ChoicesFilterState &lt;- R6::R6Class( # nolint</pre>
+                      <pre class="language-r">        # return NULL to avoid no-op call</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">116</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">182</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  "ChoicesFilterState",</pre>
+                      <pre class="language-r">        NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  inherit = FilterState,</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</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">119</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # public methods ----</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">186</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">121</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  public = list(</pre>
+                      <pre class="language-r">    #' Prints this `FilterStates` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">188</td>
                     <td class="coverage"></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">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">    #' @param ... additional arguments passed to `format`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Initialize a `FilterState` object.</pre>
+                      <pre class="language-r">    print = function(...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">125</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">191</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">      cat(isolate(self$format(...)), "\n")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param x (`character`)</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   variable to be filtered.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param x_reactive (`reactive`)</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   returning vector of the same type as `x`. Is used to update</pre>
+                      <pre class="language-r">    #' Remove one or more `FilterState`s from the `state_list` along with their UI elements.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   counts following the change in values of the filtered dataset.</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   If it is set to `reactive(NULL)` then counts based on filtered</pre>
+                      <pre class="language-r">    #' @param state (`teal_slices`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   dataset are not shown.</pre>
+                      <pre class="language-r">    #'   specifying `FilterState` objects to remove;</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">199</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param slice (`teal_slice`)</pre>
+                      <pre class="language-r">    #'   `teal_slice`s may contain only `dataname` and `varname`, other elements are ignored</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   specification of this filter state.</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   `teal_slice` is stored in the object and `set_state` directly manipulates values within `teal_slice`.</pre>
+                      <pre class="language-r">    #' @return `NULL`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">202</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   `get_state` returns `teal_slice` object which can be reused in other places.</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   Note that `teal_slice` is a `reactiveValues`, which means it has reference semantics, i.e.</pre>
+                      <pre class="language-r">    remove_filter_state = function(state) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">138</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">204</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   changes made to an object are automatically reflected in all places that refer to the same `teal_slice`.</pre>
+                      <pre class="language-r">      checkmate::assert_class(state, "teal_slices")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">139</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">205</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param extract_type (`character`)</pre>
+                      <pre class="language-r">      isolate({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">140</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">206</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   specifying whether condition calls should be prefixed by `dataname`. Possible values:</pre>
+                      <pre class="language-r">        state_ids &lt;- vapply(state, `[[`, character(1), "id")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">141</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">207</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' - `character(0)` (default) `varname` in the condition call will not be prefixed</pre>
+                      <pre class="language-r">        logger::log_trace("{ class(self)[1] }$remove_filter_state removing filters, state_id: { toString(state_ids) }")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">142</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">208</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' - `"list"` `varname` in the condition call will be returned as `&lt;dataname&gt;$&lt;varname&gt;`</pre>
+                      <pre class="language-r">        private$state_list_remove(state_ids)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' - `"matrix"` `varname` in the condition call will be returned as `&lt;dataname&gt;[, &lt;varname&gt;]`</pre>
+                      <pre class="language-r">      })</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">210</td>
+                    <td class="coverage">17<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      invisible(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</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">145</td>
+                    <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return Object of class `ChoicesFilterState`, invisibly.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">213</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">147</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    initialize = function(x,</pre>
+                      <pre class="language-r">    #' Gets reactive values from active `FilterState` objects.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          x_reactive = reactive(NULL),</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          slice,</pre>
+                      <pre class="language-r">    #' Get active filter state from `FilterState` objects stored in `state_list`(s).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          extract_type = character(0)) {</pre>
+                      <pre class="language-r">    #' The output is a list compatible with input to `self$set_filter_state`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">151</td>
-                    <td class="coverage">160<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">218</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      isolate({</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">152</td>
-                    <td class="coverage">160<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">219</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        checkmate::assert(</pre>
+                      <pre class="language-r">    #' @return Object of class `teal_slices`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">153</td>
-                    <td class="coverage">160<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">220</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          is.character(x),</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">154</td>
-                    <td class="coverage">160<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">221</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          is.factor(x),</pre>
+                      <pre class="language-r">    get_filter_state = function() {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">155</td>
-                    <td class="coverage">160<em>x</em></td>
+                    <td class="num">222</td>
+                    <td class="coverage">364<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          length(unique(x[!is.na(x)])) &lt; getOption("teal.threshold_slider_vs_checkboxgroup"),</pre>
+                      <pre class="language-r">      slices &lt;- unname(lapply(private$state_list(), function(x) x$get_state()))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">156</td>
-                    <td class="coverage">160<em>x</em></td>
+                    <td class="num">223</td>
+                    <td class="coverage">364<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          combine = "or"</pre>
+                      <pre class="language-r">      fs &lt;- do.call(teal_slices, c(slices, list(count_type = private$count_type)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</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="covered">
-                    <td class="num">158</td>
-                    <td class="coverage">160<em>x</em></td>
+                    <td class="num">225</td>
+                    <td class="coverage">364<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        super$initialize(</pre>
+                      <pre class="language-r">      include_varnames &lt;- private$include_varnames</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">159</td>
-                    <td class="coverage">160<em>x</em></td>
+                    <td class="num">226</td>
+                    <td class="coverage">364<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x = x,</pre>
+                      <pre class="language-r">      if (length(include_varnames)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">160</td>
-                    <td class="coverage">160<em>x</em></td>
+                    <td class="num">227</td>
+                    <td class="coverage">214<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x_reactive = x_reactive,</pre>
+                      <pre class="language-r">        attr(fs, "include_varnames") &lt;- structure(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">161</td>
-                    <td class="coverage">160<em>x</em></td>
+                    <td class="num">228</td>
+                    <td class="coverage">214<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          slice = slice,</pre>
+                      <pre class="language-r">          list(include_varnames),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">162</td>
-                    <td class="coverage">160<em>x</em></td>
+                    <td class="num">229</td>
+                    <td class="coverage">214<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          extract_type = extract_type</pre>
+                      <pre class="language-r">          names = private$dataname</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">230</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">164</td>
-                    <td class="coverage">160<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">231</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$set_choices(slice$choices)</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">160<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">232</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (is.null(slice$selected) &amp;&amp; slice$multiple) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">166</td>
-                    <td class="coverage">42<em>x</em></td>
+                    <td class="num">233</td>
+                    <td class="coverage">364<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          slice$selected &lt;- private$get_choices()</pre>
+                      <pre class="language-r">      exclude_varnames &lt;- private$exclude_varnames</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">118<em>x</em></td>
+                    <td class="num">234</td>
+                    <td class="coverage">364<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else if (is.null(slice$selected)) {</pre>
+                      <pre class="language-r">      if (length(exclude_varnames)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">235</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          slice$selected &lt;- private$get_choices()[1]</pre>
+                      <pre class="language-r">        attr(fs, "exclude_varnames") &lt;- structure(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">117<em>x</em></td>
+                    <td class="num">236</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else if (length(slice$selected) &gt; 1 &amp;&amp; !slice$multiple) {</pre>
+                      <pre class="language-r">          list(exclude_varnames),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">170</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">237</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          warning(</pre>
+                      <pre class="language-r">          names = private$dataname</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">238</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "ChoicesFilterState allows \"selected\" to be of length 1 when \"multiple\" is FALSE. ",</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">172</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">239</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "Only the first value will be used."</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</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="covered">
-                    <td class="num">174</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">241</td>
+                    <td class="coverage">364<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          slice$selected &lt;- slice$selected[1]</pre>
+                      <pre class="language-r">      fs</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">242</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">176</td>
-                    <td class="coverage">160<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        private$set_selected(slice$selected)</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">177</td>
-                    <td class="coverage">160<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">243</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (inherits(x, "POSIXt")) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">178</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">244</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          private$tzone &lt;- Find(function(x) x != "", attr(as.POSIXlt(x), "tzone"))</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">245</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">    #' Sets active `FilterState` objects.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">246</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' @param state (`teal_slices`)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">181</td>
-                    <td class="coverage">160<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">247</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$set_choices_counts(unname(table(x)))</pre>
+                      <pre class="language-r">    #' @return Function that raises an error.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">248</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">    set_filter_state = function(state) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">183</td>
-                    <td class="coverage">160<em>x</em></td>
+                    <td class="num">249</td>
+                    <td class="coverage">135<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(self)</pre>
+                      <pre class="language-r">      isolate({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">184</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">250</td>
+                    <td class="coverage">135<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">        logger::log_trace("{ class(self)[1] }$set_filter_state initializing, dataname: { private$dataname }")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">185</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">251</td>
+                    <td class="coverage">135<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        checkmate::assert_class(state, "teal_slices")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">186</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">252</td>
+                    <td class="coverage">135<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">        lapply(state, function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">187</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">253</td>
+                    <td class="coverage">177<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Returns reproducible condition call for current selection.</pre>
+                      <pre class="language-r">          checkmate::assert_true(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">188</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">254</td>
+                    <td class="coverage">177<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' For this class returned call looks like</pre>
+                      <pre class="language-r">            x$dataname == private$dataname,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">189</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">255</td>
+                    <td class="coverage">177<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' `&lt;varname&gt; %in% c(&lt;values selected&gt;)` with optional `is.na(&lt;varname&gt;)`.</pre>
+                      <pre class="language-r">            .var.name = "dataname matches private$dataname"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</td>
+                    <td class="num">256</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param dataname (`character(1)`) name of data set; defaults to `private$get_dataname()`</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">191</td>
+                    <td class="num">257</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `call` or `NULL`</pre>
+                      <pre class="language-r">        })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">192</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="never">
-                    <td class="num">193</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">259</td>
+                    <td class="coverage">135<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_call = function(dataname) {</pre>
+                      <pre class="language-r">        private$set_filterable_varnames(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">194</td>
-                    <td class="coverage">61<em>x</em></td>
+                    <td class="num">260</td>
+                    <td class="coverage">135<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (isFALSE(private$is_any_filtered())) {</pre>
+                      <pre class="language-r">          include_varnames = attr(state, "include_varnames")[[private$dataname]],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">195</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">261</td>
+                    <td class="coverage">135<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        return(NULL)</pre>
+                      <pre class="language-r">          exclude_varnames = attr(state, "exclude_varnames")[[private$dataname]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">196</td>
+                    <td class="num">262</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">197</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">263</td>
+                    <td class="coverage">135<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (missing(dataname)) dataname &lt;- private$get_dataname()</pre>
+                      <pre class="language-r">        count_type &lt;- attr(state, "count_type")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">198</td>
-                    <td class="coverage">54<em>x</em></td>
+                    <td class="num">264</td>
+                    <td class="coverage">135<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      varname &lt;- private$get_varname_prefixed(dataname)</pre>
+                      <pre class="language-r">        if (length(count_type)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">199</td>
-                    <td class="coverage">54<em>x</em></td>
+                    <td class="num">265</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      choices &lt;- private$get_choices()</pre>
+                      <pre class="language-r">          private$count_type &lt;- count_type</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">200</td>
-                    <td class="coverage">54<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">266</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      selected &lt;- private$get_selected()</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">201</td>
-                    <td class="coverage">54<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">267</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      fun_compare &lt;- if (length(selected) == 1L) "==" else "%in%"</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">202</td>
-                    <td class="coverage">54<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">268</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      filter_call &lt;- if (length(selected) == 0) {</pre>
+                      <pre class="language-r">        # Drop teal_slices that refer to excluded variables.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">203</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">269</td>
+                    <td class="coverage">135<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        call("!", call(fun_compare, varname, make_c_call(as.character(choices))))</pre>
+                      <pre class="language-r">        varnames &lt;- unique(unlist(lapply(state, "[[", "varname")))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">204</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">270</td>
+                    <td class="coverage">135<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">        excluded_varnames &lt;- setdiff(varnames, private$get_filterable_varnames())</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">205</td>
-                    <td class="coverage">48<em>x</em></td>
+                    <td class="num">271</td>
+                    <td class="coverage">135<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (setequal(selected, choices) &amp;&amp; !private$is_choice_limited) {</pre>
+                      <pre class="language-r">        if (length(excluded_varnames)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">206</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">272</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          NULL</pre>
+                      <pre class="language-r">          state &lt;- Filter(function(x) !isTRUE(x$varname %in% excluded_varnames), state)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">207</td>
-                    <td class="coverage">46<em>x</em></td>
+                    <td class="num">273</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else if (inherits(private$x, "Date")) {</pre>
+                      <pre class="language-r">          warning(sprintf("filters for columns: %s excluded from %s", toString(excluded_varnames), private$dataname))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">208</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">274</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          call(fun_compare, varname, call("as.Date", make_c_call(as.character(selected))))</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">209</td>
-                    <td class="coverage">45<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">275</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else if (inherits(private$x, c("POSIXct", "POSIXlt"))) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">210</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">276</td>
+                    <td class="coverage">135<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          class &lt;- class(private$x)[1L]</pre>
+                      <pre class="language-r">        if (length(state) &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">211</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">277</td>
+                    <td class="coverage">93<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          date_fun &lt;- as.name(</pre>
+                      <pre class="language-r">          private$set_filter_state_impl(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">212</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">278</td>
+                    <td class="coverage">93<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            switch(class,</pre>
+                      <pre class="language-r">            state = state,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">213</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">279</td>
+                    <td class="coverage">93<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "POSIXct" = "as.POSIXct",</pre>
+                      <pre class="language-r">            data = private$data,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">214</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">280</td>
+                    <td class="coverage">93<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "POSIXlt" = "as.POSIXlt"</pre>
+                      <pre class="language-r">            data_reactive = private$data_reactive</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">215</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">216</td>
+                    <td class="num">282</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">217</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">283</td>
+                    <td class="coverage">135<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          call(</pre>
+                      <pre class="language-r">        logger::log_trace("{ class(self)[1] }$set_filter_state initialized, dataname: { private$dataname }")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">218</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">284</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            fun_compare,</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">219</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">285</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            varname,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">220</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">286</td>
+                    <td class="coverage">135<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            as.call(list(date_fun, make_c_call(as.character(selected)), tz = private$tzone))</pre>
+                      <pre class="language-r">      invisible(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">221</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="covered">
-                    <td class="num">222</td>
-                    <td class="coverage">43<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">288</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else if (is.numeric(private$x)) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">223</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">289</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          call(fun_compare, varname, make_c_call(as.numeric(selected)))</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">224</td>
+                    <td class="num">290</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">    #' Remove all `FilterState` objects from this `FilterStates` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">225</td>
+                    <td class="num">291</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # This handles numerics, characters, and factors.</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">226</td>
-                    <td class="coverage">36<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">292</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          call(fun_compare, varname, make_c_call(selected))</pre>
+                      <pre class="language-r">    #' @param force (`logical(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">227</td>
+                    <td class="num">293</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">    #'   flag specifying whether to include anchored filter states.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">228</td>
+                    <td class="num">294</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">229</td>
-                    <td class="coverage">54<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">295</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$add_keep_na_call(filter_call, varname)</pre>
+                      <pre class="language-r">    #' @return `NULL`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">230</td>
+                    <td class="num">296</td>
                     <td class="coverage"></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="num">297</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ),</pre>
+                      <pre class="language-r">    clear_filter_states = function(force = FALSE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">232</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">298</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      private$state_list_empty(force)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">233</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">299</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # private members ----</pre>
+                      <pre class="language-r">      invisible(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">234</td>
+                    <td class="num">300</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">235</td>
+                    <td class="num">301</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = NULL,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">236</td>
+                    <td class="num">302</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    choices_counts = integer(0),</pre>
+                      <pre class="language-r">    # shiny modules ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">237</td>
+                    <td class="num">303</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tzone = character(0), # if x is a datetime, stores time zone so that it can be restored in $get_call</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">238</td>
+                    <td class="num">304</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">239</td>
+                    <td class="num">305</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # private methods ----</pre>
+                      <pre class="language-r">    #' `shiny` UI definition that stores `FilterState` UI elements.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">240</td>
+                    <td class="num">306</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' Populated with elements created with `renderUI` in the module server.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">241</td>
+                    <td class="num">307</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">242</td>
+                    <td class="num">308</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Checks validity of the choices, adjust if neccessary and sets the flag for the case where choices</pre>
+                      <pre class="language-r">    #' @param id (`character(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">243</td>
+                    <td class="num">309</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #  are limited by default from the start.</pre>
+                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">244</td>
+                    <td class="num">310</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set_choices = function(choices) {</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">245</td>
-                    <td class="coverage">160<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">311</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (is.null(choices)) {</pre>
+                      <pre class="language-r">    #' @return `shiny.tag`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">246</td>
-                    <td class="coverage">145<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">312</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        choices &lt;- unique(as.character(na.omit(private$x)))</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">247</td>
+                    <td class="num">313</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">    ui_active = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">248</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">314</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        choices &lt;- as.character(choices)</pre>
+                      <pre class="language-r">      ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">249</td>
-                    <td class="coverage">15<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">        choices_adjusted &lt;- choices[choices %in% unique(private$x)]</pre>
+                      <pre class="language-r">      tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">250</td>
-                    <td class="coverage">15<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">        if (length(setdiff(choices, choices_adjusted)) &gt; 0L) {</pre>
+                      <pre class="language-r">        include_css_files(pattern = "filter-panel"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">251</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">317</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          warning(</pre>
+                      <pre class="language-r">        uiOutput(ns("trigger_visible_state_change"), inline = TRUE),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">252</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">318</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            sprintf(</pre>
+                      <pre class="language-r">        uiOutput(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">253</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">319</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "Some choices not found in data. Adjusting. Filter id: %s.",</pre>
+                      <pre class="language-r">          ns("cards"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">254</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">320</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              private$get_id()</pre>
+                      <pre class="language-r">          class = "accordion",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">255</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">            )</pre>
+                      <pre class="language-r">          `data-label` = ifelse(length(private$datalabel), paste0("&gt; ", private$datalabel), ""),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">256</td>
+                    <td class="num">322</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">257</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">323</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          choices &lt;- choices_adjusted</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">258</td>
+                    <td class="num">324</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">259</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">325</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (length(choices) == 0) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">260</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">326</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          warning(</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">261</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">327</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            sprintf(</pre>
+                      <pre class="language-r">    #' `shiny` server module.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">262</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">328</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "None of the choices were found in data. Setting defaults. Filter id: %s.",</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">263</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">329</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              private$get_id()</pre>
+                      <pre class="language-r">    #' @param id (`character(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">264</td>
+                    <td class="num">330</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">265</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="covered">
-                    <td class="num">266</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">332</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          choices &lt;- levels(private$x)</pre>
+                      <pre class="language-r">    #' @return `NULL`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">267</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">268</td>
+                    <td class="num">334</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">    srv_active = function(id) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">269</td>
-                    <td class="coverage">160<em>x</em></td>
+                    <td class="num">335</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$set_is_choice_limited(private$x, choices)</pre>
+                      <pre class="language-r">      moduleServer(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">270</td>
-                    <td class="coverage">160<em>x</em></td>
+                    <td class="num">336</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$teal_slice$choices &lt;- choices</pre>
+                      <pre class="language-r">        id = id,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">271</td>
-                    <td class="coverage">160<em>x</em></td>
+                    <td class="num">337</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$x &lt;- private$x[(private$x %in% private$get_choices()) | is.na(private$x)]</pre>
+                      <pre class="language-r">        function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">272</td>
-                    <td class="coverage">36<em>x</em></td>
+                    <td class="num">338</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (is.factor(private$x)) private$x &lt;- droplevels(private$x)</pre>
+                      <pre class="language-r">          logger::log_trace("FilterState$srv_active initializing, dataname: { private$dataname }")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">273</td>
-                    <td class="coverage">160<em>x</em></td>
+                    <td class="num">339</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(NULL)</pre>
+                      <pre class="language-r">          current_state &lt;- reactive(private$state_list_get())</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">274</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">340</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">          previous_state &lt;- reactiveVal(NULL) # FilterState list</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">275</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">341</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @description</pre>
+                      <pre class="language-r">          added_states &lt;- reactiveVal(NULL) # FilterState list</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">276</td>
+                    <td class="num">342</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Check whether the initial choices filter out some values of x and set the flag in case.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">277</td>
+                    <td class="num">343</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set_is_choice_limited = function(x, choices) {</pre>
+                      <pre class="language-r">          # gives a valid shiny ns based on a default slice id</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">278</td>
-                    <td class="coverage">160<em>x</em></td>
+                    <td class="num">344</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      xl &lt;- x[!is.na(x)]</pre>
+                      <pre class="language-r">          fs_to_shiny_ns &lt;- function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">279</td>
-                    <td class="coverage">160<em>x</em></td>
+                    <td class="num">345</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$is_choice_limited &lt;- length(setdiff(xl, choices)) &gt; 0L</pre>
+                      <pre class="language-r">            checkmate::assert_multi_class(x, c("FilterState", "FilterStateExpr"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">280</td>
-                    <td class="coverage">160<em>x</em></td>
+                    <td class="num">346</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(NULL)</pre>
+                      <pre class="language-r">            gsub("[^[:alnum:]]+", "_", get_default_slice_id(x$get_state()))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">281</td>
+                    <td class="num">347</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">282</td>
+                    <td class="num">348</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">283</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">349</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Sets choices_counts private field.</pre>
+                      <pre class="language-r">          output$trigger_visible_state_change &lt;- renderUI({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">284</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">350</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set_choices_counts = function(choices_counts) {</pre>
+                      <pre class="language-r">            current_state()</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">285</td>
-                    <td class="coverage">160<em>x</em></td>
+                    <td class="num">351</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$choices_counts &lt;- choices_counts</pre>
+                      <pre class="language-r">            isolate({</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">286</td>
-                    <td class="coverage">160<em>x</em></td>
+                    <td class="num">352</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(NULL)</pre>
+                      <pre class="language-r">              logger::log_trace("FilterStates$srv_active@1 determining added and removed filter states")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">287</td>
+                    <td class="num">353</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">              # Be aware this returns a list because `current_state` is a list and not `teal_slices`.</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">354</td>
+                    <td class="coverage">14<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              added_states(setdiff_teal_slices(current_state(), previous_state()))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">355</td>
+                    <td class="coverage">14<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              previous_state(current_state())</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">356</td>
+                    <td class="coverage">14<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">288</td>
+                    <td class="num">357</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">289</td>
+                    <td class="num">358</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Checks how many counts of each choice is present in the data.</pre>
+                      <pre class="language-r">          })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">290</td>
+                    <td class="num">359</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_choices_counts = function() {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">291</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">360</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!is.null(private$x_reactive)) {</pre>
+                      <pre class="language-r">          output[["cards"]] &lt;- renderUI({</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">292</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">361</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        table(factor(private$x_reactive(), levels = private$get_choices()))</pre>
+                      <pre class="language-r">            lapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">293</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">362</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">              current_state(), # observes only if added/removed</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">294</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">363</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        NULL</pre>
+                      <pre class="language-r">              function(state) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">295</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">364</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">                isolate( # isolates when existing state changes</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">296</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">365</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">                  state$ui(id = session$ns(fs_to_shiny_ns(state)), parent_id = session$ns("cards"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">297</td>
+                    <td class="num">366</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">298</td>
+                    <td class="num">367</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Checks whether the input should be rendered as a checkboxgroup/radiobutton or a drop-down.</pre>
+                      <pre class="language-r">              }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">299</td>
+                    <td class="num">368</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    is_checkboxgroup = function() {</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">300</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">369</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      length(private$get_choices()) &lt;= getOption("teal.threshold_slider_vs_checkboxgroup")</pre>
+                      <pre class="language-r">          })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">301</td>
+                    <td class="num">370</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">371</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          observeEvent(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">372</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            added_states(), # we want to call FilterState module only once when it's added</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">373</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            ignoreNULL = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">302</td>
+                    <td class="num">374</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    cast_and_validate = function(values) {</pre>
+                      <pre class="language-r">            {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">303</td>
-                    <td class="coverage">189<em>x</em></td>
+                    <td class="num">375</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tryCatch(</pre>
+                      <pre class="language-r">              added_state_names &lt;- vapply(added_states(), function(x) x$get_state()$id, character(1L))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">304</td>
-                    <td class="coverage">189<em>x</em></td>
+                    <td class="num">376</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        expr = {</pre>
+                      <pre class="language-r">              logger::log_trace("FilterStates$srv_active@2 triggered by added states: { toString(added_state_names) }")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">305</td>
-                    <td class="coverage">189<em>x</em></td>
+                    <td class="num">377</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          values &lt;- as.character(values)</pre>
+                      <pre class="language-r">              lapply(added_states(), function(state) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">306</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">378</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (anyNA(values)) stop()</pre>
+                      <pre class="language-r">                fs_callback &lt;- state$server(id = fs_to_shiny_ns(state))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">379</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                observeEvent(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">380</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                  once = TRUE, # remove button can be called once, should be destroyed afterwards</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">381</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                  ignoreInit = TRUE, # ignoreInit: should not matter because we destroy the previous input set of the UI</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">382</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                  eventExpr = fs_callback(), # when remove button is clicked in the FilterState ui</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">383</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                  handlerExpr = private$state_list_remove(state$get_state()$id)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">307</td>
+                    <td class="num">384</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        },</pre>
+                      <pre class="language-r">                )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">385</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              })</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">308</td>
-                    <td class="coverage">189<em>x</em></td>
+                    <td class="num">386</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        error = function(e) stop("The vector of set values must contain values coercible to character.")</pre>
+                      <pre class="language-r">              added_states(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">309</td>
+                    <td class="num">387</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">            }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">388</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">389</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">310</td>
-                    <td class="coverage">189<em>x</em></td>
+                    <td class="num">390</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      values</pre>
+                      <pre class="language-r">          NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">311</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">312</td>
+                    <td class="num">392</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # If multiple forbidden but selected, restores previous selection with warning.</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">313</td>
+                    <td class="num">393</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    check_length = function(values) {</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">314</td>
-                    <td class="coverage">189<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">      if (!private$is_multiple() &amp;&amp; length(values) &gt; 1) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">315</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">395</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        warning(</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">316</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">396</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          sprintf("Selection: %s is not a vector of length one. ", toString(values, width = 360)),</pre>
+                      <pre class="language-r">    #' `shiny` UI module to add filter variable.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">317</td>
-                    <td class="coverage">1<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">          "Maintaining previous selection."</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">318</td>
+                    <td class="num">398</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="covered">
-                    <td class="num">319</td>
-                    <td class="coverage">1<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">        values &lt;- isolate(private$get_selected())</pre>
+                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">320</td>
+                    <td class="num">400</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">321</td>
-                    <td class="coverage">189<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">401</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      values</pre>
+                      <pre class="language-r">    #' @return `shiny.tag`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">322</td>
+                    <td class="num">402</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">323</td>
+                    <td class="num">403</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    remove_out_of_bounds_values = function(values) {</pre>
+                      <pre class="language-r">    ui_add = function(id) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">324</td>
-                    <td class="coverage">189<em>x</em></td>
+                    <td class="num">404</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      in_choices_mask &lt;- values %in% private$get_choices()</pre>
+                      <pre class="language-r">      checkmate::assert_string(id)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">325</td>
-                    <td class="coverage">189<em>x</em></td>
+                    <td class="num">405</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(values[!in_choices_mask]) &gt; 0) {</pre>
+                      <pre class="language-r">      data &lt;- private$data</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">406</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">326</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="num">407</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        warning(paste(</pre>
+                      <pre class="language-r">      ns &lt;- NS(id)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">408</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">327</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="num">409</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "Values:", toString(values[!in_choices_mask], width = 360),</pre>
+                      <pre class="language-r">      if (ncol(data) == 0) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">328</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="num">410</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "are not in choices of column", private$get_varname(), "in dataset", private$get_dataname(), "."</pre>
+                      <pre class="language-r">        tags$div("no sample variables available")</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">411</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      } else if (nrow(data) == 0) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">412</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        tags$div("no samples available")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">329</td>
+                    <td class="num">413</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">414</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        uiOutput(ns("add_filter"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">330</td>
+                    <td class="num">415</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">331</td>
-                    <td class="coverage">189<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">      values[in_choices_mask]</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">332</td>
+                    <td class="num">417</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">333</td>
+                    <td class="num">418</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">334</td>
+                    <td class="num">419</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # shiny modules ----</pre>
+                      <pre class="language-r">    #' `shiny` server module to add filter variable.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">335</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">336</td>
+                    <td class="num">421</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @description</pre>
+                      <pre class="language-r">    #' This module controls available choices to select as a filter variable.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">337</td>
+                    <td class="num">422</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # UI Module for `ChoicesFilterState`.</pre>
+                      <pre class="language-r">    #' Once selected, a variable is removed from available choices.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">338</td>
+                    <td class="num">423</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # This UI element contains available choices selection and</pre>
+                      <pre class="language-r">    #' Removing a filter variable adds it back to available choices.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">339</td>
+                    <td class="num">424</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # checkbox whether to keep or not keep the `NA` values.</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">340</td>
+                    <td class="num">425</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @param id (`character(1)`) `shiny` module instance id.</pre>
+                      <pre class="language-r">    #' @param id (`character(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">341</td>
+                    <td class="num">426</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_inputs = function(id) {</pre>
+                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">342</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">427</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">343</td>
+                    <td class="num">428</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">344</td>
+                    <td class="num">429</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # we need to isolate UI to not rettrigger renderUI</pre>
+                      <pre class="language-r">    srv_add = function(id) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">345</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">430</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      isolate({</pre>
+                      <pre class="language-r">      moduleServer(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">346</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">431</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        countsmax &lt;- private$choices_counts</pre>
+                      <pre class="language-r">        id = id,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">347</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">432</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        countsnow &lt;- if (!is.null(private$x_reactive())) {</pre>
+                      <pre class="language-r">        function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">348</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">433</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          unname(table(factor(private$x_reactive(), levels = private$get_choices())))</pre>
+                      <pre class="language-r">          logger::log_trace("FilterStates$srv_add initializing, dataname: { private$dataname }")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">349</td>
+                    <td class="num">434</td>
                     <td class="coverage"></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">435</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          # available choices to display</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">351</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">436</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ui_input &lt;- if (private$is_checkboxgroup()) {</pre>
+                      <pre class="language-r">          avail_column_choices &lt;- reactive({</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">352</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">437</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          labels &lt;- countBars(</pre>
+                      <pre class="language-r">            data &lt;- private$data</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">353</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">438</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            inputId = ns("labels"),</pre>
+                      <pre class="language-r">            vars_include &lt;- private$get_filterable_varnames()</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">354</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">439</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            choices = private$get_choices(),</pre>
+                      <pre class="language-r">            active_filter_vars &lt;- unique(unlist(lapply(self$get_filter_state(), "[[", "varname")))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">355</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">440</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            countsnow = countsnow,</pre>
+                      <pre class="language-r">            choices &lt;- setdiff(vars_include, active_filter_vars)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">356</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">441</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            countsmax = countsmax</pre>
+                      <pre class="language-r">            varlabels &lt;- get_varlabels(data)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">357</td>
+                    <td class="num">442</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">358</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">443</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          tags$div(</pre>
+                      <pre class="language-r">            data_choices_labeled(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">359</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">444</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            class = "choices_state",</pre>
+                      <pre class="language-r">              data = data,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">360</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">445</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (private$is_multiple()) {</pre>
+                      <pre class="language-r">              choices = choices,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">361</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">446</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              checkboxGroupInput(</pre>
+                      <pre class="language-r">              varlabels = varlabels,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">362</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">447</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                inputId = ns("selection"),</pre>
+                      <pre class="language-r">              keys = private$keys</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">363</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">448</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                label = NULL,</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">364</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">449</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                selected = private$get_selected(),</pre>
+                      <pre class="language-r">          })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">365</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">450</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                choiceNames = labels,</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">451</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">366</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">452</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                choiceValues = private$get_choices(),</pre>
+                      <pre class="language-r">          output$add_filter &lt;- renderUI({</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">367</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">453</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                width = "100%"</pre>
+                      <pre class="language-r">            logger::log_trace(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">368</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">454</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r">              "FilterStates$srv_add@1 updating available column choices, dataname: { private$dataname }"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">369</td>
+                    <td class="num">455</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">370</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">456</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              radioButtons(</pre>
+                      <pre class="language-r">            if (length(avail_column_choices()) == 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">371</td>
+                    <td class="num">457</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                inputId = ns("selection"),</pre>
+                      <pre class="language-r">              tags$span("No available columns to add.")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">372</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">458</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                label = NULL,</pre>
+                      <pre class="language-r">            } else {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">373</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">459</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                selected = private$get_selected(),</pre>
+                      <pre class="language-r">              tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">374</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">460</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                choiceNames = labels,</pre>
+                      <pre class="language-r">                teal.widgets::optionalSelectInput(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">375</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">461</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                choiceValues = private$get_choices(),</pre>
+                      <pre class="language-r">                  session$ns("var_to_add"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">376</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">462</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                width = "100%"</pre>
+                      <pre class="language-r">                  choices = avail_column_choices(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">377</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">463</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r">                  selected = NULL,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">464</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                  options = shinyWidgets::pickerOptions(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">465</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                    liveSearch = TRUE,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">466</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                    noneSelectedText = "Select variable to filter"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">378</td>
+                    <td class="num">467</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">                  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">379</td>
+                    <td class="num">468</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">                )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">380</td>
+                    <td class="num">469</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">381</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">470</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          labels &lt;- mapply(</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">382</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">471</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            FUN = make_count_text,</pre>
+                      <pre class="language-r">          })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">383</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">472</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            label = private$get_choices(),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">384</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">473</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            countnow = if (is.null(countsnow)) rep(list(NULL), length(private$get_choices())) else countsnow,</pre>
+                      <pre class="language-r">          observeEvent(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">385</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">474</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            countmax = countsmax</pre>
+                      <pre class="language-r">            eventExpr = input$var_to_add,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">386</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">475</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">            handlerExpr = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">387</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">476</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">              logger::log_trace(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">388</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">477</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          teal.widgets::optionalSelectInput(</pre>
+                      <pre class="language-r">                sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">389</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">478</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            inputId = ns("selection"),</pre>
+                      <pre class="language-r">                  "FilterStates$srv_add@2 adding FilterState of variable %s, dataname: %s",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">390</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">479</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            choices = stats::setNames(private$get_choices(), labels),</pre>
+                      <pre class="language-r">                  input$var_to_add,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">391</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">480</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            selected = private$get_selected(),</pre>
+                      <pre class="language-r">                  private$dataname</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">392</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">481</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            multiple = private$is_multiple(),</pre>
+                      <pre class="language-r">                )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">393</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">482</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            options = shinyWidgets::pickerOptions(</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">394</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">483</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              actionsBox = TRUE,</pre>
+                      <pre class="language-r">              self$set_filter_state(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">395</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">484</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              liveSearch = (length(private$get_choices()) &gt; 10),</pre>
+                      <pre class="language-r">                teal_slices(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">396</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">485</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              noneSelectedText = "Select a value"</pre>
+                      <pre class="language-r">                  teal_slice(dataname = private$dataname, varname = input$var_to_add)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">397</td>
+                    <td class="num">486</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">                )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">398</td>
+                    <td class="num">487</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">399</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">488</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">              logger::log_trace(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">400</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">489</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$div(</pre>
+                      <pre class="language-r">                sprintf(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">401</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">490</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          uiOutput(ns("trigger_visible")),</pre>
+                      <pre class="language-r">                  "FilterStates$srv_add@2 added FilterState of variable %s, dataname: %s",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">402</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">491</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ui_input,</pre>
+                      <pre class="language-r">                  input$var_to_add,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">403</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">492</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          private$keep_na_ui(ns("keep_na"))</pre>
+                      <pre class="language-r">                  private$dataname</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">404</td>
+                    <td class="num">493</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">                )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">405</td>
+                    <td class="num">494</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">406</td>
+                    <td class="num">495</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">407</td>
+                    <td class="num">496</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">408</td>
+                    <td class="num">497</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="covered">
+                    <td class="num">498</td>
+                    <td class="coverage">8<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          logger::log_trace("FilterStates$srv_add initialized, dataname: { private$dataname }")</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">499</td>
+                    <td class="coverage">8<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">409</td>
+                    <td class="num">500</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Server module</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">410</td>
+                    <td class="num">501</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @param id (`character(1)`) `shiny` module instance id.</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">411</td>
+                    <td class="num">502</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">412</td>
+                    <td class="num">503</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server_inputs = function(id) {</pre>
+                      <pre class="language-r">  ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">413</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">504</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      moduleServer(</pre>
+                      <pre class="language-r">  private = list(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">414</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">505</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = id,</pre>
+                      <pre class="language-r">    # private fields ----</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">415</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">506</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        function(input, output, session) {</pre>
+                      <pre class="language-r">    count_type = "none", # specifies how observation numbers are displayed in filter cards,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">416</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">507</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_trace("ChoicesFilterState$server_inputs initializing, id: { private$get_id() }")</pre>
+                      <pre class="language-r">    data = NULL, # data.frame, MAE, SE or matrix</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">417</td>
+                    <td class="num">508</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    data_reactive = NULL, # reactive</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">418</td>
+                    <td class="num">509</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # 1. renderUI is used here as an observer which triggers only if output is visible</pre>
+                      <pre class="language-r">    datalabel = NULL, # to follow default `experiment = NULL` in `teal_slice`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">419</td>
+                    <td class="num">510</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          #  and if the reactive changes - reactive triggers only if the output is visible.</pre>
+                      <pre class="language-r">    dataname = NULL, # because it holds object of class name</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">420</td>
+                    <td class="num">511</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # 2. We want to trigger change of the labels only if reactive count changes (not underlying data)</pre>
+                      <pre class="language-r">    dataname_prefixed = character(0), # name used in call returned from get_call</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">421</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">512</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          non_missing_values &lt;- reactive(Filter(Negate(is.na), private$x_reactive()))</pre>
+                      <pre class="language-r">    exclude_varnames = character(0), # holds column names</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">422</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">513</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          output$trigger_visible &lt;- renderUI({</pre>
+                      <pre class="language-r">    include_varnames = character(0), # holds column names</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">423</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">514</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            logger::log_trace("ChoicesFilterState$server_inputs@1 updating count labels, id: { private$get_id() }")</pre>
+                      <pre class="language-r">    extract_type = character(0), # type of the prefix in a subset call (eg. "list": x$var; "matrix": x[["var"]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">424</td>
+                    <td class="num">515</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    fun = quote(subset), # function used to generate subset call</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">425</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">516</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            countsnow &lt;- if (!is.null(private$x_reactive())) {</pre>
+                      <pre class="language-r">    keys = character(0),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">426</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">517</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              unname(table(factor(non_missing_values(), levels = private$get_choices())))</pre>
+                      <pre class="language-r">    ns = NULL, # shiny ns()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">427</td>
+                    <td class="num">518</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">    observers = list(), # observers</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">428</td>
+                    <td class="num">519</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    state_list = NULL, # list of `reactiveVal`s initialized by init methods of child classes,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">429</td>
+                    <td class="num">520</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            # update should be based on a change of counts only</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">430</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">521</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            isolate({</pre>
+                      <pre class="language-r">    # private methods ----</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">431</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">522</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              if (private$is_checkboxgroup()) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">432</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">523</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                updateCountBars(</pre>
+                      <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">433</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">524</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  inputId = "labels",</pre>
+                      <pre class="language-r">    # Set the allowed filterable variables</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">434</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">525</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  choices = private$get_choices(),</pre>
+                      <pre class="language-r">    # @param include_varnames (`character`) Names of variables included in filtering.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">435</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">526</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  countsmax = private$choices_counts,</pre>
+                      <pre class="language-r">    # @param exclude_varnames (`character`) Names of variables excluded from filtering.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">436</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">527</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  countsnow = countsnow</pre>
+                      <pre class="language-r">    #</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">437</td>
+                    <td class="num">528</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                )</pre>
+                      <pre class="language-r">    # @details When retrieving the filtered variables only</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">438</td>
+                    <td class="num">529</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              } else {</pre>
+                      <pre class="language-r">    # those which have filtering supported (i.e. are of the permitted types).</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">439</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">530</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                labels &lt;- mapply(</pre>
+                      <pre class="language-r">    # Only one from `include_varnames` and `exclude_varnames` can be used in one call. When `exclude_varnames`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">440</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">531</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  FUN = make_count_text,</pre>
+                      <pre class="language-r">    # is called `include_varnames` is cleared - same otherwise.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">441</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">532</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  label = private$get_choices(),</pre>
+                      <pre class="language-r">    # are included.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">442</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">533</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  countnow = if (is.null(countsnow)) rep(list(NULL), length(private$get_choices())) else countsnow,</pre>
+                      <pre class="language-r">    #</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">443</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">534</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  countmax = private$choices_counts</pre>
+                      <pre class="language-r">    # @return `NULL`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">444</td>
+                    <td class="num">535</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                )</pre>
+                      <pre class="language-r">    set_filterable_varnames = function(include_varnames = character(0), exclude_varnames = character(0)) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">445</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                teal.widgets::updateOptionalSelectInput(</pre>
+                  <tr class="covered">
+                    <td class="num">536</td>
+                    <td class="coverage">288<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      if ((length(include_varnames) + length(exclude_varnames)) == 0L) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">446</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">537</td>
+                    <td class="coverage">113<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  session = session,</pre>
+                      <pre class="language-r">        return(invisible(NULL))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">447</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">538</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  inputId = "selection",</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">448</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">539</td>
+                    <td class="coverage">175<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  choices = stats::setNames(private$get_choices(), labels),</pre>
+                      <pre class="language-r">      checkmate::assert_character(include_varnames, any.missing = FALSE, min.len = 0L, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">449</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">540</td>
+                    <td class="coverage">175<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  selected = private$get_selected()</pre>
+                      <pre class="language-r">      checkmate::assert_character(exclude_varnames, any.missing = FALSE, min.len = 0L, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">450</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">541</td>
+                    <td class="coverage">175<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                )</pre>
+                      <pre class="language-r">      if (length(include_varnames) &amp;&amp; length(exclude_varnames)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">451</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">542</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">452</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">543</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              NULL</pre>
+                      <pre class="language-r">          "`include_varnames` and `exclude_varnames` has been both specified for",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">453</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">544</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            })</pre>
+                      <pre class="language-r">          private$dataname,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">545</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          ". Only one per dataset is allowed.",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">454</td>
+                    <td class="num">546</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          })</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">455</td>
+                    <td class="num">547</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">456</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">548</td>
+                    <td class="coverage">175<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (private$is_checkboxgroup()) {</pre>
+                      <pre class="language-r">      supported_vars &lt;- get_supported_filter_varnames(private$data)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">457</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">549</td>
+                    <td class="coverage">175<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            private$observers$selection &lt;- observeEvent(</pre>
+                      <pre class="language-r">      if (length(include_varnames)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">458</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">550</td>
+                    <td class="coverage">161<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ignoreNULL = FALSE,</pre>
+                      <pre class="language-r">        private$include_varnames &lt;- intersect(include_varnames, supported_vars)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">459</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">551</td>
+                    <td class="coverage">161<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ignoreInit = TRUE, # ignoreInit: should not matter because we set the UI with the desired initial state</pre>
+                      <pre class="language-r">        private$exclude_varnames &lt;- character(0)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">460</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">552</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              eventExpr = input$selection,</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">461</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">553</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              handlerExpr = {</pre>
+                      <pre class="language-r">        private$exclude_varnames &lt;- exclude_varnames</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">462</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">554</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                logger::log_trace("ChoicesFilterState$server_inputs@2 changed selection, id: { private$get_id() }")</pre>
+                      <pre class="language-r">        private$include_varnames &lt;- character(0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">463</td>
+                    <td class="num">555</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">464</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">556</td>
+                    <td class="coverage">175<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                selection &lt;- if (is.null(input$selection) &amp;&amp; private$is_multiple()) {</pre>
+                      <pre class="language-r">      invisible(NULL)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">465</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">557</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  character(0)</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">466</td>
+                    <td class="num">558</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">467</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">559</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  input$selection</pre>
+                      <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">468</td>
+                    <td class="num">560</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                }</pre>
+                      <pre class="language-r">    # Get vector of filterable varnames</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">469</td>
+                    <td class="num">561</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">470</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">562</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                private$set_selected(selection)</pre>
+                      <pre class="language-r">    # @details</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">471</td>
+                    <td class="num">563</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              }</pre>
+                      <pre class="language-r">    #  These are the only columns which can be used in the filter panel</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">472</td>
+                    <td class="num">564</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">    #</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">473</td>
+                    <td class="num">565</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          } else {</pre>
+                      <pre class="language-r">    # @return character vector with names of the columns</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">474</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">566</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            private$observers$selection &lt;- observeEvent(</pre>
+                      <pre class="language-r">    get_filterable_varnames = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">475</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">567</td>
+                    <td class="coverage">144<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ignoreNULL = FALSE,</pre>
+                      <pre class="language-r">      if (length(private$include_varnames)) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">476</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">568</td>
+                    <td class="coverage">97<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ignoreInit = TRUE, # ignoreInit: should not matter because we set the UI with the desired initial state</pre>
+                      <pre class="language-r">        private$include_varnames</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">477</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">569</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              eventExpr = input$selection_open, # observe click on a dropdown</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">478</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">570</td>
+                    <td class="coverage">47<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              handlerExpr = {</pre>
+                      <pre class="language-r">        supported_varnames &lt;- get_supported_filter_varnames(private$data)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">479</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">571</td>
+                    <td class="coverage">47<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                if (!isTRUE(input$selection_open)) { # only when the dropdown got closed</pre>
+                      <pre class="language-r">        setdiff(supported_varnames, private$exclude_varnames)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">480</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">572</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  logger::log_trace("ChoicesFilterState$server_inputs@2 changed selection, id: { private$get_id() }")</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">481</td>
+                    <td class="num">573</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">482</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">574</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  selection &lt;- if (is.null(input$selection) &amp;&amp; private$is_multiple()) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">483</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">575</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    character(0)</pre>
+                      <pre class="language-r">    # state_list methods ----</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">484</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">576</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  } else if (isTRUE(length(input$selection) != 1) &amp;&amp; !private$is_multiple()) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">485</td>
+                    <td class="num">577</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    # In optionalSelectInput user is able to select mutliple options. But if FilterState is not multiple</pre>
+                      <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">486</td>
+                    <td class="num">578</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    # we should prevent this selection to be processed further.</pre>
+                      <pre class="language-r">    # Returns a list of `FilterState` objects stored in this `FilterStates`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">487</td>
+                    <td class="num">579</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    # This is why notification is thrown and dropdown is changed back to latest selected.</pre>
+                      <pre class="language-r">    #</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">488</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">580</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    showNotification(paste(</pre>
+                      <pre class="language-r">    # @param state_id (`character(1)`)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">489</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">581</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      "This filter exclusively supports single selection.",</pre>
+                      <pre class="language-r">    #   name of element in a filter state (which is a `reactiveVal` containing a list)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">490</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">582</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      "Any additional choices made will be disregarded."</pre>
+                      <pre class="language-r">    #</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">491</td>
+                    <td class="num">583</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    ))</pre>
+                      <pre class="language-r">    # @return `list` of `FilterState` objects</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">492</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">584</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    teal.widgets::updateOptionalSelectInput(</pre>
+                      <pre class="language-r">    #</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">493</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">585</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      session, "selection",</pre>
+                      <pre class="language-r">    state_list_get = function(state_id = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">494</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">586</td>
+                    <td class="coverage">212<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      selected = private$get_selected()</pre>
+                      <pre class="language-r">      checkmate::assert_string(state_id, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">495</td>
+                    <td class="num">587</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">496</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">588</td>
+                    <td class="coverage">212<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    return(NULL)</pre>
+                      <pre class="language-r">      if (is.null(state_id)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">589</td>
+                    <td class="coverage">212<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        private$state_list()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">497</td>
+                    <td class="num">590</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  } else {</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">498</td>
+                    <td class="num">591</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    input$selection</pre>
+                      <pre class="language-r">        private$state_list()[[state_id]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">499</td>
+                    <td class="num">592</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  }</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">500</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                  private$set_selected(selection)</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">501</td>
+                    <td class="num">593</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                }</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">502</td>
+                    <td class="num">594</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">503</td>
+                    <td class="num">595</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">504</td>
+                    <td class="num">596</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">    # Adds a new `FilterState` object to this `FilterStates`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">505</td>
+                    <td class="num">597</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # Raises error if the length of `x` does not match the length of `state_id`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">506</td>
+                    <td class="num">598</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">507</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">599</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          private$keep_na_srv("keep_na")</pre>
+                      <pre class="language-r">    # @param x (`FilterState`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">508</td>
+                    <td class="num">600</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #   object to be added to filter state list</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">509</td>
+                    <td class="num">601</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # this observer is needed in the situation when teal_slice$selected has been</pre>
+                      <pre class="language-r">    # @param state_id (`character(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">510</td>
+                    <td class="num">602</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # changed directly by the api - then it's needed to rerender UI element</pre>
+                      <pre class="language-r">    #   name of element in a filter state (which is a `reactiveVal` containing a list)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">511</td>
+                    <td class="num">603</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # to show relevant values</pre>
+                      <pre class="language-r">    #</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">512</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">604</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          private$observers$selection_api &lt;- observeEvent(private$get_selected(), {</pre>
+                      <pre class="language-r">    # @return `NULL`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">513</td>
+                    <td class="num">605</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            # it's important to not retrigger when the input$selection is the same as reactive values</pre>
+                      <pre class="language-r">    #</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">514</td>
+                    <td class="num">606</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            # kept in the teal_slice$selected</pre>
+                      <pre class="language-r">    state_list_push = function(x, state_id) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">515</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">607</td>
+                    <td class="coverage">183<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (!setequal(input$selection, private$get_selected())) {</pre>
+                      <pre class="language-r">      logger::log_trace("{ class(self)[1] } pushing into state_list, dataname: { private$dataname }")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">516</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">608</td>
+                    <td class="coverage">183<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              logger::log_trace("ChoicesFilterState$server@1 state changed, id: { private$get_id() }")</pre>
+                      <pre class="language-r">      checkmate::assert_string(state_id)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">517</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">609</td>
+                    <td class="coverage">183<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              if (private$is_checkboxgroup()) {</pre>
+                      <pre class="language-r">      checkmate::assert_multi_class(x, c("FilterState", "FilterStateExpr"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">518</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">610</td>
+                    <td class="coverage">183<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                if (private$is_multiple()) {</pre>
+                      <pre class="language-r">      state &lt;- stats::setNames(list(x), state_id)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">519</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">611</td>
+                    <td class="coverage">183<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  updateCheckboxGroupInput(</pre>
+                      <pre class="language-r">      new_state_list &lt;- c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">520</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">612</td>
+                    <td class="coverage">183<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    inputId = "selection",</pre>
+                      <pre class="language-r">        isolate(private$state_list()),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">521</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">613</td>
+                    <td class="coverage">183<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    selected = private$get_selected()</pre>
+                      <pre class="language-r">        state</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">522</td>
+                    <td class="num">614</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  )</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">523</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">615</td>
+                    <td class="coverage">183<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                } else {</pre>
+                      <pre class="language-r">      isolate(private$state_list(new_state_list))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">524</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">616</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  updateRadioButtons(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">525</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">617</td>
+                    <td class="coverage">183<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    inputId = "selection",</pre>
+                      <pre class="language-r">      logger::log_trace("{ class(self)[1] } pushed into queue, dataname: { private$dataname }")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">526</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">618</td>
+                    <td class="coverage">183<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    selected = private$get_selected()</pre>
+                      <pre class="language-r">      invisible(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">527</td>
+                    <td class="num">619</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  )</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">528</td>
+                    <td class="num">620</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">529</td>
+                    <td class="num">621</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">530</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                teal.widgets::updateOptionalSelectInput(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">531</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                  session, "selection",</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">532</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                  selected = private$get_selected()</pre>
+                      <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">533</td>
+                    <td class="num">622</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                )</pre>
+                      <pre class="language-r">    # Removes a single filter state with all associated shiny elements:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">534</td>
+                    <td class="num">623</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              }</pre>
+                      <pre class="language-r">    # * specified `FilterState` from `private$state_list`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">535</td>
+                    <td class="num">624</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">    # * UI card created for this filter</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">536</td>
+                    <td class="num">625</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          })</pre>
+                      <pre class="language-r">    # * observers tracking the selection and remove button</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">537</td>
+                    <td class="num">626</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">538</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">627</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_trace("ChoicesFilterState$server_inputs initialized, id: { private$get_id() }")</pre>
+                      <pre class="language-r">    # @param state_id (`character`)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">539</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">628</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          NULL</pre>
+                      <pre class="language-r">    #   identifiers of elements in a filter state (which is a `reactiveVal` containing a list).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">540</td>
+                    <td class="num">629</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">    # @param force (`logical(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">541</td>
+                    <td class="num">630</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    #   flag specifying whether to include anchored filter states.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">542</td>
+                    <td class="num">631</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">    #</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">543</td>
+                    <td class="num">632</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server_inputs_fixed = function(id) {</pre>
+                      <pre class="language-r">    # @return `NULL`, invisibly.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">544</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">633</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="missed">
-                    <td class="num">545</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">634</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = id,</pre>
+                      <pre class="language-r">    state_list_remove = function(state_id, force = FALSE) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">546</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">635</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        function(input, output, session) {</pre>
+                      <pre class="language-r">      checkmate::assert_character(state_id)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">547</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">636</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_trace("ChoicesFilterState$server_inputs_fixed initializing, id: { private$get_id() }")</pre>
+                      <pre class="language-r">      logger::log_trace("{ class(self)[1] } removing a filter, state_id: { toString(state_id) }")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">548</td>
+                    <td class="num">637</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">549</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          output$selection &lt;- renderUI({</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">550</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">638</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            countsnow &lt;- if (!is.null(private$x_reactive())) {</pre>
+                      <pre class="language-r">      isolate({</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">551</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">639</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              unname(table(factor(private$x_reactive(), levels = private$get_choices())))</pre>
+                      <pre class="language-r">        current_state_ids &lt;- vapply(private$state_list(), function(x) x$get_state()$id, character(1))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">552</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">640</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">        to_remove &lt;- state_id %in% current_state_ids</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">553</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">641</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            countsmax &lt;- private$choices_counts</pre>
+                      <pre class="language-r">        if (any(to_remove)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">554</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">642</td>
+                    <td class="coverage">31<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          new_state_list &lt;- Filter(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">555</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">643</td>
+                    <td class="coverage">31<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ind &lt;- private$get_choices() %in% isolate(private$get_selected())</pre>
+                      <pre class="language-r">            function(state) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">556</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">644</td>
+                    <td class="coverage">68<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            countBars(</pre>
+                      <pre class="language-r">              if (state$get_state()$id %in% state_id) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">557</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">645</td>
+                    <td class="coverage">54<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              inputId = session$ns("labels"),</pre>
+                      <pre class="language-r">                if (state$get_state()$anchored &amp;&amp; !force) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">558</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">646</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              choices = isolate(private$get_selected()),</pre>
+                      <pre class="language-r">                  return(TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">559</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">647</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              countsnow = countsnow[ind],</pre>
+                      <pre class="language-r">                } else {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">560</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">648</td>
+                    <td class="coverage">47<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              countsmax = countsmax[ind]</pre>
+                      <pre class="language-r">                  state$destroy_observers()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">561</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">649</td>
+                    <td class="coverage">47<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">                  FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">562</td>
+                    <td class="num">650</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          })</pre>
+                      <pre class="language-r">                }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">563</td>
+                    <td class="num">651</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">564</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_trace("ChoicesFilterState$server_inputs_fixed initialized, id: { private$get_id() }")</pre>
+                      <pre class="language-r">              } else {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">565</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">652</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          NULL</pre>
+                      <pre class="language-r">                TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">566</td>
+                    <td class="num">653</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">              }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">567</td>
+                    <td class="num">654</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">            },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">568</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">655</td>
+                    <td class="coverage">31<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">            private$state_list()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">569</td>
+                    <td class="num">656</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">570</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">657</td>
+                    <td class="coverage">31<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @description</pre>
+                      <pre class="language-r">          private$state_list(new_state_list)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">571</td>
+                    <td class="num">658</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # UI module to display filter summary</pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">572</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">659</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #  renders text describing number of selected levels</pre>
+                      <pre class="language-r">          warning(sprintf("\"%s\" not found in state list", state_id))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">573</td>
+                    <td class="num">660</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #  and if NA are included also</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">574</td>
+                    <td class="num">661</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    content_summary = function(id) {</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">575</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">662</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      selected &lt;- private$get_selected()</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">576</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">663</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      selected_text &lt;-</pre>
+                      <pre class="language-r">      invisible(NULL)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">577</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">664</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (length(selected) == 0L) {</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">578</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">665</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "no selection"</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">579</td>
+                    <td class="num">666</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">580</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">667</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (sum(nchar(selected)) &lt;= 40L) {</pre>
+                      <pre class="language-r">    # Remove all `FilterState` objects from this `FilterStates` object.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">581</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">668</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            paste(selected, collapse = ", ")</pre>
+                      <pre class="language-r">    # @param force (`logical(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">582</td>
+                    <td class="num">669</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          } else {</pre>
+                      <pre class="language-r">    #   flag specifying whether to include anchored filter states.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">583</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">670</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            paste(length(selected), "levels selected")</pre>
+                      <pre class="language-r">    # @return `NULL`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">584</td>
+                    <td class="num">671</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">    #</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">585</td>
+                    <td class="num">672</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">    state_list_empty = function(force = FALSE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">586</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">673</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tagList(</pre>
+                      <pre class="language-r">      isolate({</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">587</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">674</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$span(</pre>
+                      <pre class="language-r">        logger::log_trace(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">588</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">675</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          class = "filter-card-summary-value",</pre>
+                      <pre class="language-r">          "{ class(self)[1] }$state_list_empty removing all non-anchored filters for dataname: { private$dataname }"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">589</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">676</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          selected_text</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">590</td>
+                    <td class="num">677</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">591</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">678</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$span(</pre>
+                      <pre class="language-r">        state_list &lt;- private$state_list()</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">592</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">679</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          class = "filter-card-summary-controls",</pre>
+                      <pre class="language-r">        if (length(state_list)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">593</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">680</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (private$na_count &gt; 0) {</pre>
+                      <pre class="language-r">          state_ids &lt;- vapply(state_list, function(x) x$get_state()$id, character(1))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">594</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">681</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            tags$span("NA", if (isTRUE(private$get_keep_na())) icon("check") else icon("xmark"))</pre>
+                      <pre class="language-r">          private$state_list_remove(state_ids, force)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">595</td>
+                    <td class="num">682</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">596</td>
+                    <td class="num">683</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">597</td>
+                    <td class="num">684</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">598</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">685</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">      invisible(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">599</td>
+                    <td class="num">686</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">600</td>
+                    <td class="num">687</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/FilteredDatasetMAE.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">688</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># MAEFilteredDataset ------</pre>
+                      <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">689</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # Set filter state</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">690</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name MAEFilteredDataset</pre>
+                      <pre class="language-r">    #</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">691</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @docType class</pre>
+                      <pre class="language-r">    # Utility method for `set_filter_state` to create or modify `FilterState` using a single</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">692</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @title `MAEFilteredDataset` `R6` class</pre>
+                      <pre class="language-r">    #  `teal_slice`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">693</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    # @param state (`teal_slices`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">694</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examplesIf requireNamespace("MultiAssayExperiment")</pre>
+                      <pre class="language-r">    # @param data (`data.frame`, `matrix` or `DataFrame`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">695</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # use non-exported function from teal.slice</pre>
+                      <pre class="language-r">    # @param data_reactive (`function`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">696</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' MAEFilteredDataset &lt;- getFromNamespace("MAEFilteredDataset", "teal.slice")</pre>
+                      <pre class="language-r">    #  function having `sid` as argument.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">697</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">698</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data(miniACC, package = "MultiAssayExperiment")</pre>
+                      <pre class="language-r">    # @return `NULL`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">699</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' dataset &lt;- MAEFilteredDataset$new(miniACC, "MAE")</pre>
+                      <pre class="language-r">    #</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">700</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' fs &lt;- teal_slices(</pre>
+                      <pre class="language-r">    set_filter_state_impl = function(state,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   teal_slice(</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">701</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     dataname = "MAE", varname = "years_to_birth", selected = c(30, 50), keep_na = TRUE</pre>
+                      <pre class="language-r">                                     data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">702</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">                                     data_reactive) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">703</td>
+                    <td class="coverage">211<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   teal_slice(</pre>
+                      <pre class="language-r">      checkmate::assert_class(state, "teal_slices")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">704</td>
+                    <td class="coverage">211<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     dataname = "MAE", varname = "vital_status", selected = "1", keep_na = FALSE</pre>
+                      <pre class="language-r">      checkmate::assert_multi_class(data, c("data.frame", "matrix", "DataFrame", "HermesData"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">705</td>
+                    <td class="coverage">211<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">      checkmate::assert_function(data_reactive, args = "sid")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">706</td>
+                    <td class="coverage">211<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   teal_slice(</pre>
+                      <pre class="language-r">      if (length(state) == 0L) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">707</td>
+                    <td class="coverage">101<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     dataname = "MAE", varname = "gender", selected = "female", keep_na = TRUE</pre>
+                      <pre class="language-r">        return(invisible(NULL))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">708</td>
                     <td class="coverage"></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">709</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   teal_slice(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">710</td>
+                    <td class="coverage">110<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     dataname = "MAE", varname = "ARRAY_TYPE", selected = "", keep_na = TRUE</pre>
+                      <pre class="language-r">      slices_hashed &lt;- vapply(state, `[[`, character(1L), "id")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">711</td>
+                    <td class="coverage">110<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">      if (any(duplicated(slices_hashed))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">712</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">27</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">713</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' dataset$set_filter_state(state = fs)</pre>
+                      <pre class="language-r">          "Some of the teal_slice objects refer to the same filter. ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">714</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          "Please specify different 'id' when calling teal_slice"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">715</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(shiny)</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">716</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' isolate(dataset$get_filter_state())</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">717</td>
                     <td class="coverage"></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>
+                  <tr class="covered">
+                    <td class="num">718</td>
+                    <td class="coverage">110<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">      state_list &lt;- isolate(private$state_list_get())</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">33</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">719</td>
+                    <td class="coverage">110<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      lapply(state, function(slice) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">720</td>
+                    <td class="coverage">191<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">MAEFilteredDataset &lt;- R6::R6Class( # nolint</pre>
+                      <pre class="language-r">        state_id &lt;- slice$id</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">721</td>
+                    <td class="coverage">191<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  classname = "MAEFilteredDataset",</pre>
+                      <pre class="language-r">        if (state_id %in% names(state_list)) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">722</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  inherit = FilteredDataset,</pre>
+                      <pre class="language-r">          # Modify existing filter states.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">723</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          state_list[[state_id]]$set_state(slice)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">724</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # public methods ----</pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">39</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">725</td>
+                    <td class="coverage">183<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  public = list(</pre>
+                      <pre class="language-r">          if (inherits(slice, "teal_slice_expr")) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">726</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">            # create a new FilterStateExpr</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">41</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">727</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Initialize `MAEFilteredDataset` object.</pre>
+                      <pre class="language-r">            fstate &lt;- init_filter_state_expr(slice)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">728</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">43</td>
+                    <td class="num">729</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param dataset (`MulitiAssayExperiment`)</pre>
+                      <pre class="language-r">            # create a new FilterState</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">730</td>
+                    <td class="coverage">177<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'  single `MulitiAssayExperiment` for which filters are rendered.</pre>
+                      <pre class="language-r">            fstate &lt;- init_filter_state(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">45</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">731</td>
+                    <td class="coverage">177<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param dataname (`character(1)`)</pre>
+                      <pre class="language-r">              x = data[, slice$varname, drop = TRUE],</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">732</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'  syntactically valid name given to the dataset.</pre>
+                      <pre class="language-r">              # data_reactive is a function which eventually calls get_call(sid).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">733</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param keys (`character`) optional</pre>
+                      <pre class="language-r">              # This chain of calls returns column from the data filtered by everything</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">734</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   vector of primary key column names.</pre>
+                      <pre class="language-r">              # but filter identified by the sid argument. FilterState then get x_reactive</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">735</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param label (`character(1)`)</pre>
+                      <pre class="language-r">              # and this no longer needs to be a function to pass sid. reactive in the FilterState</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">736</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   label to describe the dataset.</pre>
+                      <pre class="language-r">              # is also beneficial as it can be cached and retriger filter counts only if</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">737</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">              # returned vector is different.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">52</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">738</td>
+                    <td class="coverage">177<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return Object of class `MAEFilteredDataset`, invisibly.</pre>
+                      <pre class="language-r">              x_reactive = if (private$count_type == "none") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">739</td>
+                    <td class="coverage">171<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">                reactive(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">740</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    initialize = function(dataset, dataname, keys = character(0), label = character(0)) {</pre>
+                      <pre class="language-r">              } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">55</td>
-                    <td class="coverage">23<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      if (!requireNamespace("MultiAssayExperiment", quietly = TRUE)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">56</td>
-                    <td class="coverage">!</td>
+                    <td class="num">741</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        stop("Cannot load MultiAssayExperiment - please install the package or restart your session.")</pre>
+                      <pre class="language-r">                reactive(data_reactive(state_id)[, slice$varname, drop = TRUE])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">742</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">23<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_class(dataset, "MultiAssayExperiment")</pre>
+                      <pre class="language-r">              },</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="num">743</td>
+                    <td class="coverage">177<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      super$initialize(dataset, dataname, keys, label)</pre>
+                      <pre class="language-r">              slice = slice,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">60</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="num">744</td>
+                    <td class="coverage">177<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      experiment_names &lt;- names(dataset)</pre>
+                      <pre class="language-r">              extract_type = private$extract_type</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">745</td>
                     <td class="coverage"></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">746</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # subsetting by subjects means subsetting by colData(MAE)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">63</td>
-                    <td class="coverage">21<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      private$add_filter_states(</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">64</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="num">747</td>
+                    <td class="coverage">183<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        filter_states = init_filter_states(</pre>
+                      <pre class="language-r">          private$state_list_push(x = fstate, state_id = state_id)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">65</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">748</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          data = dataset,</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">66</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">749</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          data_reactive = private$data_filtered_fun,</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">67</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">750</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          dataname = dataname,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">68</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="num">751</td>
+                    <td class="coverage">110<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          datalabel = "subjects",</pre>
+                      <pre class="language-r">      invisible(NULL)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">69</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">752</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          keys = self$get_keys()</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">753</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">21<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">754</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = "subjects"</pre>
+                      <pre class="language-r">)</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/filter_panel_api.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' Managing `FilteredData` states</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # elements of the list (experiments) are unknown</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # dispatch needed because we can't hardcode methods otherwise:</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      #  if (matrix) else if (SummarizedExperiment) else if ...</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">76</td>
-                    <td class="coverage">21<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">      lapply(</pre>
+                      <pre class="language-r">#' Set, get and remove filter states of `FilteredData` object.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">77</td>
-                    <td class="coverage">21<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">        experiment_names,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">78</td>
-                    <td class="coverage">21<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">        function(experiment_name) {</pre>
+                      <pre class="language-r">#' @name filter_state_api</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">79</td>
-                    <td class="coverage">105<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">          data_reactive &lt;- function(sid = "") private$data_filtered_fun(sid)[[experiment_name]]</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">80</td>
-                    <td class="coverage">105<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">          private$add_filter_states(</pre>
+                      <pre class="language-r">#' @param datasets (`FilteredData`)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">81</td>
-                    <td class="coverage">105<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">            filter_states = init_filter_states(</pre>
+                      <pre class="language-r">#'   object to store filter state and filtered datasets, shared across modules</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">82</td>
-                    <td class="coverage">105<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">              data = dataset[[experiment_name]],</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">83</td>
-                    <td class="coverage">105<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">              data_reactive = data_reactive,</pre>
+                      <pre class="language-r">#'   see [`FilteredData`] for details</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">84</td>
-                    <td class="coverage">105<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">              dataname = dataname,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">85</td>
-                    <td class="coverage">105<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">              datalabel = experiment_name</pre>
+                      <pre class="language-r">#' @param filter (`teal_slices`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ),</pre>
+                      <pre class="language-r">#'   specify filters in place on app start-up</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">87</td>
-                    <td class="coverage">105<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">            id = experiment_name</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</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 force (`logical(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">#'   flag specifying whether to include anchored filter states.</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">      )</pre>
+                      <pre class="language-r">#'</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">    },</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' - `set_*`, `remove_*` and `clear_filter_state` return `NULL` invisibly</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">    #' @description</pre>
+                      <pre class="language-r">#' - `get_filter_state` returns a named `teal_slices` object</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">    #' Set filter state.</pre>
+                      <pre class="language-r">#'    containing a `teal_slice` for every existing `FilterState`</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">    #'</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param state (`teal_slices`)</pre>
+                      <pre class="language-r">#' @seealso [`teal_slice`]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `NULL`, invisibly.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">27</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">99</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set_filter_state = function(state) {</pre>
+                      <pre class="language-r">#' datasets &lt;- init_filtered_data(list(iris = iris, mtcars = mtcars))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">100</td>
-                    <td class="coverage">15<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">      isolate({</pre>
+                      <pre class="language-r">#' fs &lt;- teal_slices(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">101</td>
-                    <td class="coverage">15<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">        logger::log_trace("{ class(self)[1] }$set_filter_state initializing, dataname: { private$dataname }")</pre>
+                      <pre class="language-r">#'   teal_slice(dataname = "iris", varname = "Species", selected = c("setosa", "versicolor")),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">102</td>
-                    <td class="coverage">15<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(state, "teal_slices")</pre>
+                      <pre class="language-r">#'   teal_slice(dataname = "iris", varname = "Sepal.Length", selected = c(5.1, 6.4)),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">103</td>
-                    <td class="coverage">14<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">        lapply(state, function(x) {</pre>
+                      <pre class="language-r">#'   teal_slice(dataname = "mtcars", varname = "gear", selected = c(4, 5)),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">104</td>
-                    <td class="coverage">52<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">          checkmate::assert_true(x$dataname == private$dataname, .var.name = "dataname matches private$dataname")</pre>
+                      <pre class="language-r">#'   teal_slice(dataname = "mtcars", varname = "carb", selected = c(4, 10))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">34</td>
                     <td class="coverage"></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">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">107</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # set state on subjects</pre>
+                      <pre class="language-r">#' # set initial filter state</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">108</td>
-                    <td class="coverage">14<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">        subject_state &lt;- Filter(function(x) is.null(x$experiment), state)</pre>
+                      <pre class="language-r">#' set_filter_state(datasets, filter = fs)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">109</td>
-                    <td class="coverage">14<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">        private$get_filter_states()[["subjects"]]$set_filter_state(subject_state)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' # get filter state</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # set state on experiments</pre>
+                      <pre class="language-r">#' get_filter_state(datasets)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # determine target experiments (defined in teal_slices)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">113</td>
-                    <td class="coverage">14<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">        experiments &lt;- unique(unlist(lapply(state, "[[", "experiment")))</pre>
+                      <pre class="language-r">#' # modify filter state</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">114</td>
-                    <td class="coverage">14<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">        available_experiments &lt;- setdiff(names(private$get_filter_states()), "subjects")</pre>
+                      <pre class="language-r">#' set_filter_state(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">115</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">44</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        excluded_filters &lt;- setdiff(experiments, available_experiments)</pre>
+                      <pre class="language-r">#'   datasets,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">116</td>
-                    <td class="coverage">14<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">        if (length(excluded_filters)) {</pre>
+                      <pre class="language-r">#'   teal_slices(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">117</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">          stop(sprintf(</pre>
+                      <pre class="language-r">#'     teal_slice(dataname = "iris", varname = "Species", selected = "setosa", keep_na = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">118</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">            "%s doesn't contain elements specified in 'experiment': %s\n'experiment' should be a subset of: %s",</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">48</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            private$dataname,</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">120</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">            toString(excluded_filters),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">121</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">            toString(available_experiments)</pre>
+                      <pre class="language-r">#' # remove specific filters</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">          ))</pre>
+                      <pre class="language-r">#' remove_filter_state(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">52</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">124</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   teal_slices(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # set states on state_lists with corresponding experiments</pre>
+                      <pre class="language-r">#'     teal_slice(dataname = "iris", varname = "Species"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">126</td>
-                    <td class="coverage">14<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">        lapply(available_experiments, function(experiment) {</pre>
+                      <pre class="language-r">#'     teal_slice(dataname = "mtcars", varname = "gear"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">127</td>
-                    <td class="coverage">70<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">          slices &lt;- Filter(function(x) identical(x$experiment, experiment), state)</pre>
+                      <pre class="language-r">#'     teal_slice(dataname = "mtcars", varname = "carb")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">128</td>
-                    <td class="coverage">70<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">          private$get_filter_states()[[experiment]]$set_filter_state(slices)</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</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">130</td>
+                    <td class="num">59</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">131</td>
-                    <td class="coverage">14<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">        logger::log_trace("{ class(self)[1] }$set_filter_state initialized, dataname: { private$dataname }")</pre>
+                      <pre class="language-r">#' # remove all states</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">#' clear_filter_states(datasets)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">133</td>
-                    <td class="coverage">14<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">        invisible(NULL)</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">      })</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#' \donttest{</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">#' if (requireNamespace("MultiAssayExperiment", quietly = TRUE)) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</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">#'   # Requires MultiAssayExperiment from Bioconductor</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Remove one or more `FilterState` of a `MAEFilteredDataset`.</pre>
+                      <pre class="language-r">#'   data(miniACC, package = "MultiAssayExperiment")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">68</td>
                     <td class="coverage"></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">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param state (`teal_slices`)</pre>
+                      <pre class="language-r">#'   datasets &lt;- init_filtered_data(list(mae = miniACC))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   specifying `FilterState` objects to remove;</pre>
+                      <pre class="language-r">#'   fs &lt;- teal_slices(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   `teal_slice`s may contain only `dataname` and `varname`, other elements are ignored.</pre>
+                      <pre class="language-r">#'     teal_slice(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#'       dataname = "mae", varname = "years_to_birth", selected = c(30, 50),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `NULL`, invisibly.</pre>
+                      <pre class="language-r">#'       keep_na = TRUE, keep_inf = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</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">146</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    remove_filter_state = function(state) {</pre>
+                      <pre class="language-r">#'     teal_slice(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">147</td>
-                    <td class="coverage">1<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">      checkmate::assert_class(state, "teal_slices")</pre>
+                      <pre class="language-r">#'       dataname = "mae", varname = "vital_status", selected = "1",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'       keep_na = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">149</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">      isolate({</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">79</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        logger::log_trace("{ class(self)[1] }$remove_filter_state removing filter(s), dataname: { private$dataname }")</pre>
+                      <pre class="language-r">#'     teal_slice(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # remove state on subjects</pre>
+                      <pre class="language-r">#'       dataname = "mae", varname = "gender", selected = "female",</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">81</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        subject_state &lt;- Filter(function(x) is.null(x$experiment), state)</pre>
+                      <pre class="language-r">#'       keep_na = TRUE</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">82</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$get_filter_states()[["subjects"]]$remove_filter_state(subject_state)</pre>
+                      <pre class="language-r">#'     ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     teal_slice(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # remove state on experiments</pre>
+                      <pre class="language-r">#'       dataname = "mae", varname = "ARRAY_TYPE", selected = "",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # determine target experiments (defined in teal_slices)</pre>
+                      <pre class="language-r">#'       keep_na = TRUE, experiment = "RPPAArray", arg = "subset"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">157</td>
-                    <td class="coverage">1<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">        experiments &lt;- unique(unlist(lapply(state, "[[", "experiment")))</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">158</td>
-                    <td class="coverage">1<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">        available_experiments &lt;- setdiff(names(private$get_filter_states()), "subjects")</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">159</td>
-                    <td class="coverage">1<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">        excluded_filters &lt;- setdiff(experiments, available_experiments)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">160</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">89</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (length(excluded_filters)) {</pre>
+                      <pre class="language-r">#'   # set initial filter state</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">161</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">          stop(sprintf(</pre>
+                      <pre class="language-r">#'   set_filter_state(datasets, filter = fs)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">162</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">            "%s doesn't contain elements specified in 'experiment': %s\n'experiment' should be a subset of: %s",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">163</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">            private$dataname,</pre>
+                      <pre class="language-r">#'   # get filter state</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">164</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">93</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            toString(excluded_filters),</pre>
+                      <pre class="language-r">#'   get_filter_state(datasets)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">165</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">            toString(available_experiments)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ))</pre>
+                      <pre class="language-r">#'   # modify filter state</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">#'   set_filter_state(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # remove states on state_lists with corresponding experiments</pre>
+                      <pre class="language-r">#'     datasets,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">98</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        lapply(experiments, function(experiment) {</pre>
+                      <pre class="language-r">#'     teal_slices(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">170</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">          slices &lt;- Filter(function(x) identical(x$experiment, experiment), state)</pre>
+                      <pre class="language-r">#'       teal_slice(dataname = "mae", varname = "years_to_birth", selected = c(40, 60))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">171</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">          private$get_filter_states()[[experiment]]$remove_filter_state(slices)</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</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="never">
-                    <td class="num">173</td>
+                    <td class="num">102</td>
                     <td class="coverage"></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">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   # remove specific filters</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">175</td>
-                    <td class="coverage">1<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">        logger::log_trace("{ class(self)[1] }$remove_filter_state removed filter(s), dataname: { private$dataname }")</pre>
+                      <pre class="language-r">#'   remove_filter_state(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</td>
+                    <td class="num">105</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">177</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     teal_slices(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">178</td>
-                    <td class="coverage">1<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">      invisible(NULL)</pre>
+                      <pre class="language-r">#'       teal_slice(dataname = "mae", varname = "years_to_birth"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#'       teal_slice(dataname = "mae", varname = "vital_status")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</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">181</td>
+                    <td class="num">110</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="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' UI module to add filter variable for this dataset.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param id (`character(1)`)</pre>
+                      <pre class="language-r">#'   # remove all states</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
+                      <pre class="language-r">#'   clear_filter_states(datasets)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</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">186</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `shiny.tag`</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">116</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">188</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_add = function(id) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">189</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="missed">
-                    <td class="num">190</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">      data &lt;- self$get_dataset()</pre>
+                      <pre class="language-r">#' @rdname filter_state_api</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">191</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">      experiment_names &lt;- names(data)</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">192</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">set_filter_state &lt;- function(datasets, filter) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">193</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">121</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tags$div(</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(datasets, c("FilteredData", "FilterPanelAPI"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">194</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">122</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$label("Add", tags$code(self$get_dataname()), "filter"),</pre>
+                      <pre class="language-r">  checkmate::assert_class(filter, "teal_slices")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">195</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">123</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$br(),</pre>
+                      <pre class="language-r">  datasets$set_filter_state(filter)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">196</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">124</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        HTML("&amp;#9658;"),</pre>
+                      <pre class="language-r">  invisible(NULL)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">197</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">125</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$label("Add subjects filter"),</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">198</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">126</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$get_filter_states()[["subjects"]]$ui_add(id = ns("subjects")),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">199</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">127</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tagList(</pre>
+                      <pre class="language-r">#' @rdname filter_state_api</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">200</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">          lapply(</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">201</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">            experiment_names,</pre>
+                      <pre class="language-r">get_filter_state &lt;- function(datasets) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">202</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">130</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            function(experiment_name) {</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(datasets, c("FilteredData", "FilterPanelAPI"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">203</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">131</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              tagList(</pre>
+                      <pre class="language-r">  if (isRunning()) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">204</td>
+                    <td class="num">132</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                HTML("&amp;#9658;"),</pre>
+                      <pre class="language-r">    datasets$get_filter_state()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">205</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">                tags$label("Add", tags$code(experiment_name), "filter"),</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">206</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">134</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                private$get_filter_states()[[experiment_name]]$ui_add(id = ns(experiment_name))</pre>
+                      <pre class="language-r">    isolate(datasets$get_filter_state())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</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">208</td>
+                    <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">
-                    <td class="num">209</td>
+                    <td class="num">137</td>
                     <td class="coverage"></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">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' @rdname filter_state_api</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">211</td>
+                    <td class="num">139</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">212</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">remove_filter_state &lt;- function(datasets, filter) {</pre>
+                    </td>
+                  </tr>
+                  <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">  checkmate::assert_multi_class(datasets, c("FilteredData", "FilterPanelAPI"))</pre>
+                    </td>
+                  </tr>
+                  <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">  checkmate::assert_class(filter, "teal_slices")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">213</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
+                  <tr class="covered">
+                    <td class="num">144</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  datasets$remove_filter_state(filter)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">145</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  invisible(NULL)</pre>
+                    </td>
+                  </tr>
                   <tr class="never">
-                    <td class="num">214</td>
+                    <td class="num">146</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">215</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Creates row for filter overview in the form of \cr</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' `dataname -- observations (remaining/total) -- subjects (remaining/total)` - MAE</pre>
+                      <pre class="language-r">#' @rdname filter_state_api</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">217</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return A `data.frame`.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">218</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_filter_overview = function() {</pre>
+                      <pre class="language-r">clear_filter_states &lt;- function(datasets, force = FALSE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">219</td>
-                    <td class="coverage">2<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">      data &lt;- self$get_dataset()</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(datasets, c("FilteredData", "FilterPanelAPI"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">220</td>
-                    <td class="coverage">2<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">      data_filtered &lt;- self$get_dataset(TRUE)</pre>
+                      <pre class="language-r">  datasets$clear_filter_states(force = force)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">221</td>
-                    <td class="coverage">2<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">      experiment_names &lt;- names(data)</pre>
+                      <pre class="language-r">  invisible(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">222</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">223</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      mae_info &lt;- data.frame(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">224</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">155</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dataname = private$dataname,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">225</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">156</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        subjects = nrow(SummarizedExperiment::colData(data)),</pre>
+                      <pre class="language-r">#' Gets filter expression for multiple `datanames` taking into account its order.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">226</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">157</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        subjects_filtered = nrow(SummarizedExperiment::colData(data_filtered()))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">227</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">228</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="covered">
-                    <td class="num">229</td>
-                    <td class="coverage">2<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">      experiment_obs_info &lt;- do.call("rbind", lapply(</pre>
+                      <pre class="language-r">#' To be used in `Show R Code` button.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">230</td>
-                    <td class="coverage">2<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">        experiment_names,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">231</td>
-                    <td class="coverage">2<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">        function(experiment_name) {</pre>
+                      <pre class="language-r">#' @param datasets (`FilteredData`)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">232</td>
-                    <td class="coverage">10<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">          data.frame(</pre>
+                      <pre class="language-r">#' @param datanames (`character`) vector of dataset names</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">233</td>
-                    <td class="coverage">10<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">            dataname = sprintf("- %s", experiment_name),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">234</td>
-                    <td class="coverage">10<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">            obs = nrow(data[[experiment_name]]),</pre>
+                      <pre class="language-r">#' @return A character string containing all subset expressions.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">235</td>
-                    <td class="coverage">10<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">            obs_filtered = nrow(data_filtered()[[experiment_name]])</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">236</td>
+                    <td class="num">167</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">237</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">238</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ))</pre>
+                      <pre class="language-r">get_filter_expr &lt;- function(datasets, datanames = datasets$datanames()) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">239</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"></pre>
+                      <pre class="language-r">  checkmate::assert_character(datanames, min.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">240</td>
+                    <td class="num">171</td>
                     <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      get_experiment_keys &lt;- function(mae, experiment) {</pre>
+                      <pre class="language-r">  stopifnot(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">241</td>
-                    <td class="coverage">20<em>x</em></td>
+                    <td class="num">172</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sample_subset &lt;- subset(MultiAssayExperiment::sampleMap(mae), colname %in% colnames(experiment))</pre>
+                      <pre class="language-r">    is(datasets, "FilteredData"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">242</td>
-                    <td class="coverage">20<em>x</em></td>
+                    <td class="num">173</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        length(unique(sample_subset$primary))</pre>
+                      <pre class="language-r">    all(datanames %in% datasets$datanames())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">243</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">244</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">245</td>
+                    <td class="num">176</td>
                     <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      experiment_subjects_info &lt;- do.call("rbind", lapply(</pre>
+                      <pre class="language-r">  paste(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">246</td>
+                    <td class="num">177</td>
                     <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        experiment_names,</pre>
+                      <pre class="language-r">    unlist(lapply(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">247</td>
+                    <td class="num">178</td>
                     <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        function(experiment_name) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">248</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          data.frame(</pre>
+                      <pre class="language-r">      datanames,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">249</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">179</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            subjects = get_experiment_keys(data, data[[experiment_name]]),</pre>
+                      <pre class="language-r">      function(dataname) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">250</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            subjects_filtered = get_experiment_keys(data_filtered(), data_filtered()[[experiment_name]])</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">251</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="coverage"></td>
+                    <td class="num">180</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">        datasets$get_call(dataname)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">253</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">254</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">255</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      experiment_info &lt;- cbind(experiment_obs_info, experiment_subjects_info)</pre>
+                      <pre class="language-r">    )),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">256</td>
+                    <td class="num">183</td>
                     <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::bind_rows(mae_info, experiment_info)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">257</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    collapse = "\n"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">258</td>
+                    <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">259</td>
+                    <td class="num">185</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/teal_slices.R" class="hidden">
+            <div id="R/FilterState.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">#' Complete filter specification</pre>
+                      <pre class="language-r"># FilterState ------</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">#' Create `teal_slices` object to package multiple filters and additional settings.</pre>
+                      <pre class="language-r">#' @name FilterState</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Check out [`teal_slices-utilities`] functions for working with `teal_slices` object.</pre>
+                      <pre class="language-r">#' @docType class</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -32513,175 +32694,175 @@ <h2>teal.slice coverage - 65.89%</h2>
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `teal_slices()` collates multiple `teal_slice` objects into a `teal_slices` object,</pre>
+                      <pre class="language-r">#' @title `FilterState` abstract class</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' a complete filter specification. This is used by all classes above `FilterState`</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">#' as well as `filter_panel_api` wrapper functions.</pre>
+                      <pre class="language-r">#' @description Abstract class to encapsulate single filter state.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `teal_slices` has attributes that modify the behavior of the filter panel, which are resolved by different classes.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</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">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `include_varnames` and `exclude_varnames` determine which variables can have filters assigned.</pre>
+                      <pre class="language-r">#' This class is responsible for managing a single filter item within a `FilteredData` object</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The former enumerates allowed variables, the latter enumerates forbidden values.</pre>
+                      <pre class="language-r">#' and outputs a condition call (logical predicate) for subsetting one variable.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Since these could be mutually exclusive, it is impossible to set both allowed and forbidden</pre>
+                      <pre class="language-r">#' Filter states depend on the variable type:</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' variables for one data set in one `teal_slices`.</pre>
+                      <pre class="language-r">#' (`logical`, `integer`, `numeric`, `character`, `factor`, `Date`, `POSIXct`, `POSIXlt`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' and `FilterState` subclasses exist that correspond to those types.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ... any number of `teal_slice` objects.</pre>
+                      <pre class="language-r">#' - `logical`: `class = LogicalFilterState`</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 include_varnames,exclude_varnames (`named list`s of `character`) where list names</pre>
+                      <pre class="language-r">#' - `integer`: `class = RangeFilterState`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  match names of data sets and vector elements match variable names in respective data sets;</pre>
+                      <pre class="language-r">#' - `numeric`: `class = RangeFilterState`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  specify which variables are allowed to be filtered; see `Details`.</pre>
+                      <pre class="language-r">#' - `character`: `class = ChoicesFilterState`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param count_type `r lifecycle::badge("experimental")`</pre>
+                      <pre class="language-r">#' - `factor`: `class = ChoicesFilterState`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</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">#' - `Date`: `class = DateFilterState`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' [`teal.slice`'s GitHub repository](https://github.com/insightsengineering/teal.slice/)._</pre>
+                      <pre class="language-r">#' - `POSIXct`, `POSIXlt`: `class = DatetimeFilterState`</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">#' - all `NA` entries: `class: FilterState`, cannot be filtered</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  (`character(1)`) string specifying how observations are tallied by these filter states.</pre>
+                      <pre class="language-r">#' - default: `FilterState`, cannot be filtered</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  Possible options:</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">#'  - `"none"` (default) to have counts of single `FilterState` to show unfiltered number only.</pre>
+                      <pre class="language-r">#' Each variable's filter state is an `R6` object keeps the variable that is filtered,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  - `"all"` to have counts of single `FilterState` to show number of observation in filtered</pre>
+                      <pre class="language-r">#' a `teal_slice` object that describes the filter state, as well as a `shiny` module (UI and server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and unfiltered dataset. Note, that issues were reported when using this option with `MultiAssayExperiment`.</pre>
+                      <pre class="language-r">#' that allows the user to alter the filter state.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Please make sure that adding new filters doesn't fail on target platform before deploying for production.</pre>
+                      <pre class="language-r">#' Changes to the filter state that cause some observations to be omitted</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param allow_add (`logical(1)`) logical flag specifying whether the user will be able to add new filters</pre>
+                      <pre class="language-r">#' trigger the `get_call` method and every `R` function call up in the reactive chain.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -32695,539 +32876,539 @@ <h2>teal.slice coverage - 65.89%</h2>
                     <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' @section Modifying state:</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `teal_slices`, which is an unnamed list of `teal_slice` objects.</pre>
+                      <pre class="language-r">#' Modifying a `FilterState` object is possible in three scenarios:</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' - In an interactive session, by passing an appropriate `teal_slice` to the `set_state` method.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' - In a running application, by changing appropriate inputs.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' filter_1 &lt;- teal_slice(</pre>
+                      <pre class="language-r">#' - In a running application, by using [filter_state_api] which directly uses</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   dataname = "dataname1",</pre>
+                      <pre class="language-r">#' `set_state` method of the `FilterState` 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">#'   varname = "varname1",</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">#'   choices = letters,</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   selected = "b",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   keep_na = TRUE,</pre>
+                      <pre class="language-r">FilterState &lt;- R6::R6Class( # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   fixed = FALSE,</pre>
+                      <pre class="language-r">  "FilterState",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   extra1 = "extraone"</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  # public methods ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' filter_2 &lt;- teal_slice(</pre>
+                      <pre class="language-r">  public = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   dataname = "dataname1",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   varname = "varname2",</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   choices = 1:10,</pre>
+                      <pre class="language-r">    #' Initialize a `FilterState` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   keep_na = TRUE,</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">#'   selected = 2,</pre>
+                      <pre class="language-r">    #' @param x (`vector`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   fixed = TRUE,</pre>
+                      <pre class="language-r">    #'   variable to be filtered.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   anchored = FALSE,</pre>
+                      <pre class="language-r">    #' @param x_reactive (`reactive`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   extra2 = "extratwo"</pre>
+                      <pre class="language-r">    #'   returning vector of the same type as `x`. Is used to update</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">    #'   counts following the change in values of the filtered dataset.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' filter_3 &lt;- teal_slice(</pre>
+                      <pre class="language-r">    #'   If it is set to `reactive(NULL)` then counts based on filtered</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   dataname = "dataname2",</pre>
+                      <pre class="language-r">    #'   dataset are not shown.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   varname = "varname3",</pre>
+                      <pre class="language-r">    #' @param slice (`teal_slice`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   choices = 1:10 / 10,</pre>
+                      <pre class="language-r">    #'   specification of this filter state.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   keep_na = TRUE,</pre>
+                      <pre class="language-r">    #'   `teal_slice` is stored in the object and `set_state` directly manipulates values within `teal_slice`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   selected = 0.2,</pre>
+                      <pre class="language-r">    #'   `get_state` returns `teal_slice` object which can be reused in other places.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   fixed = TRUE,</pre>
+                      <pre class="language-r">    #'   Note that `teal_slice` is a `reactiveValues`, which means it has reference semantics, i.e.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   anchored = FALSE,</pre>
+                      <pre class="language-r">    #'   changes made to an object are automatically reflected in all places that refer to the same `teal_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">#'   extra1 = "extraone",</pre>
+                      <pre class="language-r">    #' @param extract_type (`character`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   extra2 = "extratwo"</pre>
+                      <pre class="language-r">    #'   specifying whether condition calls should be prefixed by `dataname`. Possible values:</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">    #' - `character(0)` (default) `varname` in the condition call will not be prefixed</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">    #' - `"list"` `varname` in the condition call will be returned as `&lt;dataname&gt;$&lt;varname&gt;`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' all_filters &lt;- teal_slices(</pre>
+                      <pre class="language-r">    #' - `"matrix"` `varname` in the condition call will be returned as `&lt;dataname&gt;[, &lt;varname&gt;]`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter_1,</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter_2,</pre>
+                      <pre class="language-r">    #' @return Object of class `FilterState`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter_3,</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   exclude_varnames = list(</pre>
+                      <pre class="language-r">    initialize = function(x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "dataname1" = "varname2"</pre>
+                      <pre class="language-r">                          x_reactive = reactive(NULL),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">                          slice,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">                          extract_type = character(0)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">75</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">369<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      checkmate::assert_class(x_reactive, "reactive")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">76</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">368<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' is.teal_slices(all_filters)</pre>
+                      <pre class="language-r">      checkmate::assert_class(slice, "teal_slice")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">77</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">366<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' all_filters[1:2]</pre>
+                      <pre class="language-r">      checkmate::assert_character(extract_type, max.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">78</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">366<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' c(all_filters[1], all_filters[2])</pre>
+                      <pre class="language-r">      if (length(extract_type) == 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">79</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">53<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' print(all_filters)</pre>
+                      <pre class="language-r">        checkmate::assert_choice(extract_type, choices = c("list", "matrix"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' print(all_filters, trim_lines = FALSE)</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">#'</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">#' @seealso</pre>
+                      <pre class="language-r">      # Set data properties.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">83</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">365<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - [`teal_slice`] for creating constituent elements of `teal_slices`</pre>
+                      <pre class="language-r">      private$x &lt;- x</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">84</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">365<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - [`teal::slices_store`] for robust utilities for saving and loading `teal_slices` in `JSON` format</pre>
+                      <pre class="language-r">      private$x_reactive &lt;- x_reactive</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - [`is.teal_slices`], [`as.teal_slices`], [`as.list.teal_slices`], [`[.teal_slices`], [`c.teal_slices`]</pre>
+                      <pre class="language-r">      # Set derived data properties.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">86</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">365<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' [`print.teal_slices`], [`format.teal_slices`]</pre>
+                      <pre class="language-r">      private$na_count &lt;- sum(is.na(x))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">87</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">365<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      private$filtered_na_count &lt;- reactive(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">88</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">365<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">        if (!is.null(private$x_reactive())) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">89</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          sum(is.na(private$x_reactive()))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">teal_slices &lt;- function(...,</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">91</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">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        include_varnames = NULL,</pre>
+                      <pre class="language-r">      # Set extract type.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">93</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">365<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        count_type = NULL,</pre>
+                      <pre class="language-r">      private$extract_type &lt;- extract_type</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">94</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="covered">
+                  <tr class="never">
                     <td class="num">95</td>
-                    <td class="coverage">764<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  slices &lt;- list(...)</pre>
+                      <pre class="language-r">      # Set state properties.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">96</td>
-                    <td class="coverage">764<em>x</em></td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(slices, types = "teal_slice", any.missing = FALSE)</pre>
+                      <pre class="language-r">      if (is.null(isolate(slice$keep_na)) &amp;&amp; anyNA(x)) slice$keep_na &lt;- TRUE</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">97</td>
-                    <td class="coverage">763<em>x</em></td>
+                    <td class="coverage">365<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  slices_id &lt;- isolate(vapply(slices, `[[`, character(1L), "id"))</pre>
+                      <pre class="language-r">      private$teal_slice &lt;- slice</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">98</td>
-                    <td class="coverage">763<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (any(duplicated(slices_id))) {</pre>
+                      <pre class="language-r">      # Obtain variable label.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">99</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">365<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop(</pre>
+                      <pre class="language-r">      varlabel &lt;- attr(x, "label", exact = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">100</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Some teal_slice objects have the same id:\n",</pre>
+                      <pre class="language-r">      # Display only when different from varname.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">101</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">365<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      toString(unique(slices_id[duplicated(slices_id)]))</pre>
+                      <pre class="language-r">      private$varlabel &lt;-</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">102</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">365<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">        if (is.null(varlabel) || identical(varlabel, private$get_varname())) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">103</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">364<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">          character(0)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">104</td>
-                    <td class="coverage">762<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(exclude_varnames, names = "named", types = "character", null.ok = TRUE, min.len = 1)</pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">105</td>
-                    <td class="coverage">761<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(include_varnames, names = "named", types = "character", null.ok = TRUE, min.len = 1)</pre>
+                      <pre class="language-r">          varlabel</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">106</td>
-                    <td class="coverage">760<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(count_type, len = 1, null.ok = TRUE)</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">107</td>
-                    <td class="coverage">758<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(count_type, choices = c("all", "none"), empty.ok = TRUE)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">108</td>
-                    <td class="coverage">757<em>x</em></td>
+                    <td class="coverage">365<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_logical(allow_add)</pre>
+                      <pre class="language-r">      private$state_history &lt;- reactiveVal(list())</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -33239,14583 +33420,14036 @@ <h2>teal.slice coverage - 65.89%</h2>
                   </tr>
                   <tr class="covered">
                     <td class="num">110</td>
-                    <td class="coverage">756<em>x</em></td>
+                    <td class="coverage">365<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  duplicated_datasets &lt;- intersect(names(include_varnames), names(exclude_varnames))</pre>
+                      <pre class="language-r">      logger::log_trace("Instantiated FilterState object id: { private$get_id() }")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">111</td>
-                    <td class="coverage">756<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(duplicated_datasets)) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">112</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">365<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop(</pre>
+                      <pre class="language-r">      invisible(self)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">113</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Some datasets are specified in both, include_varnames and exclude_varnames:\n",</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">114</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      toString(duplicated_datasets)</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">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    #' Returns a formatted string representing this `FilterState` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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="covered">
+                  <tr class="never">
                     <td class="num">118</td>
-                    <td class="coverage">755<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  structure(</pre>
+                      <pre class="language-r">    #' @param show_all (`logical(1)`) passed to `format.teal_slice`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">119</td>
-                    <td class="coverage">755<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    slices,</pre>
+                      <pre class="language-r">    #' @param trim_lines (`logical(1)`) passed to `format.teal_slice`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">120</td>
-                    <td class="coverage">755<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    exclude_varnames = exclude_varnames,</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">121</td>
-                    <td class="coverage">755<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    include_varnames = include_varnames,</pre>
+                      <pre class="language-r">    #' @return `character(1)` the formatted string</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">122</td>
-                    <td class="coverage">755<em>x</em></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">
+                  <tr class="never">
                     <td class="num">123</td>
-                    <td class="coverage">755<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    allow_add = allow_add,</pre>
+                      <pre class="language-r">    format = function(show_all = FALSE, trim_lines = TRUE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">124</td>
-                    <td class="coverage">755<em>x</em></td>
+                    <td class="coverage">68<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    class = c("teal_slices", class(slices))</pre>
+                      <pre class="language-r">      sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">125</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">68<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">        "%s:\n%s",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">126</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">68<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        class(self)[1],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">127</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">68<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        format(self$get_state(), show_all = show_all, trim_lines = trim_lines)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `teal_slices` utility functions</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper functions for working with [`teal_slices`] object.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x object to test for `teal_slices`, object to convert to `teal_slices` or a `teal_slices` object</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param i (`character` or `numeric` or `logical`) indicating which elements to extract</pre>
+                      <pre class="language-r">    #' Prints this `FilterState` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param recursive (`logical(1)`) flag specifying whether to also convert to list the elements of this `teal_slices`</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ... additional arguments passed to other functions.</pre>
+                      <pre class="language-r">    #' @param ... additional arguments</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name teal_slices-utilities</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inherit teal_slices examples</pre>
+                      <pre class="language-r">    print = function(...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">137</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">      cat(isolate(self$format(...)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname teal_slices-utilities</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">140</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">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' Sets mutable parameters of the filter state.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">is.teal_slices &lt;- function(x) { # nolint</pre>
+                      <pre class="language-r">    #' - `fixed` state is prevented from changing state</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">143</td>
-                    <td class="coverage">465<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  inherits(x, "teal_slices")</pre>
+                      <pre class="language-r">    #' - `anchored` state is prevented from removing state</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' @param state (`teal_slice`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname teal_slices-utilities</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    #' @return `self` invisibly</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">as.teal_slices &lt;- function(x) { # nolint</pre>
+                      <pre class="language-r">    set_state = function(state) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">150</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(x)</pre>
+                      <pre class="language-r">      checkmate::assert_class(state, "teal_slice")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">151</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">88<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>
+                      <pre class="language-r">      if (private$is_fixed()) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">152</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        warning("attempt to set state on fixed filter aborted id: ", private$get_id())</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">153</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  attrs &lt;- attributes(unclass(x))</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">154</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">87<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">        logger::log_trace("{ class(self)[1] }$set_state setting state of filter id: { private$get_id() }")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">155</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  do.call(teal_slices, c(ans, attrs))</pre>
+                      <pre class="language-r">        isolate({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">156</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">          if (!is.null(state$selected)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">157</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            private$set_selected(state$selected)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">158</td>
                     <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">159</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">75<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname teal_slices-utilities</pre>
+                      <pre class="language-r">          if (!is.null(state$keep_na)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">160</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">            private$set_keep_na(state$keep_na)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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">
+                  <tr class="covered">
                     <td class="num">162</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">75<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">as.list.teal_slices &lt;- function(x, recursive = FALSE, ...) { # nolint</pre>
+                      <pre class="language-r">          if (!is.null(state$keep_inf)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">163</td>
-                    <td class="coverage">1077<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ans &lt;- unclass(x)</pre>
+                      <pre class="language-r">            private$set_keep_inf(state$keep_inf)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">164</td>
-                    <td class="coverage">45<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (recursive) ans[] &lt;- lapply(ans, as.list)</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">165</td>
-                    <td class="coverage">1077<em>x</em></td>
+                    <td class="coverage">75<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ans</pre>
+                      <pre class="language-r">          current_state &lt;- sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">166</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">75<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">            "selected: %s; keep_na: %s; keep_inf: %s",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">167</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">75<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            toString(private$get_selected()),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">168</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">75<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            private$get_keep_na(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">169</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">75<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname teal_slices-utilities</pre>
+                      <pre class="language-r">            private$get_keep_inf()</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">170</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">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">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">`[.teal_slices` &lt;- function(x, i) {</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">173</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (missing(i)) i &lt;- seq_along(x)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">174</td>
-                    <td class="coverage">506<em>x</em></td>
+                    <td class="coverage">76<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(i) == 0L) {</pre>
+                      <pre class="language-r">      invisible(self)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">175</td>
-                    <td class="coverage">178<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(x[0])</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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="covered">
+                  <tr class="never">
                     <td class="num">177</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.logical(i) &amp;&amp; length(i) &gt; length(x)) stop("subscript out of bounds")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">178</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.numeric(i) &amp;&amp; max(i) &gt; length(x)) stop("subscript out of bounds")</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">179</td>
-                    <td class="coverage">326<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.character(i)) {</pre>
+                      <pre class="language-r">    #' Returns a complete description of the filter state.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">180</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!all(is.element(i, names(x)))) stop("subscript out of bounds")</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">181</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    i &lt;- which(is.element(i, names(x)))</pre>
+                      <pre class="language-r">    #' @return A `teal_slice` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    get_state = function() {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">184</td>
-                    <td class="coverage">325<em>x</em></td>
+                    <td class="coverage">747<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- NextMethod("[")</pre>
+                      <pre class="language-r">      private$teal_slice</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">185</td>
-                    <td class="coverage">325<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  attrs &lt;- attributes(x)</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">186</td>
-                    <td class="coverage">325<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  attrs$names &lt;- attrs$names[i]</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">187</td>
-                    <td class="coverage">325<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  attributes(y) &lt;- attrs</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">188</td>
-                    <td class="coverage">325<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y</pre>
+                      <pre class="language-r">    #' Returns reproducible condition call for current selection relevant</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    #' for selected variable type.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' Method is using internal reactive values which makes it reactive</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' and must be executed in reactive or isolated context.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname teal_slices-utilities</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    get_call = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">194</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      stop("this is a virtual method")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">c.teal_slices &lt;- function(...) {</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">196</td>
-                    <td class="coverage">252<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x &lt;- list(...)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">197</td>
-                    <td class="coverage">252<em>x</em></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">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' `shiny` module server.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">199</td>
-                    <td class="coverage">251<em>x</em></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">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">200</td>
-                    <td class="coverage">251<em>x</em></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">    #' @param id (`character(1)`)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">201</td>
-                    <td class="coverage">251<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  all_attributes &lt;- all_attributes[names(all_attributes) != "class"]</pre>
+                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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="covered">
+                  <tr class="never">
                     <td class="num">203</td>
-                    <td class="coverage">251<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  do.call(</pre>
+                      <pre class="language-r">    #' @return Reactive expression signaling that remove button has been clicked.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">204</td>
-                    <td class="coverage">251<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal_slices,</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">205</td>
-                    <td class="coverage">251<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    c(</pre>
+                      <pre class="language-r">    server = function(id) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">206</td>
-                    <td class="coverage">251<em>x</em></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      unique(unlist(x, recursive = FALSE)),</pre>
+                      <pre class="language-r">      moduleServer(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">207</td>
-                    <td class="coverage">251<em>x</em></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      all_attributes</pre>
+                      <pre class="language-r">        id = id,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">208</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">        function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">209</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">          logger::log_trace("FilterState$server initializing module for slice: { private$get_id() } ")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">210</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">          private$server_summary("summary")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">211</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          if (private$is_fixed()) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">212</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            private$server_inputs_fixed("inputs")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname teal_slices-utilities</pre>
+                      <pre class="language-r">          } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">214</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param show_all (`logical(1)`) whether to display non-null elements of constituent `teal_slice` objects</pre>
+                      <pre class="language-r">            private$server_inputs("inputs")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param trim_lines (`logical(1)`) whether to trim lines</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">216</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">
+                  <tr class="covered">
                     <td class="num">217</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          private$observers$state &lt;- observeEvent(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">218</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">format.teal_slices &lt;- function(x, show_all = FALSE, trim_lines = TRUE, ...) {</pre>
+                      <pre class="language-r">            eventExpr = list(private$get_selected(), private$get_keep_na(), private$get_keep_inf()),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">219</td>
-                    <td class="coverage">45<em>x</em></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(show_all)</pre>
+                      <pre class="language-r">            handlerExpr = {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">220</td>
-                    <td class="coverage">45<em>x</em></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(trim_lines)</pre>
+                      <pre class="language-r">              current_state &lt;- as.list(self$get_state())</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">221</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">              history &lt;- private$state_history()</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">222</td>
-                    <td class="coverage">45<em>x</em></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x &lt;- as.list(x, recursive = TRUE)</pre>
+                      <pre class="language-r">              history_update &lt;- c(history, list(current_state))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">223</td>
-                    <td class="coverage">45<em>x</em></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  attrs &lt;- attributes(x)</pre>
+                      <pre class="language-r">              private$state_history(history_update)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">224</td>
-                    <td class="coverage">45<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  attributes(x) &lt;- NULL</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">225</td>
-                    <td class="coverage">45<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  slices_list &lt;- list(slices = x, attributes = attrs)</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">226</td>
-                    <td class="coverage">45<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  slices_list &lt;- Filter(Negate(is.null), slices_list) # drop attributes if empty</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">227</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          private$observers$back &lt;- observeEvent(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">228</td>
-                    <td class="coverage">20<em>x</em></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!show_all) slices_list$slices &lt;- lapply(slices_list$slices, function(slice) Filter(Negate(is.null), slice))</pre>
+                      <pre class="language-r">            eventExpr = input$back,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">229</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            handlerExpr = {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">230</td>
-                    <td class="coverage">45<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  jsonify(slices_list, trim_lines)</pre>
+                      <pre class="language-r">              history &lt;- rev(private$state_history())</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">231</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">              slice &lt;- history[[2L]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">232</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">              history_update &lt;- rev(history[-(1:2)])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">233</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname teal_slices-utilities</pre>
+                      <pre class="language-r">              private$state_history(history_update)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">234</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">              self$set_state(as.teal_slice(slice))</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">print.teal_slices &lt;- function(x, ...) {</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">237</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  cat(format(x, ...), "\n")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">238</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">          private$observers$reset &lt;- observeEvent(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">239</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            eventExpr = input$reset,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">240</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            handlerExpr = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">241</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `setdiff` method for `teal_slices`</pre>
+                      <pre class="language-r">              slice &lt;- private$state_history()[[1L]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">242</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">              self$set_state(as.teal_slice(slice))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Compare two teal slices objects and return `teal_slices` containing slices present in `x` but not in `y`.</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x,y (`teal_slices`)</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">245</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">246</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">          # Buttons for rewind/reset are disabled upon change in history to prevent double-clicking.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">247</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          # Re-enabling occurs after 100 ms, after they are potentially hidden when no history is present.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">248</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">setdiff_teal_slices &lt;- function(x, y) {</pre>
+                      <pre class="language-r">          private$observers$state_history &lt;- observeEvent(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">249</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  Filter(</pre>
+                      <pre class="language-r">            eventExpr = private$state_history(),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">250</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    function(xx) {</pre>
+                      <pre class="language-r">            handlerExpr = {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">251</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      !any(vapply(y, function(yy) identical(yy, xx), logical(1)))</pre>
+                      <pre class="language-r">              shinyjs::disable(id = "back")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">252</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">              shinyjs::disable(id = "reset")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">253</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x</pre>
+                      <pre class="language-r">              shinyjs::delay(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">254</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">                ms = 100,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">255</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">                expr = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">256</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                  shinyjs::toggleElement(id = "back", condition = length(private$state_history()) &gt; 1L)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">257</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Recursively coalesce list elements.</pre>
+                      <pre class="language-r">                  shinyjs::enable(id = "back")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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="never">
                     <td class="num">259</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Returns first element of list that it not `NULL`, recursively.</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">260</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">              shinyjs::delay(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">261</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Given a list of atomic vectors, the first non-null element is returned.</pre>
+                      <pre class="language-r">                ms = 100,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">262</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Given a list of lists, for all `names` found in all elements of the list</pre>
+                      <pre class="language-r">                expr = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">263</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the first non-null element of a given name is returned.</pre>
+                      <pre class="language-r">                  shinyjs::toggleElement(id = "reset", condition = length(private$state_history()) &gt; 1L)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">264</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                  shinyjs::enable(id = "reset")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">265</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function is used internally in `c.teal_slices` to manage `teal_slices` attributes.</pre>
+                      <pre class="language-r">                }</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">
                     <td class="num">267</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`list`), either of atomic vectors or of named lists</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">268</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">269</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Either an atomic vector of length 1 or a (potentially nested) list.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">270</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          private$destroy_shiny &lt;- function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">271</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">            logger::log_trace("Destroying FilterState inputs and observers; id: { private$get_id() }")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">272</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            # remove values from the input list</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">273</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">coalesce_r &lt;- function(x) {</pre>
+                      <pre class="language-r">            lapply(session$ns(names(input)), .subset2(input, "impl")$.values$remove)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">274</td>
-                    <td class="coverage">1569<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(x)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">275</td>
-                    <td class="coverage">1568<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  xnn &lt;- Filter(Negate(is.null), x)</pre>
+                      <pre class="language-r">            # remove observers</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">276</td>
-                    <td class="coverage">1568<em>x</em></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (all(vapply(xnn, is.atomic, logical(1L)))) {</pre>
+                      <pre class="language-r">            lapply(private$observers, function(x) x$destroy())</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">277</td>
-                    <td class="coverage">1059<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(xnn[[1L]])</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">278</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">279</td>
-                    <td class="coverage">509<em>x</em></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lapply(x, checkmate::assert_list, names = "named", null.ok = TRUE, .var.name = "list element")</pre>
+                      <pre class="language-r">          reactive(input$remove)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">280</td>
-                    <td class="coverage">508<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  all_names &lt;- unique(unlist(lapply(x, names)))</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">281</td>
-                    <td class="coverage">508<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  sapply(all_names, function(nm) coalesce_r(lapply(x, `[[`, nm)), simplify = FALSE)</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">282</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/FilterStatesSE.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">283</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># SEFilterStates ------</pre>
+                      <pre class="language-r"></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>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @name SEFilterStates</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">284</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @docType class</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">285</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @title `FilterStates` subclass for `SummarizedExperiment`s</pre>
+                      <pre class="language-r">    #' `shiny` UI module.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">286</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description Handles filter states in a `SummaryExperiment`.</pre>
+                      <pre class="language-r">    #'  The UI for this class contains simple message stating that it is not supported.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">287</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">    #' @param id (`character(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">288</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #'  `shiny` module instance id.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">289</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">SEFilterStates &lt;- R6::R6Class( # nolint</pre>
+                      <pre class="language-r">    #' @param parent_id (`character(1)`) id of the `FilterStates` card container</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">290</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  classname = "SEFilterStates",</pre>
+                      <pre class="language-r">    ui = function(id, parent_id = "cards") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">291</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  inherit = FilterStates,</pre>
+                      <pre class="language-r">      ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">292</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="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  # public methods ----</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">293</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  public = list(</pre>
+                      <pre class="language-r">      # Filter card consists of header and body, arranged in a single column.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">294</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">      # Body is hidden and is toggled by clicking on header.</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">    #' Initialize `SEFilterStates` object.</pre>
+                      <pre class="language-r">      ## Header consists of title and summary, arranged in a column.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">296</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">      ### Title consists of conditional icon, varname, conditional varlabel, and controls, arranged in a row.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">297</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param data (`SummarizedExperiment`)</pre>
+                      <pre class="language-r">      ### Summary consists of value and controls, arranged in a row.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">298</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   the `R` object which `subset` function is applied on.</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">299</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param data_reactive (`function(sid)`)</pre>
+                      <pre class="language-r">      tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">300</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   should return a `SummarizedExperiment` object or `NULL`.</pre>
+                      <pre class="language-r">        id = id,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">301</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   This object is needed for the `FilterState` counts being updated on a change in filters.</pre>
+                      <pre class="language-r">        class = "panel filter-card",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">302</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   If function returns `NULL` then filtered counts are not shown.</pre>
+                      <pre class="language-r">        include_js_files("count-bar-labels.js"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">303</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   Function has to have `sid` argument being a character.</pre>
+                      <pre class="language-r">        tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">304</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param dataname (`character(1)`)</pre>
+                      <pre class="language-r">          class = "filter-card-header",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">305</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   name of the data used in the expression</pre>
+                      <pre class="language-r">          `data-toggle` = "collapse",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">306</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   specified to the function argument attached to this `FilterStates`.</pre>
+                      <pre class="language-r">          `data-bs-toggle` = "collapse",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">307</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param datalabel (`character(1)`) optional</pre>
+                      <pre class="language-r">          href = paste0("#", ns("body")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">308</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   text label. Should be the name of experiment.</pre>
+                      <pre class="language-r">          tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">309</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">            class = "filter-card-title",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">310</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    initialize = function(data,</pre>
+                      <pre class="language-r">            if (private$is_anchored() &amp;&amp; private$is_fixed()) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">311</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          data_reactive = function(sid = "") NULL,</pre>
+                      <pre class="language-r">              icon("anchor-lock", class = "filter-card-icon")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">33</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">312</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          dataname,</pre>
+                      <pre class="language-r">            } else if (private$is_anchored() &amp;&amp; !private$is_fixed()) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">313</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          datalabel = NULL) {</pre>
+                      <pre class="language-r">              icon("anchor", class = "filter-card-icon")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">35</td>
-                    <td class="coverage">92<em>x</em></td>
+                    <td class="num">314</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!requireNamespace("SummarizedExperiment", quietly = TRUE)) {</pre>
+                      <pre class="language-r">            } else if (!private$is_anchored() &amp;&amp; private$is_fixed()) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">36</td>
+                    <td class="num">315</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        stop("Cannot load SummarizedExperiment - please install the package or restart your session.")</pre>
+                      <pre class="language-r">              icon("lock", class = "filter-card-icon")</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">      }</pre>
+                      <pre class="language-r">            },</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">38</td>
-                    <td class="coverage">92<em>x</em></td>
+                    <td class="num">317</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_function(data_reactive, args = "sid")</pre>
+                      <pre class="language-r">            tags$div(class = "filter-card-varname", tags$strong(private$get_varname())),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">39</td>
-                    <td class="coverage">92<em>x</em></td>
+                    <td class="num">318</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_class(data, "SummarizedExperiment")</pre>
+                      <pre class="language-r">            tags$div(class = "filter-card-varlabel", private$get_varlabel()),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">40</td>
-                    <td class="coverage">91<em>x</em></td>
+                    <td class="num">319</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      super$initialize(data, data_reactive, dataname, datalabel)</pre>
+                      <pre class="language-r">            tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">41</td>
-                    <td class="coverage">91<em>x</em></td>
+                    <td class="num">320</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!is.null(datalabel)) {</pre>
+                      <pre class="language-r">              class = "filter-card-controls",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">42</td>
-                    <td class="coverage">84<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">321</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$dataname_prefixed &lt;- sprintf("%s[['%s']]", dataname, datalabel)</pre>
+                      <pre class="language-r">              # Suppress toggling body when clicking on this div.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">322</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">              # This is for bootstrap 3 and 4. Causes page to scroll to top, prevented by setting href on buttons.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">323</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">              onclick = "event.stopPropagation();event.preventDefault();",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">324</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">              # This is for bootstrap 5.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">46</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">325</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">              `data-bs-toggle` = "collapse",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">47</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">326</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Set filter state.</pre>
+                      <pre class="language-r">              `data-bs-target` = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">48</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">327</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">              if (isFALSE(private$is_fixed())) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">328</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param state (`teal_slices`)</pre>
+                      <pre class="language-r">                actionLink(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">329</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'    `teal_slice` objects should contain the field `arg %in% c("subset", "select")`</pre>
+                      <pre class="language-r">                  inputId = ns("back"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">51</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">330</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">                  label = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">52</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">331</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `NULL`, invisibly.</pre>
+                      <pre class="language-r">                  icon = icon("circle-arrow-left", lib = "font-awesome"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">332</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">                  title = "Rewind state",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">333</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                  class = "filter-card-back",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">334</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                  style = "display: none"</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">    set_filter_state = function(state) {</pre>
+                      <pre class="language-r">                )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">55</td>
-                    <td class="coverage">61<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">336</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      isolate({</pre>
+                      <pre class="language-r">              },</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">56</td>
-                    <td class="coverage">61<em>x</em></td>
+                    <td class="num">337</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        logger::log_trace("{ class(self)[1] }$set_filter_state initializing, dataname: { private$dataname }")</pre>
+                      <pre class="language-r">              if (isFALSE(private$is_fixed())) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">57</td>
-                    <td class="coverage">61<em>x</em></td>
+                    <td class="num">338</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        checkmate::assert_class(state, "teal_slices")</pre>
+                      <pre class="language-r">                actionLink(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">59<em>x</em></td>
+                    <td class="num">339</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        lapply(state, function(x) {</pre>
+                      <pre class="language-r">                  inputId = ns("reset"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="num">340</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          checkmate::assert_choice(x$arg, choices = c("subset", "select"), null.ok = TRUE, .var.name = "teal_slice$arg")</pre>
+                      <pre class="language-r">                  label = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">60</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">341</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        })</pre>
+                      <pre class="language-r">                  icon = icon("circle-arrow-up", lib = "font-awesome"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">61</td>
-                    <td class="coverage">59<em>x</em></td>
+                    <td class="num">342</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        count_type &lt;- attr(state, "count_type")</pre>
+                      <pre class="language-r">                  title = "Restore original state",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">62</td>
-                    <td class="coverage">59<em>x</em></td>
+                    <td class="num">343</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (length(count_type)) {</pre>
+                      <pre class="language-r">                  class = "filter-card-back",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">63</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">344</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          private$count_type &lt;- count_type</pre>
+                      <pre class="language-r">                  style = "display: none"</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">        }</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"></pre>
+                      <pre class="language-r">              },</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">66</td>
-                    <td class="coverage">59<em>x</em></td>
+                    <td class="num">347</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        subset_states &lt;- Filter(function(x) x$arg == "subset", state)</pre>
+                      <pre class="language-r">              if (isFALSE(private$is_anchored())) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">67</td>
-                    <td class="coverage">59<em>x</em></td>
+                    <td class="num">348</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$set_filter_state_impl(</pre>
+                      <pre class="language-r">                actionLink(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">68</td>
-                    <td class="coverage">59<em>x</em></td>
+                    <td class="num">349</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          state = subset_states,</pre>
+                      <pre class="language-r">                  inputId = ns("remove"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">69</td>
-                    <td class="coverage">59<em>x</em></td>
+                    <td class="num">350</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          data = SummarizedExperiment::rowData(private$data),</pre>
+                      <pre class="language-r">                  label = icon("circle-xmark", lib = "font-awesome"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">70</td>
-                    <td class="coverage">59<em>x</em></td>
+                    <td class="num">351</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          data_reactive = function(sid = "") {</pre>
+                      <pre class="language-r">                  title = "Remove filter",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">71</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">352</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            data &lt;- private$data_reactive()</pre>
+                      <pre class="language-r">                  class = "filter-card-remove"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">72</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">353</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (!is.null(data)) {</pre>
+                      <pre class="language-r">                )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">73</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">354</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              SummarizedExperiment::rowData(data)</pre>
+                      <pre class="language-r">              }</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">            }</pre>
+                      <pre class="language-r">            )</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">          ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">76</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">357</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">          tags$div(class = "filter-card-summary", private$ui_summary(ns("summary")))</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>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">78</td>
-                    <td class="coverage">59<em>x</em></td>
+                    <td class="num">359</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        select_states &lt;- Filter(function(x) x$arg == "select", state)</pre>
+                      <pre class="language-r">        tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">79</td>
-                    <td class="coverage">59<em>x</em></td>
+                    <td class="num">360</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$set_filter_state_impl(</pre>
+                      <pre class="language-r">          id = ns("body"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">80</td>
-                    <td class="coverage">59<em>x</em></td>
+                    <td class="num">361</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          state = select_states,</pre>
+                      <pre class="language-r">          class = "collapse out",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">81</td>
-                    <td class="coverage">59<em>x</em></td>
+                    <td class="num">362</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          data = SummarizedExperiment::colData(private$data),</pre>
+                      <pre class="language-r">          `data-parent` = paste0("#", parent_id),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">82</td>
-                    <td class="coverage">59<em>x</em></td>
+                    <td class="num">363</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          data_reactive = function(sid = "") {</pre>
+                      <pre class="language-r">          `data-bs-parent` = paste0("#", parent_id),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">83</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">364</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            data &lt;- private$data_reactive()</pre>
+                      <pre class="language-r">          tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">84</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">365</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (!is.null(data)) {</pre>
+                      <pre class="language-r">            class = "filter-card-body",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">366</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            if (private$is_fixed()) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">85</td>
+                    <td class="num">367</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              SummarizedExperiment::colData(data)</pre>
+                      <pre class="language-r">              private$ui_inputs_fixed(ns("inputs"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">368</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">87</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">369</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">              private$ui_inputs(ns("inputs"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">370</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">371</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">90</td>
-                    <td class="coverage">59<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        logger::log_trace("{ class(self)[1] }$set_filter_state initialized, dataname: { private$dataname }")</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">91</td>
-                    <td class="coverage">59<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">372</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">92</td>
+                    <td class="num">373</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">374</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">375</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">376</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">377</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' `shiny` UI module to add filter variable.</pre>
+                      <pre class="language-r">    #' Destroy observers stored in `private$observers`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">378</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">98</td>
+                    <td class="num">379</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
+                      <pre class="language-r">    #' @return `NULL`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">380</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `shiny.tag`</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">381</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_add = function(id) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">101</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      data &lt;- private$data</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">102</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_string(id)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">103</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      ns &lt;- NS(id)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">104</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      row_input &lt;- if (ncol(SummarizedExperiment::rowData(data)) == 0) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">105</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        tags$div("no sample variables available")</pre>
+                      <pre class="language-r">    destroy_observers = function() {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">106</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">382</td>
+                    <td class="coverage">47<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (nrow(SummarizedExperiment::rowData(data)) == 0) {</pre>
+                      <pre class="language-r">      if (!is.null(private$destroy_shiny)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">107</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">383</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$div("no samples available")</pre>
+                      <pre class="language-r">        private$destroy_shiny()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">384</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">109</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        teal.widgets::optionalSelectInput(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">110</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          ns("row_to_add"),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">111</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          choices = NULL,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">112</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          options = shinyWidgets::pickerOptions(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">113</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            liveSearch = TRUE,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">114</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            noneSelectedText = "Select gene variable"</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">385</td>
                     <td class="coverage"></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="num">386</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">  ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">387</td>
                     <td class="coverage"></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">388</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  # private members ----</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">119</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">389</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      col_input &lt;- if (ncol(SummarizedExperiment::colData(data)) == 0) {</pre>
+                      <pre class="language-r">  private = list(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">120</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">390</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$div("no sample variables available")</pre>
+                      <pre class="language-r">    # set by constructor</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">121</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">391</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (nrow(SummarizedExperiment::colData(data)) == 0) {</pre>
+                      <pre class="language-r">    x = NULL, # the filtered variable</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">122</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">392</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$div("no samples available")</pre>
+                      <pre class="language-r">    x_reactive = NULL, # reactive containing the filtered variable, used for updating counts and histograms</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">393</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">    teal_slice = NULL, # stores all transferable properties of this filter state</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">124</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">394</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        teal.widgets::optionalSelectInput(</pre>
+                      <pre class="language-r">    extract_type = character(0), # used by private$get_varname_prefixed</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">125</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">395</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ns("col_to_add"),</pre>
+                      <pre class="language-r">    na_count = integer(0),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">126</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">396</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          choices = NULL,</pre>
+                      <pre class="language-r">    filtered_na_count = NULL, # reactive containing the count of NA in the filtered dataset</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">127</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">397</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          options = shinyWidgets::pickerOptions(</pre>
+                      <pre class="language-r">    varlabel = character(0), # taken from variable labels in data; displayed in filter cards</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">128</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">398</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            liveSearch = TRUE,</pre>
+                      <pre class="language-r">    destroy_shiny = NULL, # function is set in server</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">129</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">399</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            noneSelectedText = "Select sample variable"</pre>
+                      <pre class="language-r">    # other</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">400</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">    is_choice_limited = FALSE, # flag whether number of possible choices was limited when specifying filter</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">401</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    observers = list(), # stores observers</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">402</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">    state_history = NULL, # reactiveVal holding a list storing states this FilterState has had since instantiation</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">403</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">134</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">404</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tags$div(</pre>
+                      <pre class="language-r">    # private methods ----</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">405</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        row_input,</pre>
+                      <pre class="language-r"></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">406</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        col_input</pre>
+                      <pre class="language-r">    # setters for state features ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">407</td>
                     <td class="coverage"></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">408</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">139</td>
+                    <td class="num">409</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # Set values that can be selected from.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">410</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">    set_choices = function(choices) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">141</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">411</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' `shiny` server module to add filter variable.</pre>
+                      <pre class="language-r">      stop("this is a virtual method")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">412</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">413</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Module controls available choices to select as a filter variable.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">414</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Selected filter variable is being removed from available choices.</pre>
+                      <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">415</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Removed filter variable gets back to available choices.</pre>
+                      <pre class="language-r">    # Set selection.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">416</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' This module unlike other `FilterStates` classes manages two</pre>
+                      <pre class="language-r">    #</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">417</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' sets of filter variables - one for `colData` and another for</pre>
+                      <pre class="language-r">    # @param value (`vector`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">418</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' `rowData`.</pre>
+                      <pre class="language-r">    #   value(s) that come from filter selection; values are set in the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">419</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">    #   module server after a selection is made in the app interface;</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">420</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param id (`character(1)`)</pre>
+                      <pre class="language-r">    #   values are stored in `teal_slice$selected` which is reactive;</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">421</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
+                      <pre class="language-r">    #   value types have to be the same as `private$get_choices()`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">422</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">153</td>
+                    <td class="num">423</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    srv_add = function(id) {</pre>
+                      <pre class="language-r">    # @return `NULL`, invisibly.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">154</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">424</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data &lt;- private$data</pre>
+                      <pre class="language-r">    set_selected = function(value) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">155</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">425</td>
+                    <td class="coverage">421<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data_reactive &lt;- private$data_reactive</pre>
+                      <pre class="language-r">      logger::log_trace(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">156</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">426</td>
+                    <td class="coverage">421<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      moduleServer(</pre>
+                      <pre class="language-r">        sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">157</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">427</td>
+                    <td class="coverage">421<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = id,</pre>
+                      <pre class="language-r">          "%s$set_selected setting selection of id: %s",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">158</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">428</td>
+                    <td class="coverage">421<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        function(input, output, session) {</pre>
+                      <pre class="language-r">          class(self)[1],</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">159</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">429</td>
+                    <td class="coverage">421<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_trace("SEFilterState$srv_add initializing, dataname: { private$dataname }")</pre>
+                      <pre class="language-r">          private$get_id()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">430</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">161</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">431</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          row_data &lt;- SummarizedExperiment::rowData(data)</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">162</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">432</td>
+                    <td class="coverage">421<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          col_data &lt;- SummarizedExperiment::colData(data)</pre>
+                      <pre class="language-r">      isolate({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">163</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">433</td>
+                    <td class="coverage">421<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        value &lt;- private$cast_and_validate(value)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">164</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">434</td>
+                    <td class="coverage">410<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          avail_row_data_choices &lt;- reactive({</pre>
+                      <pre class="language-r">        value &lt;- private$check_length(value)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">165</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">435</td>
+                    <td class="coverage">404<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            slices_for_subset &lt;- Filter(function(x) x$arg == "subset", self$get_filter_state())</pre>
+                      <pre class="language-r">        value &lt;- private$remove_out_of_bounds_values(value)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">166</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">436</td>
+                    <td class="coverage">404<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            active_filter_row_vars &lt;- unique(unlist(lapply(slices_for_subset, "[[", "varname")))</pre>
+                      <pre class="language-r">        private$teal_slice$selected &lt;- value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">437</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">168</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">438</td>
+                    <td class="coverage">404<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            choices &lt;- setdiff(</pre>
+                      <pre class="language-r">      logger::log_trace(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">169</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">439</td>
+                    <td class="coverage">404<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              get_supported_filter_varnames(data = row_data),</pre>
+                      <pre class="language-r">        sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">170</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">440</td>
+                    <td class="coverage">404<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              active_filter_row_vars</pre>
+                      <pre class="language-r">          "%s$set_selected selection of id: %s",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">441</td>
+                    <td class="coverage">404<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          class(self)[1],</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">442</td>
+                    <td class="coverage">404<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          private$get_id()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">443</td>
                     <td class="coverage"></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">444</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">173</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">445</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            data_choices_labeled(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">174</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">446</td>
+                    <td class="coverage">404<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              data = row_data,</pre>
+                      <pre class="language-r">      invisible(NULL)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">175</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">447</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              choices = choices,</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">176</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">448</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              varlabels = character(0),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">177</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">449</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              keys = NULL</pre>
+                      <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">450</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">    # Sets `value` in `private$teal_slice$keep_na`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">451</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          })</pre>
+                      <pre class="language-r">    #</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">452</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # @param value (`logical(1)`)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">181</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">453</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          avail_col_data_choices &lt;- reactive({</pre>
+                      <pre class="language-r">    #   corresponding to the state of a checkbox input in the `shiny` interface.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">182</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">454</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            slices_for_select &lt;- Filter(function(x) x$arg == "select", self$get_filter_state())</pre>
+                      <pre class="language-r">    #</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">183</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">455</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            active_filter_col_vars &lt;- unique(unlist(lapply(slices_for_select, "[[", "varname")))</pre>
+                      <pre class="language-r">    # @return `NULL`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">456</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">185</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">457</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            choices &lt;- setdiff(</pre>
+                      <pre class="language-r">    set_keep_na = function(value) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">186</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">458</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              get_supported_filter_varnames(data = col_data),</pre>
+                      <pre class="language-r">      checkmate::assert_flag(value)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">187</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">459</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              active_filter_col_vars</pre>
+                      <pre class="language-r">      private$teal_slice$keep_na &lt;- value</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">188</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">460</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">      logger::log_trace(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">189</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">461</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">190</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">462</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            data_choices_labeled(</pre>
+                      <pre class="language-r">          "%s$set_keep_na set for filter %s to %s.",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">191</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">463</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              data = col_data,</pre>
+                      <pre class="language-r">          class(self)[1],</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">192</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">464</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              choices = choices,</pre>
+                      <pre class="language-r">          private$get_id(),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">193</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">465</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              varlabels = character(0),</pre>
+                      <pre class="language-r">          value</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">194</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">466</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              keys = NULL</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">195</td>
+                    <td class="num">467</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">468</td>
+                    <td class="coverage">16<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      invisible(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">196</td>
+                    <td class="num">469</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          })</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">470</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">198</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">471</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          observeEvent(</pre>
+                      <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">199</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">472</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            avail_row_data_choices(),</pre>
+                      <pre class="language-r">    # Sets `value` in `private$teal_slice$keep_inf`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">200</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">473</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ignoreNULL = TRUE,</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">474</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            handlerExpr = {</pre>
+                      <pre class="language-r">    # @param value (`logical(1)`)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">202</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">475</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              logger::log_trace(paste(</pre>
+                      <pre class="language-r">    #   corresponding to the state of a checkbox input in the `shiny` interface.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">203</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">476</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                "SEFilterStates$srv_add@1 updating available row data choices,",</pre>
+                      <pre class="language-r">    #</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">204</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">477</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                "dataname: { private$dataname }"</pre>
+                      <pre class="language-r">    # @return `NULL`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">205</td>
+                    <td class="num">478</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">206</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">479</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              if (is.null(avail_row_data_choices())) {</pre>
+                      <pre class="language-r">    set_keep_inf = function(value) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">207</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">480</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                shinyjs::hide("row_to_add")</pre>
+                      <pre class="language-r">      checkmate::assert_flag(value)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">208</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">481</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              } else {</pre>
+                      <pre class="language-r">      private$teal_slice$keep_inf &lt;- value</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">209</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">482</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                shinyjs::show("row_to_add")</pre>
+                      <pre class="language-r">      logger::log_trace(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">210</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">483</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              }</pre>
+                      <pre class="language-r">        sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">211</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">484</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              teal.widgets::updateOptionalSelectInput(</pre>
+                      <pre class="language-r">          "%s$set_keep_inf of filter %s set to %s",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">212</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">485</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                session,</pre>
+                      <pre class="language-r">          class(self)[1],</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">213</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">486</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                "row_to_add",</pre>
+                      <pre class="language-r">          private$get_id(),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">214</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">487</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                choices = avail_row_data_choices()</pre>
+                      <pre class="language-r">          value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">215</td>
+                    <td class="num">488</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">216</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">489</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              logger::log_trace(paste(</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">217</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">490</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                "SEFilterStates$srv_add@1 updated available row data choices,",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">218</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">491</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                "dataname: { private$dataname }"</pre>
+                      <pre class="language-r">      invisible(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">219</td>
+                    <td class="num">492</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ))</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">220</td>
+                    <td class="num">493</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">221</td>
+                    <td class="num">494</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">    # getters for state features ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">222</td>
+                    <td class="num">495</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">223</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">496</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          observeEvent(</pre>
+                      <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">224</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">497</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            avail_col_data_choices(),</pre>
+                      <pre class="language-r">    # Returns dataname.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">225</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">498</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ignoreNULL = TRUE,</pre>
+                      <pre class="language-r">    # @return `character(1)`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">226</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">499</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            handlerExpr = {</pre>
+                      <pre class="language-r">    get_dataname = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">227</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">500</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              logger::log_trace(paste(</pre>
+                      <pre class="language-r">      isolate(private$teal_slice$dataname)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">228</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">501</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                "SEFilterStates$srv_add@2 updating available col data choices,",</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">229</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">502</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                "dataname: { private$dataname }"</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">230</td>
+                    <td class="num">503</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="missed">
-                    <td class="num">231</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">504</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              if (is.null(avail_col_data_choices())) {</pre>
+                      <pre class="language-r">    # Get variable name.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">232</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">505</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                shinyjs::hide("col_to_add")</pre>
+                      <pre class="language-r">    # @return `character(1)`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">233</td>
+                    <td class="num">506</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              } else {</pre>
+                      <pre class="language-r">    get_varname = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">234</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">507</td>
+                    <td class="coverage">166<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                shinyjs::show("col_to_add")</pre>
+                      <pre class="language-r">      isolate(private$teal_slice$varname)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">235</td>
+                    <td class="num">508</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">236</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">509</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              teal.widgets::updateOptionalSelectInput(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">237</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">510</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                session,</pre>
+                      <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">238</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">511</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                "col_to_add",</pre>
+                      <pre class="language-r">    # Get id of the teal_slice.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">239</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">512</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                choices = avail_col_data_choices()</pre>
+                      <pre class="language-r">    # @return `character(1)`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">240</td>
+                    <td class="num">513</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">241</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              logger::log_trace(paste(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">242</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                "SEFilterStates$srv_add@2 updated available col data choices,",</pre>
+                      <pre class="language-r">    get_id = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">243</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">514</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                "dataname: { private$dataname }"</pre>
+                      <pre class="language-r">      isolate(private$teal_slice$id)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">244</td>
+                    <td class="num">515</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ))</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">245</td>
+                    <td class="num">516</td>
                     <td class="coverage"></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">517</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">247</td>
+                    <td class="num">518</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">248</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          observeEvent(</pre>
+                      <pre class="language-r">    # Get allowed values from `FilterState`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">249</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">519</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            eventExpr = input$col_to_add,</pre>
+                      <pre class="language-r">    # @return</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">250</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">520</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            handlerExpr = {</pre>
+                      <pre class="language-r">    # Vector describing the available choices. Return type depends on the `FilterState` subclass.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">251</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">521</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              logger::log_trace(</pre>
+                      <pre class="language-r">    get_choices = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">252</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">522</td>
+                    <td class="coverage">930<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                sprintf(</pre>
+                      <pre class="language-r">      isolate(private$teal_slice$choices)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">253</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">523</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  "SEFilterStates$srv_add@3 adding FilterState of column %s to col data, dataname: %s",</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">254</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">524</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  deparse1(input$col_to_add),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">255</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">525</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  private$dataname</pre>
+                      <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">256</td>
+                    <td class="num">526</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                )</pre>
+                      <pre class="language-r">    # Get selected values from `FilterState`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">257</td>
+                    <td class="num">527</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="missed">
-                    <td class="num">258</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">528</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              varname &lt;- input$col_to_add</pre>
+                      <pre class="language-r">    # Vector describing the current selection. Return type depends on the `FilterState` subclass.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">259</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">529</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              self$set_filter_state(teal_slices(</pre>
+                      <pre class="language-r">    get_selected = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">260</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">530</td>
+                    <td class="coverage">362<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                teal_slice(private$dataname, varname, experiment = private$datalabel, arg = "select")</pre>
+                      <pre class="language-r">      private$teal_slice$selected</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">261</td>
+                    <td class="num">531</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ))</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">262</td>
+                    <td class="num">532</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">263</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">533</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              logger::log_trace(</pre>
+                      <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">264</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">534</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                sprintf(</pre>
+                      <pre class="language-r">    # Returns current `keep_na` selection.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">265</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">535</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  "SEFilterStates$srv_add@3 added FilterState of column %s to col data, dataname: %s",</pre>
+                      <pre class="language-r">    # @return `logical(1)`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">266</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">536</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  deparse1(varname),</pre>
+                      <pre class="language-r">    get_keep_na = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">267</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">537</td>
+                    <td class="coverage">129<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  private$dataname</pre>
+                      <pre class="language-r">      private$teal_slice$keep_na</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">268</td>
+                    <td class="num">538</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                )</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">269</td>
+                    <td class="num">539</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">270</td>
+                    <td class="num">540</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">271</td>
+                    <td class="num">541</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">    # Returns current `keep_inf` selection.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">272</td>
+                    <td class="num">542</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # @return (`logical(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">273</td>
+                    <td class="num">543</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    get_keep_inf = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">274</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">544</td>
+                    <td class="coverage">117<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          observeEvent(</pre>
+                      <pre class="language-r">      private$teal_slice$keep_inf</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">275</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">545</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            eventExpr = input$row_to_add,</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">276</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">546</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            handlerExpr = {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">277</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">547</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              logger::log_trace(</pre>
+                      <pre class="language-r">    # Check whether this filter is fixed (cannot be changed).</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">278</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">548</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                sprintf(</pre>
+                      <pre class="language-r">    # @return `logical(1)`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">279</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">549</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  "SEFilterStates$srv_add@4 adding FilterState of variable %s to row data, dataname: %s",</pre>
+                      <pre class="language-r">    is_fixed = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">280</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">550</td>
+                    <td class="coverage">148<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  deparse1(input$row_to_add),</pre>
+                      <pre class="language-r">      isolate(isTRUE(private$teal_slice$fixed))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">281</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">551</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  private$dataname</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">282</td>
+                    <td class="num">552</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">283</td>
+                    <td class="num">553</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r">    # Check whether this filter is anchored (cannot be removed).</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">284</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">554</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              varname &lt;- input$row_to_add</pre>
+                      <pre class="language-r">    # @return `logical(1)`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">285</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">555</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              self$set_filter_state(teal_slices(</pre>
+                      <pre class="language-r">    is_anchored = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">286</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">556</td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                teal_slice(private$dataname, varname, experiment = private$datalabel, arg = "subset")</pre>
+                      <pre class="language-r">      isolate(isTRUE(private$teal_slice$anchored))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">287</td>
+                    <td class="num">557</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ))</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">288</td>
+                    <td class="num">558</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">289</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">559</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              logger::log_trace(</pre>
+                      <pre class="language-r">    # Check whether this filter is capable of selecting multiple values.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">290</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">560</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                sprintf(</pre>
+                      <pre class="language-r">    # @return `logical(1)`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">291</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">561</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  "SEFilterStates$srv_add@4 added FilterState of variable %s to row data, dataname: %s",</pre>
+                      <pre class="language-r">    is_multiple = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">292</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">562</td>
+                    <td class="coverage">218<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  deparse1(varname),</pre>
+                      <pre class="language-r">      isolate(isTRUE(private$teal_slice$multiple))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">293</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">563</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  private$dataname</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">294</td>
+                    <td class="num">564</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">295</td>
+                    <td class="num">565</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r">    # other ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">296</td>
+                    <td class="num">566</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">297</td>
+                    <td class="num">567</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">298</td>
+                    <td class="num">568</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # Returns variable label.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">299</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">569</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_trace("SEFilterState$srv_add initialized, dataname: { private$dataname }")</pre>
+                      <pre class="language-r">    # @return `character(1)`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">300</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">570</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          NULL</pre>
+                      <pre class="language-r">    get_varlabel = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">301</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">571</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">      private$varlabel</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">302</td>
+                    <td class="num">572</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">303</td>
+                    <td class="num">573</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">304</td>
+                    <td class="num">574</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">305</td>
+                    <td class="num">575</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">    # Return variable name prefixed by `dataname` to be evaluated as extracted object, for example `data$var`</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/FilterState.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">576</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># FilterState ------</pre>
+                      <pre class="language-r">    # @return Call that extracts the variable from the dataset.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">577</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    get_varname_prefixed = function(dataname) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">578</td>
+                    <td class="coverage">109<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name FilterState</pre>
+                      <pre class="language-r">      varname &lt;- private$get_varname()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">579</td>
+                    <td class="coverage">109<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @docType class</pre>
+                      <pre class="language-r">      varname_backticked &lt;- sprintf("`%s`", varname)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">580</td>
+                    <td class="coverage">109<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      ans &lt;-</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">581</td>
+                    <td class="coverage">109<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @title `FilterState` abstract class</pre>
+                      <pre class="language-r">        if (isTRUE(private$extract_type == "list")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">582</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          sprintf("%s$%s", dataname, varname_backticked)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">583</td>
+                    <td class="coverage">109<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description Abstract class to encapsulate single filter state.</pre>
+                      <pre class="language-r">        } else if (isTRUE(private$extract_type == "matrix")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">584</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          sprintf("%s[, \"%s\"]", dataname, varname)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">585</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details</pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">586</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This class is responsible for managing a single filter item within a `FilteredData` object</pre>
+                      <pre class="language-r">          varname_backticked</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">587</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' and outputs a condition call (logical predicate) for subsetting one variable.</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">588</td>
+                    <td class="coverage">109<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Filter states depend on the variable type:</pre>
+                      <pre class="language-r">      str2lang(ans)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">589</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' (`logical`, `integer`, `numeric`, `character`, `factor`, `Date`, `POSIXct`, `POSIXlt`)</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">590</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' and `FilterState` subclasses exist that correspond to those types.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' - `logical`: `class = LogicalFilterState`</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">591</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `integer`: `class = RangeFilterState`</pre>
+                      <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">592</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `numeric`: `class = RangeFilterState`</pre>
+                      <pre class="language-r">    # Adds `is.na(varname)` moiety to the existing condition call, according to `keep_na` status.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">593</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `character`: `class = ChoicesFilterState`</pre>
+                      <pre class="language-r">    # @param filter_call `call` raw filter call, as defined by selection</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">594</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `factor`: `class = ChoicesFilterState`</pre>
+                      <pre class="language-r">    # @param varname `character(1)` name of a variable</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">595</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `Date`: `class = DateFilterState`</pre>
+                      <pre class="language-r">    # @return `call`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">596</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `POSIXct`, `POSIXlt`: `class = DatetimeFilterState`</pre>
+                      <pre class="language-r">    add_keep_na_call = function(filter_call, varname) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">597</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - all `NA` entries: `class: FilterState`, cannot be filtered</pre>
+                      <pre class="language-r">      # No need to deal with NAs.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">598</td>
+                    <td class="coverage">108<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - default: `FilterState`, cannot be filtered</pre>
+                      <pre class="language-r">      if (private$na_count == 0L) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">599</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        return(filter_call)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">600</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Each variable's filter state is an `R6` object keeps the variable that is filtered,</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">601</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' a `teal_slice` object that describes the filter state, as well as a `shiny` module (UI and server)</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">602</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' that allows the user to alter the filter state.</pre>
+                      <pre class="language-r">      if (is.null(filter_call) &amp;&amp; isFALSE(private$get_keep_na())) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">603</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Changes to the filter state that cause some observations to be omitted</pre>
+                      <pre class="language-r">        call("!", call("is.na", varname))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">604</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' trigger the `get_call` method and every `R` function call up in the reactive chain.</pre>
+                      <pre class="language-r">      } else if (!is.null(filter_call) &amp;&amp; isTRUE(private$get_keep_na())) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">605</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        call("|", call("is.na", varname), filter_call)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">606</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @section Modifying state:</pre>
+                      <pre class="language-r">      } else if (!is.null(filter_call) &amp;&amp; isFALSE(private$get_keep_na())) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">33</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">607</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Modifying a `FilterState` object is possible in three scenarios:</pre>
+                      <pre class="language-r">        call("&amp;", call("!", call("is.na", varname)), filter_call)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">608</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - In an interactive session, by passing an appropriate `teal_slice` to the `set_state` method.</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">609</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - In a running application, by changing appropriate inputs.</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">610</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - In a running application, by using [filter_state_api] which directly uses</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">611</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `set_state` method of the `FilterState` object.</pre>
+                      <pre class="language-r">    # Converts values to the type fitting this `FilterState` and validates the conversion.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">612</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    # Raises error if casting does not execute successfully.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">613</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">40</td>
+                    <td class="num">614</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    # @param values vector of values</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">615</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">FilterState &lt;- R6::R6Class( # nolint</pre>
+                      <pre class="language-r">    #</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">616</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  "FilterState",</pre>
+                      <pre class="language-r">    # @return vector converted to appropriate class</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">617</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    cast_and_validate = function(values) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">618</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # public methods ----</pre>
+                      <pre class="language-r">      values</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">619</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  public = list(</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">620</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">621</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">    # Checks length of selection.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">622</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Initialize a `FilterState` object.</pre>
+                      <pre class="language-r">    check_length = function(values) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">623</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">      values</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">624</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param x (`vector`)</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">625</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   variable to be filtered.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">626</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param x_reactive (`reactive`)</pre>
+                      <pre class="language-r">    # Filters out erroneous values from vector.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">627</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   returning vector of the same type as `x`. Is used to update</pre>
+                      <pre class="language-r">    #</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">628</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   counts following the change in values of the filtered dataset.</pre>
+                      <pre class="language-r">    # @param values vector of values</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">629</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   If it is set to `reactive(NULL)` then counts based on filtered</pre>
+                      <pre class="language-r">    #</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">630</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   dataset are not shown.</pre>
+                      <pre class="language-r">    # @return vector in which values that cannot be set in this FilterState have been dropped</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">631</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param slice (`teal_slice`)</pre>
+                      <pre class="language-r">    remove_out_of_bounds_values = function(values) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">58</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">632</td>
+                    <td class="coverage">31<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   specification of this filter state.</pre>
+                      <pre class="language-r">      values</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">633</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   `teal_slice` is stored in the object and `set_state` directly manipulates values within `teal_slice`.</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">634</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   `get_state` returns `teal_slice` object which can be reused in other places.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">635</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   Note that `teal_slice` is a `reactiveValues`, which means it has reference semantics, i.e.</pre>
+                      <pre class="language-r">    # Checks if the selection is valid in terms of class and length.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">636</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   changes made to an object are automatically reflected in all places that refer to the same `teal_slice`.</pre>
+                      <pre class="language-r">    # It should not return anything but raise an error if selection</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">637</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param extract_type (`character`)</pre>
+                      <pre class="language-r">    # has a wrong class or is outside of possible choices</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">638</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   specifying whether condition calls should be prefixed by `dataname`. Possible values:</pre>
+                      <pre class="language-r">    validate_selection = function(value) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">65</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">639</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' - `character(0)` (default) `varname` in the condition call will not be prefixed</pre>
+                      <pre class="language-r">      invisible(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">640</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' - `"list"` `varname` in the condition call will be returned as `&lt;dataname&gt;$&lt;varname&gt;`</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">641</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' - `"matrix"` `varname` in the condition call will be returned as `&lt;dataname&gt;[, &lt;varname&gt;]`</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">642</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">69</td>
+                    <td class="num">643</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return Object of class `FilterState`, invisibly.</pre>
+                      <pre class="language-r">    # Checks whether the current settings actually cause any values to be omitted.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">644</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">    # @return logical scalar</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">645</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    initialize = function(x,</pre>
+                      <pre class="language-r">    is_any_filtered = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">72</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">646</td>
+                    <td class="coverage">75<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          x_reactive = reactive(NULL),</pre>
+                      <pre class="language-r">      if (private$is_choice_limited) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">73</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">647</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          slice,</pre>
+                      <pre class="language-r">        TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">74</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">648</td>
+                    <td class="coverage">69<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          extract_type = character(0)) {</pre>
+                      <pre class="language-r">      } else if (!setequal(private$get_selected(), private$get_choices())) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">75</td>
-                    <td class="coverage">369<em>x</em></td>
+                    <td class="num">649</td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_class(x_reactive, "reactive")</pre>
+                      <pre class="language-r">        TRUE</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">76</td>
-                    <td class="coverage">368<em>x</em></td>
+                    <td class="num">650</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_class(slice, "teal_slice")</pre>
+                      <pre class="language-r">      } else if (!isTRUE(private$get_keep_na()) &amp;&amp; private$na_count &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">77</td>
-                    <td class="coverage">366<em>x</em></td>
+                    <td class="num">651</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_character(extract_type, max.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">        TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">78</td>
-                    <td class="coverage">366<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">652</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(extract_type) == 1) {</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">79</td>
-                    <td class="coverage">53<em>x</em></td>
+                    <td class="num">653</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        checkmate::assert_choice(extract_type, choices = c("list", "matrix"))</pre>
+                      <pre class="language-r">        FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">654</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">655</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    },</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">656</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">657</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # Set data properties.</pre>
+                      <pre class="language-r">    # shiny modules -----</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">83</td>
-                    <td class="coverage">365<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">658</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$x &lt;- x</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">84</td>
-                    <td class="coverage">365<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">659</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$x_reactive &lt;- x_reactive</pre>
+                      <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">660</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # Set derived data properties.</pre>
+                      <pre class="language-r">    # Server module to display filter summary</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">86</td>
-                    <td class="coverage">365<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">661</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$na_count &lt;- sum(is.na(x))</pre>
+                      <pre class="language-r">    # @param id (`character(1)`) `shiny` module instance id.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">87</td>
-                    <td class="coverage">365<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">662</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$filtered_na_count &lt;- reactive(</pre>
+                      <pre class="language-r">    ui_summary = function(id) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">88</td>
-                    <td class="coverage">365<em>x</em></td>
+                    <td class="num">663</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!is.null(private$x_reactive())) {</pre>
+                      <pre class="language-r">      ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">89</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">664</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          sum(is.na(private$x_reactive()))</pre>
+                      <pre class="language-r">      uiOutput(ns("summary"), class = "filter-card-summary")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">665</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">666</td>
                     <td class="coverage"></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">667</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # Set extract type.</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">93</td>
-                    <td class="coverage">365<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      private$extract_type &lt;- extract_type</pre>
+                      <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">668</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # UI module to display filter summary</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">669</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # Set state properties.</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">96</td>
-                    <td class="coverage">18<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      if (is.null(isolate(slice$keep_na)) &amp;&amp; anyNA(x)) slice$keep_na &lt;- TRUE</pre>
+                      <pre class="language-r">    # @param id (`character(1)`) `shiny` module instance id.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">97</td>
-                    <td class="coverage">365<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">670</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$teal_slice &lt;- slice</pre>
+                      <pre class="language-r">    # @return Nothing. Renders the UI.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">671</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # Obtain variable label.</pre>
+                      <pre class="language-r">    server_summary = function(id) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">99</td>
-                    <td class="coverage">365<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      varlabel &lt;- attr(x, "label", exact = TRUE)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">100</td>
-                    <td class="coverage"></td>
+                    <td class="num">672</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # Display only when different from varname.</pre>
+                      <pre class="language-r">      moduleServer(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">101</td>
-                    <td class="coverage">365<em>x</em></td>
+                    <td class="num">673</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$varlabel &lt;-</pre>
+                      <pre class="language-r">        id = id,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">102</td>
-                    <td class="coverage">365<em>x</em></td>
+                    <td class="num">674</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (is.null(varlabel) || identical(varlabel, private$get_varname())) {</pre>
+                      <pre class="language-r">        function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">103</td>
-                    <td class="coverage">364<em>x</em></td>
+                    <td class="num">675</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          character(0)</pre>
+                      <pre class="language-r">          output$summary &lt;- renderUI(private$content_summary())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">676</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">105</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">677</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          varlabel</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">678</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">679</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">365<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">680</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$state_history &lt;- reactiveVal(list())</pre>
+                      <pre class="language-r">    # module with inputs</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">681</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    ui_inputs = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">110</td>
-                    <td class="coverage">365<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">682</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      logger::log_trace("Instantiated FilterState object id: { private$get_id() }")</pre>
+                      <pre class="language-r">      stop("abstract class")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">683</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">112</td>
-                    <td class="coverage">365<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      invisible(self)</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>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">684</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # module with inputs</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">685</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">    server_inputs = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">116</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">686</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Returns a formatted string representing this `FilterState` object.</pre>
+                      <pre class="language-r">      stop("abstract class")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">687</td>
                     <td class="coverage"></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">688</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param show_all (`logical(1)`) passed to `format.teal_slice`</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">689</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param trim_lines (`logical(1)`) passed to `format.teal_slice`</pre>
+                      <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">690</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">    # Module displaying inputs in a fixed filter state.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">691</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `character(1)` the formatted string</pre>
+                      <pre class="language-r">    # There are no input widgets, only selection visualizations.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">692</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">    # @param id (`character(1)`) `shiny` module instance id.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">693</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    format = function(show_all = FALSE, trim_lines = TRUE) {</pre>
+                      <pre class="language-r">    ui_inputs_fixed = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">124</td>
-                    <td class="coverage">68<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">694</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sprintf(</pre>
+                      <pre class="language-r">      ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">125</td>
-                    <td class="coverage">68<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">695</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "%s:\n%s",</pre>
+                      <pre class="language-r">      tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">126</td>
-                    <td class="coverage">68<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">696</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        class(self)[1],</pre>
+                      <pre class="language-r">        class = "choices_state",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">127</td>
-                    <td class="coverage">68<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">697</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        format(self$get_state(), show_all = show_all, trim_lines = trim_lines)</pre>
+                      <pre class="language-r">        uiOutput(ns("selection"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">698</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">699</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">700</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>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">132</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    #' Prints this `FilterState` object.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">701</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">134</td>
+                    <td class="num">702</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param ... additional arguments</pre>
+                      <pre class="language-r">    # Module creating the display of a fixed filter state.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">703</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">    # @param id (`character(1)`) `shiny` module instance id.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">704</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    print = function(...) {</pre>
+                      <pre class="language-r">    server_inputs_fixed = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">137</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">705</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      cat(isolate(self$format(...)))</pre>
+                      <pre class="language-r">      stop("abstract class")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">706</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">707</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">708</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">709</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Sets mutable parameters of the filter state.</pre>
+                      <pre class="language-r">    # Module UI function displaying input to keep or remove NA in the `FilterState` call.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">710</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' - `fixed` state is prevented from changing state</pre>
+                      <pre class="language-r">    # Renders a checkbox input only when variable with which `FilterState` has been created contains NAs.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">711</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' - `anchored` state is prevented from removing state</pre>
+                      <pre class="language-r">    # @param id (`character(1)`) `shiny` module instance id.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">712</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">    keep_na_ui = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">145</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">713</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param state (`teal_slice`)</pre>
+                      <pre class="language-r">      ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">146</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">714</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">      if (private$na_count &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">147</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">715</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `self` invisibly</pre>
+                      <pre class="language-r">        isolate({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">148</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">716</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">          countmax &lt;- private$na_count</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">149</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">717</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set_state = function(state) {</pre>
+                      <pre class="language-r">          countnow &lt;- private$filtered_na_count()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">150</td>
-                    <td class="coverage">89<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">718</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_class(state, "teal_slice")</pre>
+                      <pre class="language-r">          ui_input &lt;- checkboxInput(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">151</td>
-                    <td class="coverage">88<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">719</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (private$is_fixed()) {</pre>
+                      <pre class="language-r">            inputId = ns("value"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">152</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">720</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        warning("attempt to set state on fixed filter aborted id: ", private$get_id())</pre>
+                      <pre class="language-r">            label = tags$span(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">153</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">721</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">              id = ns("count_label"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">154</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">722</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        logger::log_trace("{ class(self)[1] }$set_state setting state of filter id: { private$get_id() }")</pre>
+                      <pre class="language-r">              make_count_text(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">155</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">723</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        isolate({</pre>
+                      <pre class="language-r">                label = "Keep NA",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">156</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">724</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (!is.null(state$selected)) {</pre>
+                      <pre class="language-r">                countmax = countmax,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">157</td>
-                    <td class="coverage">78<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">725</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            private$set_selected(state$selected)</pre>
+                      <pre class="language-r">                countnow = countnow</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">726</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">159</td>
-                    <td class="coverage">75<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          if (!is.null(state$keep_na)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">160</td>
-                    <td class="coverage">16<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            private$set_keep_na(state$keep_na)</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">727</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">75<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          if (!is.null(state$keep_inf)) {</pre>
+                      <pre class="language-r">            ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">163</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">728</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            private$set_keep_inf(state$keep_inf)</pre>
+                      <pre class="language-r">            value = private$get_keep_na()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">729</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">75<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          current_state &lt;- sprintf(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">166</td>
-                    <td class="coverage">75<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            "selected: %s; keep_na: %s; keep_inf: %s",</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">75<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">730</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            toString(private$get_selected()),</pre>
+                      <pre class="language-r">          tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">75<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">731</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            private$get_keep_na(),</pre>
+                      <pre class="language-r">            uiOutput(ns("trigger_visible"), inline = TRUE),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">75<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">732</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            private$get_keep_inf()</pre>
+                      <pre class="language-r">            ui_input</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">733</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">734</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">735</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">173</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">736</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        NULL</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">174</td>
-                    <td class="coverage">76<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">737</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">175</td>
+                    <td class="num">738</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</td>
+                    <td class="num">739</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">740</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">178</td>
+                    <td class="num">741</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">    # Module server function to handle NA values in the `FilterState`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">742</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Returns a complete description of the filter state.</pre>
+                      <pre class="language-r">    # Sets `private$slice$keep_na` according to the selection</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">743</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">    # and updates the relevant UI element if `private$slice$keep_na` has been changed by the api.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">744</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return A `teal_slice` object.</pre>
+                      <pre class="language-r">    # @param id (`character(1)`) `shiny` module instance id.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">745</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">    # @return `NULL`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">746</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_state = function() {</pre>
+                      <pre class="language-r">    keep_na_srv = function(id) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">184</td>
-                    <td class="coverage">747<em>x</em></td>
+                    <td class="num">747</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$teal_slice</pre>
+                      <pre class="language-r">      moduleServer(id, function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">748</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">        # 1. renderUI is used here as an observer which triggers only if output is visible</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">749</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        #  and if the reactive changes - reactive triggers only if the output is visible.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">750</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">        # 2. We want to trigger change of the labels only if reactive count changes (not underlying data)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">188</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">751</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Returns reproducible condition call for current selection relevant</pre>
+                      <pre class="language-r">        output$trigger_visible &lt;- renderUI({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">189</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">752</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' for selected variable type.</pre>
+                      <pre class="language-r">          updateCountText(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">190</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">753</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Method is using internal reactive values which makes it reactive</pre>
+                      <pre class="language-r">            inputId = "count_label",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">191</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">754</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' and must be executed in reactive or isolated context.</pre>
+                      <pre class="language-r">            label = "Keep NA",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">192</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">755</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">            countmax = private$na_count,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">756</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            countnow = private$filtered_na_count()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">757</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_call = function() {</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">194</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">758</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stop("this is a virtual method")</pre>
+                      <pre class="language-r">          NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">195</td>
+                    <td class="num">759</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">        })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">196</td>
+                    <td class="num">760</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">761</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">        # this observer is needed in the situation when private$keep_inf has been</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">762</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' `shiny` module server.</pre>
+                      <pre class="language-r">        # changed directly by the api - then it's needed to rerender UI element</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">199</td>
+                    <td class="num">763</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">        # to show relevant values</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">200</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">764</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param id (`character(1)`)</pre>
+                      <pre class="language-r">        private$observers$keep_na_api &lt;- observeEvent(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">201</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">765</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
+                      <pre class="language-r">          ignoreNULL = FALSE, # nothing selected is possible for NA</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">202</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">766</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">203</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    #' @return Reactive expression signaling that remove button has been clicked.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">204</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">          ignoreInit = TRUE, # ignoreInit: should not matter because we set the UI with the desired initial state</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">205</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">767</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server = function(id) {</pre>
+                      <pre class="language-r">          eventExpr = private$get_keep_na(),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">206</td>
+                    <td class="num">768</td>
                     <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      moduleServer(</pre>
+                      <pre class="language-r">          handlerExpr = {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">207</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">769</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = id,</pre>
+                      <pre class="language-r">            if (!setequal(private$get_keep_na(), input$value)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">208</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">770</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        function(input, output, session) {</pre>
+                      <pre class="language-r">              logger::log_trace("FilterState$keep_na_srv@1 changed reactive value, id: { private$get_id() }")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">209</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">771</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_trace("FilterState$server initializing module for slice: { private$get_id() } ")</pre>
+                      <pre class="language-r">              updateCheckboxInput(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">210</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">772</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          private$server_summary("summary")</pre>
+                      <pre class="language-r">                inputId = "value",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">211</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">773</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (private$is_fixed()) {</pre>
+                      <pre class="language-r">                label = sprintf("Keep NA (%s/%s)", private$filtered_na_count(), private$na_count),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">212</td>
+                    <td class="num">774</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            private$server_inputs_fixed("inputs")</pre>
+                      <pre class="language-r">                value = private$get_keep_na()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">213</td>
+                    <td class="num">775</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">214</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">776</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            private$server_inputs("inputs")</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">215</td>
+                    <td class="num">777</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">778</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">217</td>
-                    <td class="coverage">12<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          private$observers$state &lt;- observeEvent(</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">218</td>
+                    <td class="num">779</td>
                     <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            eventExpr = list(private$get_selected(), private$get_keep_na(), private$get_keep_inf()),</pre>
+                      <pre class="language-r">        private$observers$keep_na &lt;- observeEvent(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">219</td>
+                    <td class="num">780</td>
                     <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            handlerExpr = {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">220</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              current_state &lt;- as.list(self$get_state())</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">221</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              history &lt;- private$state_history()</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">222</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              history_update &lt;- c(history, list(current_state))</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">223</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              private$state_history(history_update)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">224</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="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">226</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          ignoreNULL = FALSE, # ignoreNULL: we don't want to ignore NULL when nothing is selected in the `selectInput`</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">227</td>
+                    <td class="num">781</td>
                     <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          private$observers$back &lt;- observeEvent(</pre>
+                      <pre class="language-r">          ignoreInit = TRUE, # ignoreInit: should not matter because we set the UI with the desired initial state</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">228</td>
+                    <td class="num">782</td>
                     <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            eventExpr = input$back,</pre>
+                      <pre class="language-r">          eventExpr = input$value,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">229</td>
+                    <td class="num">783</td>
                     <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            handlerExpr = {</pre>
+                      <pre class="language-r">          handlerExpr = {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">230</td>
+                    <td class="num">784</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              history &lt;- rev(private$state_history())</pre>
+                      <pre class="language-r">            logger::log_trace("FilterState$keep_na_srv@2 changed input, id: { private$get_id() }")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">231</td>
+                    <td class="num">785</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              slice &lt;- history[[2L]]</pre>
+                      <pre class="language-r">            keep_na &lt;- if (is.null(input$value)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">232</td>
+                    <td class="num">786</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              history_update &lt;- rev(history[-(1:2)])</pre>
+                      <pre class="language-r">              FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">233</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">787</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              private$state_history(history_update)</pre>
+                      <pre class="language-r">            } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">234</td>
+                    <td class="num">788</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              self$set_state(as.teal_slice(slice))</pre>
+                      <pre class="language-r">              input$value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">235</td>
+                    <td class="num">789</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">            }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">236</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">790</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">            private$set_keep_na(keep_na)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">237</td>
+                    <td class="num">791</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">238</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">792</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          private$observers$reset &lt;- observeEvent(</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">239</td>
+                    <td class="num">793</td>
                     <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            eventExpr = input$reset,</pre>
+                      <pre class="language-r">        invisible(NULL)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">240</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">794</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            handlerExpr = {</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">241</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">795</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              slice &lt;- private$state_history()[[1L]]</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">242</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">796</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              self$set_state(as.teal_slice(slice))</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">243</td>
+                    <td class="num">797</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/FilterStateDate.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">          )</pre>
+                      <pre class="language-r"># DateFilterState ------</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">          # Buttons for rewind/reset are disabled upon change in history to prevent double-clicking.</pre>
+                      <pre class="language-r">#' @name DateFilterState</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">          # Re-enabling occurs after 100 ms, after they are potentially hidden when no history is present.</pre>
+                      <pre class="language-r">#' @docType class</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">248</td>
-                    <td class="coverage">12<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">          private$observers$state_history &lt;- observeEvent(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">249</td>
-                    <td class="coverage">12<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">            eventExpr = private$state_history(),</pre>
+                      <pre class="language-r">#' @title `FilterState` object for `Date` data</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">250</td>
-                    <td class="coverage">12<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">            handlerExpr = {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">251</td>
-                    <td class="coverage">4<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">              shinyjs::disable(id = "back")</pre>
+                      <pre class="language-r">#' @description Manages choosing a range of `Date`s.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">252</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">              shinyjs::disable(id = "reset")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">253</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">              shinyjs::delay(</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">254</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">                ms = 100,</pre>
+                      <pre class="language-r">#' # use non-exported function from teal.slice</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">255</td>
-                    <td class="coverage">4<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">                expr = {</pre>
+                      <pre class="language-r">#' include_css_files &lt;- getFromNamespace("include_css_files", "teal.slice")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">256</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">                  shinyjs::toggleElement(id = "back", condition = length(private$state_history()) &gt; 1L)</pre>
+                      <pre class="language-r">#' include_js_files &lt;- getFromNamespace("include_js_files", "teal.slice")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">257</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">                  shinyjs::enable(id = "back")</pre>
+                      <pre class="language-r">#' DateFilterState &lt;- getFromNamespace("DateFilterState", "teal.slice")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">258</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">259</td>
+                    <td class="num">16</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="covered">
-                    <td class="num">260</td>
-                    <td class="coverage">4<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">              shinyjs::delay(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">261</td>
-                    <td class="coverage">4<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">                ms = 100,</pre>
+                      <pre class="language-r">#' filter_state &lt;- DateFilterState$new(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">262</td>
-                    <td class="coverage">4<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">                expr = {</pre>
+                      <pre class="language-r">#'   x = c(Sys.Date() + seq(1:10), NA),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">263</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">                  shinyjs::toggleElement(id = "reset", condition = length(private$state_history()) &gt; 1L)</pre>
+                      <pre class="language-r">#'   slice = teal_slice(varname = "x", dataname = "data"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">264</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">21</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  shinyjs::enable(id = "reset")</pre>
+                      <pre class="language-r">#'   extract_type = character(0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">265</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                }</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">266</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r">#' isolate(filter_state$get_call())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">267</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">#' filter_state$set_state(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">268</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#'   teal_slice(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">269</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     dataname = "data",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">270</td>
-                    <td class="coverage">12<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$destroy_shiny &lt;- function() {</pre>
+                      <pre class="language-r">#'     varname = "x",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">271</td>
-                    <td class="coverage">8<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">            logger::log_trace("Destroying FilterState inputs and observers; id: { private$get_id() }")</pre>
+                      <pre class="language-r">#'     selected = c(Sys.Date() + 3L, Sys.Date() + 8L),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">272</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            # remove values from the input list</pre>
+                      <pre class="language-r">#'     keep_na = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">273</td>
-                    <td class="coverage">8<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">            lapply(session$ns(names(input)), .subset2(input, "impl")$.values$remove)</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">274</td>
+                    <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">275</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            # remove observers</pre>
+                      <pre class="language-r">#' isolate(filter_state$get_call())</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">276</td>
-                    <td class="coverage">8<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">            lapply(private$observers, function(x) x$destroy())</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">277</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">#' # working filter in an app</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">278</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' library(shinyjs)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">279</td>
-                    <td class="coverage">12<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">          reactive(input$remove)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">280</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">#' dates &lt;- c(Sys.Date() - 100, Sys.Date())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">281</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' data_date &lt;- c(seq(from = dates[1], to = dates[2], length.out = 100), NA)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">282</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#' fs &lt;- DateFilterState$new(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">283</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   x = data_date,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">284</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">#'   slice = teal_slice(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">285</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' `shiny` UI module.</pre>
+                      <pre class="language-r">#'     dataname = "data", varname = "x", selected = data_date[c(47, 98)], keep_na = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">286</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'  The UI for this class contains simple message stating that it is not supported.</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">287</td>
+                    <td class="num">44</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">288</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'  `shiny` module instance id.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">289</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param parent_id (`character(1)`) id of the `FilterStates` card container</pre>
+                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">290</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui = function(id, parent_id = "cards") {</pre>
+                      <pre class="language-r">#'   useShinyjs(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">291</td>
-                    <td class="coverage">12<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">      ns &lt;- NS(id)</pre>
+                      <pre class="language-r">#'   include_css_files(pattern = "filter-panel"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">292</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   include_js_files(pattern = "count-bar-labels"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">293</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # Filter card consists of header and body, arranged in a single column.</pre>
+                      <pre class="language-r">#'   column(4, tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">294</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # Body is hidden and is toggled by clicking on header.</pre>
+                      <pre class="language-r">#'     tags$h4("DateFilterState"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">295</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ## Header consists of title and summary, arranged in a column.</pre>
+                      <pre class="language-r">#'     fs$ui("fs")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">296</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ### Title consists of conditional icon, varname, conditional varlabel, and controls, arranged in a row.</pre>
+                      <pre class="language-r">#'   )),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">297</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ### Summary consists of value and controls, arranged in a row.</pre>
+                      <pre class="language-r">#'   column(4, tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">298</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     id = "outputs", # div id is needed for toggling the element</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">299</td>
-                    <td class="coverage">12<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">      tags$div(</pre>
+                      <pre class="language-r">#'     tags$h4("Condition (i.e. call)"), # display the condition call generated by this FilterState</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">300</td>
-                    <td class="coverage">12<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">        id = id,</pre>
+                      <pre class="language-r">#'     textOutput("condition_date"), tags$br(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">301</td>
-                    <td class="coverage">12<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">        class = "panel filter-card",</pre>
+                      <pre class="language-r">#'     tags$h4("Unformatted state"), # display raw filter state</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">302</td>
-                    <td class="coverage">12<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">        include_js_files("count-bar-labels.js"),</pre>
+                      <pre class="language-r">#'     textOutput("unformatted_date"), tags$br(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">303</td>
-                    <td class="coverage">12<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">        tags$div(</pre>
+                      <pre class="language-r">#'     tags$h4("Formatted state"), # display human readable filter state</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">304</td>
-                    <td class="coverage">12<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">          class = "filter-card-header",</pre>
+                      <pre class="language-r">#'     textOutput("formatted_date"), tags$br()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">305</td>
-                    <td class="coverage">12<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">          `data-toggle` = "collapse",</pre>
+                      <pre class="language-r">#'   )),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">306</td>
-                    <td class="coverage">12<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">          `data-bs-toggle` = "collapse",</pre>
+                      <pre class="language-r">#'   column(4, tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">307</td>
-                    <td class="coverage">12<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">          href = paste0("#", ns("body")),</pre>
+                      <pre class="language-r">#'     tags$h4("Programmatic filter control"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">308</td>
-                    <td class="coverage">12<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">          tags$div(</pre>
+                      <pre class="language-r">#'     actionButton("button1_date", "set drop NA", width = "100%"), tags$br(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">309</td>
-                    <td class="coverage">12<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">            class = "filter-card-title",</pre>
+                      <pre class="language-r">#'     actionButton("button2_date", "set keep NA", width = "100%"), tags$br(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">310</td>
-                    <td class="coverage">12<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">            if (private$is_anchored() &amp;&amp; private$is_fixed()) {</pre>
+                      <pre class="language-r">#'     actionButton("button3_date", "set a range", width = "100%"), tags$br(),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">311</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">68</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              icon("anchor-lock", class = "filter-card-icon")</pre>
+                      <pre class="language-r">#'     actionButton("button4_date", "set full range", width = "100%"), tags$br(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">312</td>
-                    <td class="coverage">12<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">            } else if (private$is_anchored() &amp;&amp; !private$is_fixed()) {</pre>
+                      <pre class="language-r">#'     actionButton("button0_date", "set initial state", width = "100%"), tags$br()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">313</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">70</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              icon("anchor", class = "filter-card-icon")</pre>
+                      <pre class="language-r">#'   ))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">314</td>
-                    <td class="coverage">12<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">            } else if (!private$is_anchored() &amp;&amp; private$is_fixed()) {</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">315</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">              icon("lock", class = "filter-card-icon")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">316</td>
+                    <td class="num">73</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="covered">
-                    <td class="num">317</td>
-                    <td class="coverage">12<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">            tags$div(class = "filter-card-varname", tags$strong(private$get_varname())),</pre>
+                      <pre class="language-r">#'   fs$server("fs")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">318</td>
-                    <td class="coverage">12<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">            tags$div(class = "filter-card-varlabel", private$get_varlabel()),</pre>
+                      <pre class="language-r">#'   output$condition_date &lt;- renderPrint(fs$get_call())</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">319</td>
-                    <td class="coverage">12<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">            tags$div(</pre>
+                      <pre class="language-r">#'   output$formatted_date &lt;- renderText(fs$format())</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">320</td>
-                    <td class="coverage">12<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">              class = "filter-card-controls",</pre>
+                      <pre class="language-r">#'   output$unformatted_date &lt;- renderPrint(fs$get_state())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">321</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              # Suppress toggling body when clicking on this div.</pre>
+                      <pre class="language-r">#'   # modify filter state programmatically</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">322</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              # This is for bootstrap 3 and 4. Causes page to scroll to top, prevented by setting href on buttons.</pre>
+                      <pre class="language-r">#'   observeEvent(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">323</td>
-                    <td class="coverage">12<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">              onclick = "event.stopPropagation();event.preventDefault();",</pre>
+                      <pre class="language-r">#'     input$button1_date,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">324</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              # This is for bootstrap 5.</pre>
+                      <pre class="language-r">#'     fs$set_state(teal_slice(dataname = "data", varname = "x", keep_na = FALSE))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">325</td>
-                    <td class="coverage">12<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">              `data-bs-toggle` = "collapse",</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">326</td>
-                    <td class="coverage">12<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">              `data-bs-target` = NULL,</pre>
+                      <pre class="language-r">#'   observeEvent(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">327</td>
-                    <td class="coverage">12<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">              if (isFALSE(private$is_fixed())) {</pre>
+                      <pre class="language-r">#'     input$button2_date,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">328</td>
-                    <td class="coverage">12<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">                actionLink(</pre>
+                      <pre class="language-r">#'     fs$set_state(teal_slice(dataname = "data", varname = "x", keep_na = TRUE))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">329</td>
-                    <td class="coverage">12<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">                  inputId = ns("back"),</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">330</td>
-                    <td class="coverage">12<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">                  label = NULL,</pre>
+                      <pre class="language-r">#'   observeEvent(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">331</td>
-                    <td class="coverage">12<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">                  icon = icon("circle-arrow-left", lib = "font-awesome"),</pre>
+                      <pre class="language-r">#'     input$button3_date,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">332</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">89</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  title = "Rewind state",</pre>
+                      <pre class="language-r">#'     fs$set_state(teal_slice(dataname = "data", varname = "x", selected = data_date[c(34, 56)]))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">333</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">90</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  class = "filter-card-back",</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">334</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">91</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  style = "display: none"</pre>
+                      <pre class="language-r">#'   observeEvent(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">335</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                )</pre>
+                      <pre class="language-r">#'     input$button4_date,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">336</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              },</pre>
+                      <pre class="language-r">#'     fs$set_state(teal_slice(dataname = "data", varname = "x", selected = dates))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">337</td>
-                    <td class="coverage">12<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 (isFALSE(private$is_fixed())) {</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">338</td>
-                    <td class="coverage">12<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">                actionLink(</pre>
+                      <pre class="language-r">#'   observeEvent(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">339</td>
-                    <td class="coverage">12<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">                  inputId = ns("reset"),</pre>
+                      <pre class="language-r">#'     input$button0_date,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">340</td>
-                    <td class="coverage">12<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">                  label = NULL,</pre>
+                      <pre class="language-r">#'     fs$set_state(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">341</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">98</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  icon = icon("circle-arrow-up", lib = "font-awesome"),</pre>
+                      <pre class="language-r">#'       teal_slice("data", "variable", selected = data_date[c(47, 98)], keep_na = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">342</td>
-                    <td class="coverage">12<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">                  title = "Restore original state",</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">343</td>
-                    <td class="coverage">12<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">                  class = "filter-card-back",</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">344</td>
-                    <td class="coverage">12<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">                  style = "display: none"</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">345</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">346</td>
+                    <td class="num">103</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">347</td>
-                    <td class="coverage">12<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">              if (isFALSE(private$is_anchored())) {</pre>
+                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">348</td>
-                    <td class="coverage">12<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">                actionLink(</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">349</td>
-                    <td class="coverage">12<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">                  inputId = ns("remove"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">350</td>
-                    <td class="coverage">12<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">                  label = icon("circle-xmark", lib = "font-awesome"),</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">351</td>
-                    <td class="coverage">12<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">                  title = "Remove filter",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">352</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">109</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  class = "filter-card-remove"</pre>
+                      <pre class="language-r">DateFilterState &lt;- R6::R6Class( # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">353</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                )</pre>
+                      <pre class="language-r">  "DateFilterState",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">354</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              }</pre>
+                      <pre class="language-r">  inherit = FilterState,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">355</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">356</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">  # public methods ----</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">357</td>
-                    <td class="coverage">12<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">          tags$div(class = "filter-card-summary", private$ui_summary(ns("summary")))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">358</td>
+                    <td class="num">115</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="covered">
-                    <td class="num">359</td>
-                    <td class="coverage">12<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">        tags$div(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">360</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">117</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          id = ns("body"),</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">361</td>
-                    <td class="coverage">12<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">          class = "collapse out",</pre>
+                      <pre class="language-r">    #' Initialize a `FilterState` object.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">362</td>
-                    <td class="coverage">12<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">          `data-parent` = paste0("#", parent_id),</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">363</td>
-                    <td class="coverage">12<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">          `data-bs-parent` = paste0("#", parent_id),</pre>
+                      <pre class="language-r">    #' @param x (`Date`)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">364</td>
-                    <td class="coverage">12<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          tags$div(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">365</td>
-                    <td class="coverage">12<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">            class = "filter-card-body",</pre>
+                      <pre class="language-r">    #'   variable to be filtered.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">366</td>
-                    <td class="coverage">12<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">            if (private$is_fixed()) {</pre>
+                      <pre class="language-r">    #' @param x_reactive (`reactive`)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">367</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">              private$ui_inputs_fixed(ns("inputs"))</pre>
+                      <pre class="language-r">    #'   returning vector of the same type as `x`. Is used to update</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">368</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            } else {</pre>
+                      <pre class="language-r">    #'   counts following the change in values of the filtered dataset.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">369</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">125</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              private$ui_inputs(ns("inputs"))</pre>
+                      <pre class="language-r">    #'   If it is set to `reactive(NULL)` then counts based on filtered</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">370</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">    #'   dataset are not shown.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">371</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">    #' @param slice (`teal_slice`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">372</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    #'   specification of this filter state.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">373</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    #'   `teal_slice` is stored in the object and `set_state` directly manipulates values within `teal_slice`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">374</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_state` returns `teal_slice` object which can be reused in other places.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">375</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #'   Note that `teal_slice` is a `reactiveValues`, which means it has reference semantics, i.e.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">376</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">    #'   changes made to an object are automatically reflected in all places that refer to the same `teal_slice`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">377</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Destroy observers stored in `private$observers`.</pre>
+                      <pre class="language-r">    #' @param extract_type (`character`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">378</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">    #'   specifying whether condition calls should be prefixed by `dataname`. Possible values:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">379</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `NULL`, invisibly.</pre>
+                      <pre class="language-r">    #' - `character(0)` (default) `varname` in the condition call will not be prefixed</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">380</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">    #' - `"list"` `varname` in the condition call will be returned as `&lt;dataname&gt;$&lt;varname&gt;`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">381</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    destroy_observers = function() {</pre>
+                      <pre class="language-r">    #' - `"matrix"` `varname` in the condition call will be returned as `&lt;dataname&gt;[, &lt;varname&gt;]`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">382</td>
-                    <td class="coverage">47<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">      if (!is.null(private$destroy_shiny)) {</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">383</td>
-                    <td class="coverage">8<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">        private$destroy_shiny()</pre>
+                      <pre class="language-r">    #' @return Object of class `DateFilterState`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">384</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">385</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    initialize = function(x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">386</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ),</pre>
+                      <pre class="language-r">                          x_reactive = reactive(NULL),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">387</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                          slice,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">388</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # private members ----</pre>
+                      <pre class="language-r">                          extract_type = character(0)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">389</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">145</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  private = list(</pre>
+                      <pre class="language-r">      isolate({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">390</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">146</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # set by constructor</pre>
+                      <pre class="language-r">        checkmate::assert_date(x)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">391</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">147</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = NULL, # the filtered variable</pre>
+                      <pre class="language-r">        checkmate::assert_class(x_reactive, "reactive")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">392</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_reactive = NULL, # reactive containing the filtered variable, used for updating counts and histograms</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">393</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">149</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal_slice = NULL, # stores all transferable properties of this filter state</pre>
+                      <pre class="language-r">        super$initialize(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">394</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">150</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extract_type = character(0), # used by private$get_varname_prefixed</pre>
+                      <pre class="language-r">          x = x,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">395</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">    na_count = integer(0),</pre>
+                      <pre class="language-r">          x_reactive = x_reactive,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">396</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">152</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    filtered_na_count = NULL, # reactive containing the count of NA in the filtered dataset</pre>
+                      <pre class="language-r">          slice = slice,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">397</td>
-                    <td class="coverage"></td>
+                  <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">    varlabel = character(0), # taken from variable labels in data; displayed in filter cards</pre>
+                      <pre class="language-r">          extract_type = extract_type</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">398</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    destroy_shiny = NULL, # function is set in server</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">399</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">155</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # other</pre>
+                      <pre class="language-r">        checkmate::assert_date(slice$choices, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">400</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">156</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    is_choice_limited = FALSE, # flag whether number of possible choices was limited when specifying filter</pre>
+                      <pre class="language-r">        private$set_choices(slice$choices)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">401</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">157</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    observers = list(), # stores observers</pre>
+                      <pre class="language-r">        if (is.null(slice$selected)) slice$selected &lt;- slice$choices</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">158</td>
+                    <td class="coverage">22<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        private$set_selected(slice$selected)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">402</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    state_history = NULL, # reactiveVal holding a list storing states this FilterState has had since instantiation</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">403</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
+                  <tr class="covered">
+                    <td class="num">161</td>
+                    <td class="coverage">21<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      invisible(self)</pre>
+                    </td>
+                  </tr>
                   <tr class="never">
-                    <td class="num">404</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # private methods ----</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">405</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">406</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # setters for state features ----</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">407</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' Returns reproducible condition call for current selection.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">408</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @description</pre>
+                      <pre class="language-r">    #' For this class returned call looks like</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">409</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Set values that can be selected from.</pre>
+                      <pre class="language-r">    #' `&lt;varname&gt; &gt;= &lt;min value&gt; &amp; &lt;varname&gt; &lt;= &lt;max value&gt;` with optional `is.na(&lt;varname&gt;)`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">410</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set_choices = function(choices) {</pre>
+                      <pre class="language-r">    #' @param dataname (`character(1)`) containing possibly prefixed name of data set</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">411</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">169</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stop("this is a virtual method")</pre>
+                      <pre class="language-r">    #' @return `call` or `NULL`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">412</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">413</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    get_call = function(dataname) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">414</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">172</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @description</pre>
+                      <pre class="language-r">      if (isFALSE(private$is_any_filtered())) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">173</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        return(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">415</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Set selection.</pre>
+                      <pre class="language-r">      }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">175</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      choices &lt;- as.character(private$get_selected())</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">176</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      varname &lt;- private$get_varname_prefixed(dataname)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">177</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      filter_call &lt;-</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">178</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        call(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">416</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #</pre>
+                      <pre class="language-r">          "&amp;",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">180</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          call("&gt;=", varname, call("as.Date", choices[1L])),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">181</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          call("&lt;=", varname, call("as.Date", choices[2L]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">417</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @param value (`vector`)</pre>
+                      <pre class="language-r">        )</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">183</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      private$add_keep_na_call(filter_call, varname)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">418</td>
+                    <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #   value(s) that come from filter selection; values are set in the</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">419</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #   module server after a selection is made in the app interface;</pre>
+                      <pre class="language-r">  ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">420</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #   values are stored in `teal_slice$selected` which is reactive;</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">421</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #   value types have to be the same as `private$get_choices()`</pre>
+                      <pre class="language-r">  # private methods ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">422</td>
+                    <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">423</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @return `NULL`, invisibly.</pre>
+                      <pre class="language-r">  private = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">424</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set_selected = function(value) {</pre>
+                      <pre class="language-r">    set_choices = function(choices) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">425</td>
-                    <td class="coverage">421<em>x</em></td>
+                    <td class="num">191</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      logger::log_trace(</pre>
+                      <pre class="language-r">      if (is.null(choices)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">426</td>
-                    <td class="coverage">421<em>x</em></td>
+                    <td class="num">192</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sprintf(</pre>
+                      <pre class="language-r">        choices &lt;- range(private$x, na.rm = TRUE)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">193</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">427</td>
-                    <td class="coverage">421<em>x</em></td>
+                    <td class="num">194</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "%s$set_selected setting selection of id: %s",</pre>
+                      <pre class="language-r">        choices_adjusted &lt;- c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">428</td>
-                    <td class="coverage">421<em>x</em></td>
+                    <td class="num">195</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          class(self)[1],</pre>
+                      <pre class="language-r">          max(choices[1L], min(private$x, na.rm = TRUE)),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">429</td>
-                    <td class="coverage">421<em>x</em></td>
+                    <td class="num">196</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          private$get_id()</pre>
+                      <pre class="language-r">          min(choices[2L], max(private$x, na.rm = TRUE))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">430</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">431</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">198</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">        if (any(choices != choices_adjusted)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">432</td>
-                    <td class="coverage">421<em>x</em></td>
+                    <td class="num">199</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      isolate({</pre>
+                      <pre class="language-r">          warning(sprintf(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">433</td>
-                    <td class="coverage">421<em>x</em></td>
+                    <td class="num">200</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        value &lt;- private$cast_and_validate(value)</pre>
+                      <pre class="language-r">            "Choices adjusted (some values outside of variable range). Varname: %s, dataname: %s.",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">434</td>
-                    <td class="coverage">410<em>x</em></td>
+                    <td class="num">201</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        value &lt;- private$check_length(value)</pre>
+                      <pre class="language-r">            private$get_varname(), private$get_dataname()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">435</td>
-                    <td class="coverage">404<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">202</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        value &lt;- private$remove_out_of_bounds_values(value)</pre>
+                      <pre class="language-r">          ))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">436</td>
-                    <td class="coverage">404<em>x</em></td>
+                    <td class="num">203</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$teal_slice$selected &lt;- value</pre>
+                      <pre class="language-r">          choices &lt;- choices_adjusted</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">437</td>
+                    <td class="num">204</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">438</td>
-                    <td class="coverage">404<em>x</em></td>
+                    <td class="num">205</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      logger::log_trace(</pre>
+                      <pre class="language-r">        if (choices[1L] &gt;= choices[2L]) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">439</td>
-                    <td class="coverage">404<em>x</em></td>
+                    <td class="num">206</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sprintf(</pre>
+                      <pre class="language-r">          warning(sprintf(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">440</td>
-                    <td class="coverage">404<em>x</em></td>
+                    <td class="num">207</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "%s$set_selected selection of id: %s",</pre>
+                      <pre class="language-r">            "Invalid choices: lower is higher / equal to upper, or not in range of variable values.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">441</td>
-                    <td class="coverage">404<em>x</em></td>
+                    <td class="num">208</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          class(self)[1],</pre>
+                      <pre class="language-r">            Setting defaults. Varname: %s, dataname: %s.",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">442</td>
-                    <td class="coverage">404<em>x</em></td>
+                    <td class="num">209</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          private$get_id()</pre>
+                      <pre class="language-r">            private$get_varname(), private$get_dataname()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">443</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>
-                  <tr class="never">
-                    <td class="num">444</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">211</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">          choices &lt;- range(private$x, na.rm = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">445</td>
+                    <td class="num">212</td>
                     <td class="coverage"></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="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">446</td>
-                    <td class="coverage">404<em>x</em></td>
+                    <td class="num">214</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(NULL)</pre>
+                      <pre class="language-r">      private$set_is_choice_limited(private$x, choices)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">447</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">215</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">      private$x &lt;- private$x[(private$x &gt;= choices[1L] &amp; private$x &lt;= choices[2L]) | is.na(private$x)]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">448</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">216</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      private$teal_slice$choices &lt;- choices</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">449</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">217</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @description</pre>
+                      <pre class="language-r">      invisible(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">450</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Sets `value` in `private$teal_slice$keep_na`.</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">451</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">452</td>
+                    <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @param value (`logical(1)`)</pre>
+                      <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">453</td>
+                    <td class="num">221</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #   corresponding to the state of a checkbox input in the `shiny` interface.</pre>
+                      <pre class="language-r">    # Check whether the initial choices filter out some values of x and set the flag in case.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">454</td>
+                    <td class="num">222</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #</pre>
+                      <pre class="language-r">    set_is_choice_limited = function(xl, choices) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">455</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">223</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @return `NULL`, invisibly.</pre>
+                      <pre class="language-r">      private$is_choice_limited &lt;- (any(xl &lt; choices[1L], na.rm = TRUE) | any(xl &gt; choices[2L], na.rm = TRUE))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">224</td>
+                    <td class="coverage">22<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      invisible(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">456</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">457</td>
+                    <td class="num">226</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set_keep_na = function(value) {</pre>
+                      <pre class="language-r">    cast_and_validate = function(values) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">458</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="num">227</td>
+                    <td class="coverage">33<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_flag(value)</pre>
+                      <pre class="language-r">      tryCatch(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">459</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="num">228</td>
+                    <td class="coverage">33<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$teal_slice$keep_na &lt;- value</pre>
+                      <pre class="language-r">        expr = {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">460</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="num">229</td>
+                    <td class="coverage">33<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      logger::log_trace(</pre>
+                      <pre class="language-r">          values &lt;- as.Date(values, origin = "1970-01-01")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">461</td>
-                    <td class="coverage">16<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">230</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sprintf(</pre>
+                      <pre class="language-r">          if (anyNA(values)) stop()</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">462</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="num">231</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "%s$set_keep_na set for filter %s to %s.",</pre>
+                      <pre class="language-r">          values</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">463</td>
-                    <td class="coverage">16<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">232</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          class(self)[1],</pre>
+                      <pre class="language-r">        },</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">464</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="num">233</td>
+                    <td class="coverage">33<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          private$get_id(),</pre>
+                      <pre class="language-r">        error = function(e) stop("Vector of set values must contain values coercible to Date.")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">465</td>
-                    <td class="coverage">16<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">          value</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">466</td>
+                    <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">467</td>
+                    <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    check_length = function(values) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">468</td>
-                    <td class="coverage">16<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">      invisible(NULL)</pre>
+                      <pre class="language-r">      if (length(values) != 2) stop("Vector of set values must have length two.")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">469</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">238</td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">      if (values[1] &gt; values[2]) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">470</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"></pre>
+                      <pre class="language-r">        warning(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">471</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">240</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @description</pre>
+                      <pre class="language-r">          sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">472</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">241</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Sets `value` in `private$teal_slice$keep_inf`.</pre>
+                      <pre class="language-r">            "Start date %s is set after the end date %s, the values will be replaced with a default date range.",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">473</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">242</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #</pre>
+                      <pre class="language-r">            values[1], values[2]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">474</td>
+                    <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @param value (`logical(1)`)</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">475</td>
+                    <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #   corresponding to the state of a checkbox input in the `shiny` interface.</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">476</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">245</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #</pre>
+                      <pre class="language-r">        values &lt;- isolate(private$get_choices())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">477</td>
+                    <td class="num">246</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @return `NULL`, invisibly.</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">478</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">247</td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #</pre>
+                      <pre class="language-r">      values</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">479</td>
+                    <td class="num">248</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set_keep_inf = function(value) {</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">480</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">249</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_flag(value)</pre>
+                      <pre class="language-r">    remove_out_of_bounds_values = function(values) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">481</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">250</td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$teal_slice$keep_inf &lt;- value</pre>
+                      <pre class="language-r">      choices &lt;- private$get_choices()</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">482</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">251</td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      logger::log_trace(</pre>
+                      <pre class="language-r">      if (values[1] &lt; choices[1L] | values[1] &gt; choices[2L]) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">483</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">252</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        sprintf(</pre>
+                      <pre class="language-r">        warning(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">484</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">253</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "%s$set_keep_inf of filter %s set to %s",</pre>
+                      <pre class="language-r">          sprintf(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">485</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">254</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          class(self)[1],</pre>
+                      <pre class="language-r">            "Value: %s is outside of the possible range for column %s of dataset %s, setting minimum possible value.",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">486</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">255</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          private$get_id(),</pre>
+                      <pre class="language-r">            values[1], private$get_varname(), private$get_dataname()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">487</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">256</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">488</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">258</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        values[1] &lt;- choices[1L]</pre>
+                    </td>
+                  </tr>
                   <tr class="never">
-                    <td class="num">489</td>
+                    <td class="num">259</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">490</td>
+                    <td class="num">260</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">491</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">261</td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(NULL)</pre>
+                      <pre class="language-r">      if (values[2] &gt; choices[2L] | values[2] &lt; choices[1L]) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">492</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">262</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">        warning(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">493</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">263</td>
+                    <td class="coverage">5<em>x</em></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">494</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">264</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # getters for state features ----</pre>
+                      <pre class="language-r">            "Value: %s is outside of the possible range for column %s of dataset %s, setting maximum possible value.",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">495</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">265</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            values[2], private$get_varname(), private$get_dataname()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">496</td>
+                    <td class="num">266</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">497</td>
+                    <td class="num">267</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Returns dataname.</pre>
+                      <pre class="language-r">        )</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">268</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        values[2] &lt;- choices[2L]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">498</td>
+                    <td class="num">269</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @return `character(1)`</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">499</td>
+                    <td class="num">270</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_dataname = function() {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">500</td>
-                    <td class="coverage">88<em>x</em></td>
+                    <td class="num">271</td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      isolate(private$teal_slice$dataname)</pre>
+                      <pre class="language-r">      values</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">501</td>
+                    <td class="num">272</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">502</td>
+                    <td class="num">273</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">503</td>
+                    <td class="num">274</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @description</pre>
+                      <pre class="language-r">    # shiny modules ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">504</td>
+                    <td class="num">275</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Get variable name.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">505</td>
+                    <td class="num">276</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @return `character(1)`</pre>
+                      <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">506</td>
+                    <td class="num">277</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_varname = function() {</pre>
+                      <pre class="language-r">    # UI Module for `DateFilterState`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">507</td>
-                    <td class="coverage">166<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">278</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      isolate(private$teal_slice$varname)</pre>
+                      <pre class="language-r">    # This UI element contains two date selections for `min` and `max`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">508</td>
+                    <td class="num">279</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">    # of the range and a checkbox whether to keep the `NA` values.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">509</td>
+                    <td class="num">280</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # @param id (`character(1)`) `shiny` module instance id.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">510</td>
+                    <td class="num">281</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @description</pre>
+                      <pre class="language-r">    ui_inputs = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">511</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">    # Get id of the teal_slice.</pre>
+                      <pre class="language-r">      ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">512</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">    # @return `character(1)`</pre>
+                      <pre class="language-r">      isolate({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">513</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">284</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_id = function() {</pre>
+                      <pre class="language-r">        tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">514</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">285</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      isolate(private$teal_slice$id)</pre>
+                      <pre class="language-r">          tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">515</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">    },</pre>
+                      <pre class="language-r">            class = "flex",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">516</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">287</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            actionButton(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">517</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">288</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @description</pre>
+                      <pre class="language-r">              class = "date_reset_button",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">518</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">    # Get allowed values from `FilterState`.</pre>
+                      <pre class="language-r">              inputId = ns("start_date_reset"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">519</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">    # @return</pre>
+                      <pre class="language-r">              label = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">520</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">    # Vector describing the available choices. Return type depends on the `FilterState` subclass.</pre>
+                      <pre class="language-r">              icon = icon("fas fa-undo")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">521</td>
+                    <td class="num">292</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_choices = function() {</pre>
+                      <pre class="language-r">            ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">522</td>
-                    <td class="coverage">930<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">293</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      isolate(private$teal_slice$choices)</pre>
+                      <pre class="language-r">            tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">523</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">              class = "w-80 filter_datelike_input",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">524</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">              dateRangeInput(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">525</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">    # @description</pre>
+                      <pre class="language-r">                inputId = ns("selection"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">526</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">    # Get selected values from `FilterState`.</pre>
+                      <pre class="language-r">                label = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">527</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">    # @return</pre>
+                      <pre class="language-r">                start = private$get_selected()[1],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">528</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">    # Vector describing the current selection. Return type depends on the `FilterState` subclass.</pre>
+                      <pre class="language-r">                end = private$get_selected()[2],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">529</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">    get_selected = function() {</pre>
+                      <pre class="language-r">                min = private$get_choices()[1L],</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">530</td>
-                    <td class="coverage">362<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">301</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$teal_slice$selected</pre>
+                      <pre class="language-r">                max = private$get_choices()[2L],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">531</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">                width = "100%"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">532</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">533</td>
+                    <td class="num">304</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">534</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">    # Returns current `keep_na` selection.</pre>
+                      <pre class="language-r">            actionButton(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">535</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">    # @return `logical(1)`</pre>
+                      <pre class="language-r">              class = "date_reset_button",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">536</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">    get_keep_na = function() {</pre>
+                      <pre class="language-r">              inputId = ns("end_date_reset"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">537</td>
-                    <td class="coverage">129<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">308</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$teal_slice$keep_na</pre>
+                      <pre class="language-r">              label = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">538</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">    },</pre>
+                      <pre class="language-r">              icon = icon("fas fa-undo")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">539</td>
+                    <td class="num">310</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">540</td>
+                    <td class="num">311</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">541</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">312</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Returns current `keep_inf` selection.</pre>
+                      <pre class="language-r">          private$keep_na_ui(ns("keep_na"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">542</td>
+                    <td class="num">313</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @return (`logical(1)`)</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">543</td>
+                    <td class="num">314</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_keep_inf = function() {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">544</td>
-                    <td class="coverage">117<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      private$teal_slice$keep_inf</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">545</td>
+                    <td class="num">315</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">546</td>
+                    <td class="num">316</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">547</td>
+                    <td class="num">317</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Check whether this filter is fixed (cannot be changed).</pre>
+                      <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">548</td>
+                    <td class="num">318</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @return `logical(1)`</pre>
+                      <pre class="language-r">    # Server module</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">549</td>
+                    <td class="num">319</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    is_fixed = function() {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">550</td>
-                    <td class="coverage">148<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      isolate(isTRUE(private$teal_slice$fixed))</pre>
+                      <pre class="language-r">    # @param id (`character(1)`) `shiny` module instance id.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">551</td>
+                    <td class="num">320</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">552</td>
+                    <td class="num">321</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    server_inputs = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">553</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">    # Check whether this filter is anchored (cannot be removed).</pre>
+                      <pre class="language-r">      moduleServer(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">554</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">    # @return `logical(1)`</pre>
+                      <pre class="language-r">        id = id,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">555</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">    is_anchored = function() {</pre>
+                      <pre class="language-r">        function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">556</td>
-                    <td class="coverage">48<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">325</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      isolate(isTRUE(private$teal_slice$anchored))</pre>
+                      <pre class="language-r">          logger::log_trace("DateFilterState$server initializing, id: { private$get_id() }")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">557</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">558</td>
+                    <td class="num">327</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          # this observer is needed in the situation when teal_slice$selected has been</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">559</td>
+                    <td class="num">328</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Check whether this filter is capable of selecting multiple values.</pre>
+                      <pre class="language-r">          # changed directly by the api - then it's needed to rerender UI element</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">560</td>
+                    <td class="num">329</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @return `logical(1)`</pre>
+                      <pre class="language-r">          # to show relevant values</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">561</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">    is_multiple = function() {</pre>
+                      <pre class="language-r">          private$observers$seletion_api &lt;- observeEvent(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">562</td>
-                    <td class="coverage">218<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">331</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      isolate(isTRUE(private$teal_slice$multiple))</pre>
+                      <pre class="language-r">            ignoreNULL = TRUE, # dates needs to be selected</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">563</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">    },</pre>
+                      <pre class="language-r">            ignoreInit = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">564</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"></pre>
+                      <pre class="language-r">            eventExpr = private$get_selected(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">565</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">334</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # other ----</pre>
+                      <pre class="language-r">            handlerExpr = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">566</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">335</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">              if (!setequal(private$get_selected(), input$selection)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">567</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">    # @description</pre>
+                      <pre class="language-r">                logger::log_trace("DateFilterState$server@1 state changed, id: { private$get_id() }")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">568</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">    # Returns variable label.</pre>
+                      <pre class="language-r">                updateDateRangeInput(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">569</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">338</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @return `character(1)`</pre>
+                      <pre class="language-r">                  session = session,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">570</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">    get_varlabel = function() {</pre>
+                      <pre class="language-r">                  inputId = "selection",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">571</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">340</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$varlabel</pre>
+                      <pre class="language-r">                  start = private$get_selected()[1],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">572</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">341</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">                  end = private$get_selected()[2]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">573</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">574</td>
+                    <td class="num">343</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">575</td>
+                    <td class="num">344</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Return variable name prefixed by `dataname` to be evaluated as extracted object, for example `data$var`</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">576</td>
+                    <td class="num">345</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @return Call that extracts the variable from the dataset.</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">577</td>
+                    <td class="num">346</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_varname_prefixed = function(dataname) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">578</td>
-                    <td class="coverage">109<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">347</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      varname &lt;- private$get_varname()</pre>
+                      <pre class="language-r">          private$observers$selection &lt;- observeEvent(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">579</td>
-                    <td class="coverage">109<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">348</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      varname_backticked &lt;- sprintf("`%s`", varname)</pre>
+                      <pre class="language-r">            ignoreNULL = TRUE, # dates needs to be selected</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">580</td>
-                    <td class="coverage">109<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">349</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ans &lt;-</pre>
+                      <pre class="language-r">            ignoreInit = TRUE, # ignoreInit: should not matter because we set the UI with the desired initial state</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">581</td>
-                    <td class="coverage">109<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">350</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (isTRUE(private$extract_type == "list")) {</pre>
+                      <pre class="language-r">            eventExpr = input$selection,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">582</td>
-                    <td class="coverage">16<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">351</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          sprintf("%s$%s", dataname, varname_backticked)</pre>
+                      <pre class="language-r">            handlerExpr = {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">583</td>
-                    <td class="coverage">109<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">352</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else if (isTRUE(private$extract_type == "matrix")) {</pre>
+                      <pre class="language-r">              logger::log_trace("DateFilterState$server@2 selection changed, id: { private$get_id() }")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">584</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">353</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          sprintf("%s[, \"%s\"]", dataname, varname)</pre>
+                      <pre class="language-r">              start_date &lt;- input$selection[1]</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">354</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              end_date &lt;- input$selection[2]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">585</td>
+                    <td class="num">355</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">586</td>
-                    <td class="coverage">86<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">356</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          varname_backticked</pre>
+                      <pre class="language-r">              if (is.na(start_date) || is.na(end_date) || start_date &gt; end_date) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">587</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">        }</pre>
+                      <pre class="language-r">                updateDateRangeInput(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">588</td>
-                    <td class="coverage">109<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">358</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      str2lang(ans)</pre>
+                      <pre class="language-r">                  session = session,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">589</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">    },</pre>
+                      <pre class="language-r">                  inputId = "selection",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">590</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"></pre>
+                      <pre class="language-r">                  start = private$get_selected()[1],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">591</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">    # @description</pre>
+                      <pre class="language-r">                  end = private$get_selected()[2]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">592</td>
+                    <td class="num">362</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Adds `is.na(varname)` moiety to the existing condition call, according to `keep_na` status.</pre>
+                      <pre class="language-r">                )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">593</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">    # @param filter_call `call` raw filter call, as defined by selection</pre>
+                      <pre class="language-r">                showNotification(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">594</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">    # @param varname `character(1)` name of a variable</pre>
+                      <pre class="language-r">                  "Start date must not be greater than the end date. Setting back to previous value.",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">365</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">595</td>
+                    <td class="num">366</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @return `call`</pre>
+                      <pre class="language-r">                )</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">367</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                return(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">596</td>
+                    <td class="num">368</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    add_keep_na_call = function(filter_call, varname) {</pre>
+                      <pre class="language-r">              }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">597</td>
+                    <td class="num">369</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # No need to deal with NAs.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">598</td>
-                    <td class="coverage">108<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">370</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (private$na_count == 0L) {</pre>
+                      <pre class="language-r">              private$set_selected(c(start_date, end_date))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">599</td>
-                    <td class="coverage">87<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">371</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        return(filter_call)</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">600</td>
+                    <td class="num">372</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">601</td>
+                    <td class="num">373</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">602</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">374</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (is.null(filter_call) &amp;&amp; isFALSE(private$get_keep_na())) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">603</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">375</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        call("!", call("is.na", varname))</pre>
+                      <pre class="language-r">          private$keep_na_srv("keep_na")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">604</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">376</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (!is.null(filter_call) &amp;&amp; isTRUE(private$get_keep_na())) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">605</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">377</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        call("|", call("is.na", varname), filter_call)</pre>
+                      <pre class="language-r">          private$observers$reset1 &lt;- observeEvent(input$start_date_reset, {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">606</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">378</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (!is.null(filter_call) &amp;&amp; isFALSE(private$get_keep_na())) {</pre>
+                      <pre class="language-r">            logger::log_trace("DateFilterState$server@3 reset start date, id: { private$get_id() }")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">607</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">379</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        call("&amp;", call("!", call("is.na", varname)), filter_call)</pre>
+                      <pre class="language-r">            updateDateRangeInput(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">380</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              session = session,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">381</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              inputId = "selection",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">382</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              start = private$get_choices()[1L]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">608</td>
+                    <td class="num">383</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">609</td>
+                    <td class="num">384</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">          })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">610</td>
+                    <td class="num">385</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">611</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">386</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Converts values to the type fitting this `FilterState` and validates the conversion.</pre>
+                      <pre class="language-r">          private$observers$reset2 &lt;- observeEvent(input$end_date_reset, {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">612</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">387</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Raises error if casting does not execute successfully.</pre>
+                      <pre class="language-r">            logger::log_trace("DateFilterState$server@4 reset end date, id: { private$get_id() }")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">613</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">388</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #</pre>
+                      <pre class="language-r">            updateDateRangeInput(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">614</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">    # @param values vector of values</pre>
+                      <pre class="language-r">              session = session,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">390</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              inputId = "selection",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">391</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              end = private$get_choices()[2L]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">615</td>
+                    <td class="num">392</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">616</td>
+                    <td class="num">393</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @return vector converted to appropriate class</pre>
+                      <pre class="language-r">          })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">617</td>
+                    <td class="num">394</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    cast_and_validate = function(values) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">618</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">395</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      values</pre>
+                      <pre class="language-r">          logger::log_trace("DateFilterState$server initialized, id: { private$get_id() }")</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">396</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">619</td>
+                    <td class="num">397</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">620</td>
+                    <td class="num">398</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">621</td>
+                    <td class="num">399</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Checks length of selection.</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">622</td>
+                    <td class="num">400</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    check_length = function(values) {</pre>
+                      <pre class="language-r">    server_inputs_fixed = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">623</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">401</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      values</pre>
+                      <pre class="language-r">      moduleServer(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">624</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">402</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">        id = id,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">625</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">403</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">626</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">404</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Filters out erroneous values from vector.</pre>
+                      <pre class="language-r">          logger::log_trace("DateFilterState$server initializing, id: { private$get_id() }")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">627</td>
+                    <td class="num">405</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">628</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">406</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @param values vector of values</pre>
+                      <pre class="language-r">          output$selection &lt;- renderUI({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">629</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">407</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #</pre>
+                      <pre class="language-r">            vals &lt;- format(private$get_selected(), nsmall = 3)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">630</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">408</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @return vector in which values that cannot be set in this FilterState have been dropped</pre>
+                      <pre class="language-r">            tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">631</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">409</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    remove_out_of_bounds_values = function(values) {</pre>
+                      <pre class="language-r">              tags$div(icon("calendar-days"), vals[1]),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">632</td>
-                    <td class="coverage">31<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">410</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      values</pre>
+                      <pre class="language-r">              tags$div(span(" - "), icon("calendar-days"), vals[2])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">633</td>
+                    <td class="num">411</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">634</td>
+                    <td class="num">412</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">635</td>
+                    <td class="num">413</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Checks if the selection is valid in terms of class and length.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">636</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">414</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # It should not return anything but raise an error if selection</pre>
+                      <pre class="language-r">          logger::log_trace("DateFilterState$server initialized, id: { private$get_id() }")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">637</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">415</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # has a wrong class or is outside of possible choices</pre>
+                      <pre class="language-r">          NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">638</td>
+                    <td class="num">416</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    validate_selection = function(value) {</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">639</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">417</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">640</td>
+                    <td class="num">418</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">641</td>
+                    <td class="num">419</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">642</td>
+                    <td class="num">420</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">643</td>
+                    <td class="num">421</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Checks whether the current settings actually cause any values to be omitted.</pre>
+                      <pre class="language-r">    # Server module to display filter summary</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">644</td>
+                    <td class="num">422</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @return logical scalar</pre>
+                      <pre class="language-r">    #  renders text describing selected date range and</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">645</td>
+                    <td class="num">423</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    is_any_filtered = function() {</pre>
+                      <pre class="language-r">    #  if NA are included also</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">646</td>
-                    <td class="coverage">75<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">      if (private$is_choice_limited) {</pre>
+                      <pre class="language-r">    content_summary = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">647</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">425</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        TRUE</pre>
+                      <pre class="language-r">      selected &lt;- as.character(private$get_selected())</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">648</td>
-                    <td class="coverage">69<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">426</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (!setequal(private$get_selected(), private$get_choices())) {</pre>
+                      <pre class="language-r">      min &lt;- selected[1]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">649</td>
-                    <td class="coverage">56<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">427</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        TRUE</pre>
+                      <pre class="language-r">      max &lt;- selected[2]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">650</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">428</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (!isTRUE(private$get_keep_na()) &amp;&amp; private$na_count &gt; 0) {</pre>
+                      <pre class="language-r">      tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">651</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">429</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        TRUE</pre>
+                      <pre class="language-r">        tags$span(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">652</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">430</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">          class = "filter-card-summary-value",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">653</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">431</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        FALSE</pre>
+                      <pre class="language-r">          HTML(min, "&amp;ndash;", max)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">654</td>
+                    <td class="num">432</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">655</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">433</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">        tags$span(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">656</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">434</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          class = "filter-card-summary-controls",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">657</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">435</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # shiny modules -----</pre>
+                      <pre class="language-r">          if (private$na_count &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">658</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">436</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            tags$span("NA", if (isTRUE(private$get_keep_na())) icon("check") else icon("xmark"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">659</td>
+                    <td class="num">437</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">660</td>
+                    <td class="num">438</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Server module to display filter summary</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">661</td>
+                    <td class="num">439</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @param id (`character(1)`) `shiny` module instance id.</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">662</td>
+                    <td class="num">440</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_summary = function(id) {</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">663</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">441</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">664</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">442</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      uiOutput(ns("summary"), class = "filter-card-summary")</pre>
+                      <pre class="language-r">)</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">665</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#' Complete filter specification</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">666</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">667</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @description</pre>
+                      <pre class="language-r">#' Create `teal_slices` object to package multiple filters and additional settings.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">668</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # UI module to display filter summary</pre>
+                      <pre class="language-r">#' Check out [`teal_slices-utilities`] functions for working with `teal_slices` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">669</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @param id (`character(1)`) `shiny` module instance id.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">670</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @return Nothing. Renders the UI.</pre>
+                      <pre class="language-r">#' `teal_slices()` collates multiple `teal_slice` objects into a `teal_slices` object,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">671</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server_summary = function(id) {</pre>
+                      <pre class="language-r">#' a complete filter specification. This is used by all classes above `FilterState`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">672</td>
-                    <td class="coverage">12<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">      moduleServer(</pre>
+                      <pre class="language-r">#' as well as `filter_panel_api` wrapper functions.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">673</td>
-                    <td class="coverage">12<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">        id = id,</pre>
+                      <pre class="language-r">#' `teal_slices` has attributes that modify the behavior of the filter panel, which are resolved by different classes.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">674</td>
-                    <td class="coverage">12<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">        function(input, output, session) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">675</td>
-                    <td class="coverage">12<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">          output$summary &lt;- renderUI(private$content_summary())</pre>
+                      <pre class="language-r">#' `include_varnames` and `exclude_varnames` determine which variables can have filters assigned.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">676</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">#' The former enumerates allowed variables, the latter enumerates forbidden values.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">677</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' Since these could be mutually exclusive, it is impossible to set both allowed and forbidden</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">678</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#' variables for one data set in one `teal_slices`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">679</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">680</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # module with inputs</pre>
+                      <pre class="language-r">#' @param ... any number of `teal_slice` objects.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">681</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_inputs = function(id) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">682</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      stop("abstract class")</pre>
+                      <pre class="language-r">#' @param include_varnames,exclude_varnames (`named list`s of `character`) where list names</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">683</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#'  match names of data sets and vector elements match variable names in respective data sets;</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">684</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # module with inputs</pre>
+                      <pre class="language-r">#'  specify which variables are allowed to be filtered; see `Details`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">685</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server_inputs = function(id) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">686</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      stop("abstract class")</pre>
+                      <pre class="language-r">#' @param count_type `r lifecycle::badge("experimental")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">687</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#' _This is a new feature. Do kindly share your opinions on</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">688</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' [`teal.slice`'s GitHub repository](https://github.com/insightsengineering/teal.slice/)._</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">689</td>
+                    <td class="num">23</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">690</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Module displaying inputs in a fixed filter state.</pre>
+                      <pre class="language-r">#'  (`character(1)`) string specifying how observations are tallied by these filter states.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">691</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # There are no input widgets, only selection visualizations.</pre>
+                      <pre class="language-r">#'  Possible options:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">692</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @param id (`character(1)`) `shiny` module instance id.</pre>
+                      <pre class="language-r">#'  - `"none"` (default) to have counts of single `FilterState` to show unfiltered number only.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">693</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_inputs_fixed = function(id) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">694</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">695</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">696</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        class = "choices_state",</pre>
+                      <pre class="language-r">#'  - `"all"` to have counts of single `FilterState` to show number of observation in filtered</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">697</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">        uiOutput(ns("selection"))</pre>
+                      <pre class="language-r">#'   and unfiltered dataset. Note, that issues were reported when using this option with `MultiAssayExperiment`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">698</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'   Please make sure that adding new filters doesn't fail on target platform before deploying for production.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">699</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#' @param allow_add (`logical(1)`) logical flag specifying whether the user will be able to add new filters</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">700</td>
+                    <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">701</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @description</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">702</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Module creating the display of a fixed filter state.</pre>
+                      <pre class="language-r">#' `teal_slices`, which is an unnamed list of `teal_slice` objects.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">703</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @param id (`character(1)`) `shiny` module instance id.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">704</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server_inputs_fixed = function(id) {</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">705</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">      stop("abstract class")</pre>
+                      <pre class="language-r">#' filter_1 &lt;- teal_slice(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">706</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#'   dataname = "dataname1",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">707</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   varname = "varname1",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">708</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @description</pre>
+                      <pre class="language-r">#'   choices = letters,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">709</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Module UI function displaying input to keep or remove NA in the `FilterState` call.</pre>
+                      <pre class="language-r">#'   selected = "b",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">710</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Renders a checkbox input only when variable with which `FilterState` has been created contains NAs.</pre>
+                      <pre class="language-r">#'   keep_na = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">711</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @param id (`character(1)`) `shiny` module instance id.</pre>
+                      <pre class="language-r">#'   fixed = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">712</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    keep_na_ui = function(id) {</pre>
+                      <pre class="language-r">#'   extra1 = "extraone"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">713</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">44</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">714</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">      if (private$na_count &gt; 0) {</pre>
+                      <pre class="language-r">#' filter_2 &lt;- teal_slice(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">715</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">        isolate({</pre>
+                      <pre class="language-r">#'   dataname = "dataname1",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">716</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">          countmax &lt;- private$na_count</pre>
+                      <pre class="language-r">#'   varname = "varname2",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">717</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">          countnow &lt;- private$filtered_na_count()</pre>
+                      <pre class="language-r">#'   choices = 1:10,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">718</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">          ui_input &lt;- checkboxInput(</pre>
+                      <pre class="language-r">#'   keep_na = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">719</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">            inputId = ns("value"),</pre>
+                      <pre class="language-r">#'   selected = 2,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">720</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">            label = tags$span(</pre>
+                      <pre class="language-r">#'   fixed = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">721</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">52</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              id = ns("count_label"),</pre>
+                      <pre class="language-r">#'   anchored = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">722</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">53</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              make_count_text(</pre>
+                      <pre class="language-r">#'   extra2 = "extratwo"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">723</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">54</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                label = "Keep NA",</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">724</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">55</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                countmax = countmax,</pre>
+                      <pre class="language-r">#' filter_3 &lt;- teal_slice(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">725</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">56</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                countnow = countnow</pre>
+                      <pre class="language-r">#'   dataname = "dataname2",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">726</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r">#'   varname = "varname3",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">727</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ),</pre>
+                      <pre class="language-r">#'   choices = 1:10 / 10,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">728</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">            value = private$get_keep_na()</pre>
+                      <pre class="language-r">#'   keep_na = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">729</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#'   selected = 0.2,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">730</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">          tags$div(</pre>
+                      <pre class="language-r">#'   fixed = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">731</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">62</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            uiOutput(ns("trigger_visible"), inline = TRUE),</pre>
+                      <pre class="language-r">#'   anchored = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">732</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">            ui_input</pre>
+                      <pre class="language-r">#'   extra1 = "extraone",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">733</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#'   extra2 = "extratwo"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">734</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">735</td>
+                    <td class="num">66</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">736</td>
-                    <td class="coverage">12<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">        NULL</pre>
+                      <pre class="language-r">#' all_filters &lt;- teal_slices(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">737</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'   filter_1,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">738</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#'   filter_2,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">739</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   filter_3,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">740</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @description</pre>
+                      <pre class="language-r">#'   exclude_varnames = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">741</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Module server function to handle NA values in the `FilterState`.</pre>
+                      <pre class="language-r">#'     "dataname1" = "varname2"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">742</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Sets `private$slice$keep_na` according to the selection</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">743</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # and updates the relevant UI element if `private$slice$keep_na` has been changed by the api.</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">744</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @param id (`character(1)`) `shiny` module instance id.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">745</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @return `NULL`, invisibly.</pre>
+                      <pre class="language-r">#' is.teal_slices(all_filters)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">746</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    keep_na_srv = function(id) {</pre>
+                      <pre class="language-r">#' all_filters[1:2]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">747</td>
-                    <td class="coverage">12<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">      moduleServer(id, function(input, output, session) {</pre>
+                      <pre class="language-r">#' c(all_filters[1], all_filters[2])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">748</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # 1. renderUI is used here as an observer which triggers only if output is visible</pre>
+                      <pre class="language-r">#' print(all_filters)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">749</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        #  and if the reactive changes - reactive triggers only if the output is visible.</pre>
+                      <pre class="language-r">#' print(all_filters, trim_lines = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">750</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # 2. We want to trigger change of the labels only if reactive count changes (not underlying data)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">751</td>
-                    <td class="coverage">12<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">        output$trigger_visible &lt;- renderUI({</pre>
+                      <pre class="language-r">#' @seealso</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">752</td>
-                    <td class="coverage">12<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">          updateCountText(</pre>
+                      <pre class="language-r">#' - [`teal_slice`] for creating constituent elements of `teal_slices`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">753</td>
-                    <td class="coverage">12<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">            inputId = "count_label",</pre>
+                      <pre class="language-r">#' - [`teal::slices_store`] for robust utilities for saving and loading `teal_slices` in `JSON` format</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">754</td>
-                    <td class="coverage">12<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">            label = "Keep NA",</pre>
+                      <pre class="language-r">#' - [`is.teal_slices`], [`as.teal_slices`], [`as.list.teal_slices`], [`[.teal_slices`], [`c.teal_slices`]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">755</td>
-                    <td class="coverage">12<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">            countmax = private$na_count,</pre>
+                      <pre class="language-r">#' [`print.teal_slices`], [`format.teal_slices`]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">756</td>
-                    <td class="coverage">12<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">            countnow = private$filtered_na_count()</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">757</td>
+                    <td class="num">88</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="covered">
-                    <td class="num">758</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">89</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">759</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        })</pre>
+                      <pre class="language-r">teal_slices &lt;- function(...,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">760</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                        exclude_varnames = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">761</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # this observer is needed in the situation when private$keep_inf has been</pre>
+                      <pre class="language-r">                        include_varnames = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">762</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # changed directly by the api - then it's needed to rerender UI element</pre>
+                      <pre class="language-r">                        count_type = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">763</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # to show relevant values</pre>
+                      <pre class="language-r">                        allow_add = TRUE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">764</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">95</td>
+                    <td class="coverage">764<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$observers$keep_na_api &lt;- observeEvent(</pre>
+                      <pre class="language-r">  slices &lt;- list(...)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">765</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">96</td>
+                    <td class="coverage">764<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ignoreNULL = FALSE, # nothing selected is possible for NA</pre>
+                      <pre class="language-r">  checkmate::assert_list(slices, types = "teal_slice", any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">766</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">97</td>
+                    <td class="coverage">763<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ignoreInit = TRUE, # ignoreInit: should not matter because we set the UI with the desired initial state</pre>
+                      <pre class="language-r">  slices_id &lt;- isolate(vapply(slices, `[[`, character(1L), "id"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">767</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">98</td>
+                    <td class="coverage">763<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          eventExpr = private$get_keep_na(),</pre>
+                      <pre class="language-r">  if (any(duplicated(slices_id))) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">768</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">99</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          handlerExpr = {</pre>
+                      <pre class="language-r">    stop(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">769</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">100</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (!setequal(private$get_keep_na(), input$value)) {</pre>
+                      <pre class="language-r">      "Some teal_slice objects have the same id:\n",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">770</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">101</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              logger::log_trace("FilterState$keep_na_srv@1 changed reactive value, id: { private$get_id() }")</pre>
+                      <pre class="language-r">      toString(unique(slices_id[duplicated(slices_id)]))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">771</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">102</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              updateCheckboxInput(</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">772</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">                inputId = "value",</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">773</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">104</td>
+                    <td class="coverage">762<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                label = sprintf("Keep NA (%s/%s)", private$filtered_na_count(), private$na_count),</pre>
+                      <pre class="language-r">  checkmate::assert_list(exclude_varnames, names = "named", types = "character", null.ok = TRUE, min.len = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">774</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">105</td>
+                    <td class="coverage">761<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                value = private$get_keep_na()</pre>
+                      <pre class="language-r">  checkmate::assert_list(include_varnames, names = "named", types = "character", null.ok = TRUE, min.len = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">775</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">106</td>
+                    <td class="coverage">760<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r">  checkmate::assert_character(count_type, len = 1, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">776</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">107</td>
+                    <td class="coverage">758<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">  checkmate::assert_subset(count_type, choices = c("all", "none"), empty.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">777</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">108</td>
+                    <td class="coverage">757<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">  checkmate::assert_logical(allow_add)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">778</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="covered">
-                    <td class="num">779</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">110</td>
+                    <td class="coverage">756<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$observers$keep_na &lt;- observeEvent(</pre>
+                      <pre class="language-r">  duplicated_datasets &lt;- intersect(names(include_varnames), names(exclude_varnames))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">780</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">111</td>
+                    <td class="coverage">756<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ignoreNULL = FALSE, # ignoreNULL: we don't want to ignore NULL when nothing is selected in the `selectInput`</pre>
+                      <pre class="language-r">  if (length(duplicated_datasets)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">781</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">112</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ignoreInit = TRUE, # ignoreInit: should not matter because we set the UI with the desired initial state</pre>
+                      <pre class="language-r">    stop(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">782</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">113</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          eventExpr = input$value,</pre>
+                      <pre class="language-r">      "Some datasets are specified in both, include_varnames and exclude_varnames:\n",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">783</td>
-                    <td class="coverage">12<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          handlerExpr = {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">784</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            logger::log_trace("FilterState$keep_na_srv@2 changed input, id: { private$get_id() }")</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">785</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            keep_na &lt;- if (is.null(input$value)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">786</td>
-                    <td class="coverage">!</td>
+                    <td class="num">114</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              FALSE</pre>
+                      <pre class="language-r">      toString(duplicated_datasets)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">787</td>
+                    <td class="num">115</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">788</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">              input$value</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">789</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="missed">
-                    <td class="num">790</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">118</td>
+                    <td class="coverage">755<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            private$set_keep_na(keep_na)</pre>
+                      <pre class="language-r">  structure(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">791</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">119</td>
+                    <td class="coverage">755<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">    slices,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">792</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">120</td>
+                    <td class="coverage">755<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    exclude_varnames = exclude_varnames,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">793</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">121</td>
+                    <td class="coverage">755<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        invisible(NULL)</pre>
+                      <pre class="language-r">    include_varnames = include_varnames,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">794</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">122</td>
+                    <td class="coverage">755<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">    count_type = count_type,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">795</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">123</td>
+                    <td class="coverage">755<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">796</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">124</td>
+                    <td class="coverage">755<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    class = c("teal_slices", class(slices))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">797</td>
+                    <td class="num">125</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/FilterStateLogical.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># LogicalFilterState ------</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">127</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">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name LogicalFilterState</pre>
+                      <pre class="language-r">#' `teal_slices` utility functions</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @docType class</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' Helper functions for working with [`teal_slices`] object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @title `FilterState` object for logical data</pre>
+                      <pre class="language-r">#' @param x object to test for `teal_slices`, object to convert to `teal_slices` or a `teal_slices` object</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param i (`character` or `numeric` or `logical`) indicating which elements to extract</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description Manages choosing a logical state.</pre>
+                      <pre class="language-r">#' @param recursive (`logical(1)`) flag specifying whether to also convert to list the elements of this `teal_slices`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param ... additional arguments passed to other functions.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @name teal_slices-utilities</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # use non-exported function from teal.slice</pre>
+                      <pre class="language-r">#' @inherit teal_slices examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' include_css_files &lt;- getFromNamespace("include_css_files", "teal.slice")</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' include_js_files &lt;- getFromNamespace("include_js_files", "teal.slice")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' LogicalFilterState &lt;- getFromNamespace("LogicalFilterState", "teal.slice")</pre>
+                      <pre class="language-r">#' @rdname teal_slices-utilities</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">140</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">16</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(shiny)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">is.teal_slices &lt;- function(x) { # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">143</td>
+                    <td class="coverage">465<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' filter_state &lt;- LogicalFilterState$new(</pre>
+                      <pre class="language-r">  inherits(x, "teal_slices")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   x = sample(c(TRUE, FALSE, NA), 10, replace = TRUE),</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   slice = teal_slice(varname = "x", dataname = "data")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' @rdname teal_slices-utilities</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' isolate(filter_state$get_call())</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' filter_state$set_state(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   teal_slice(dataname = "data", varname = "x", selected = TRUE, keep_na = TRUE)</pre>
+                      <pre class="language-r">as.teal_slices &lt;- function(x) { # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">150</td>
+                    <td class="coverage">!</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">26</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">151</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' isolate(filter_state$get_call())</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">27</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">153</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # working filter in an app</pre>
+                      <pre class="language-r">  attrs &lt;- attributes(unclass(x))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</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">#' library(shinyjs)</pre>
+                      <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="never">
-                    <td class="num">30</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">  do.call(teal_slices, c(ans, attrs))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data_logical &lt;- c(sample(c(TRUE, FALSE), 10, replace = TRUE), NA)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' fs &lt;- LogicalFilterState$new(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   x = data_logical,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   slice = teal_slice(dataname = "data", varname = "x", selected = FALSE, keep_na = TRUE)</pre>
+                      <pre class="language-r">#' @rdname teal_slices-utilities</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">160</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">36</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">37</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
+                      <pre class="language-r">as.list.teal_slices &lt;- function(x, recursive = FALSE, ...) { # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">163</td>
+                    <td class="coverage">1077<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   useShinyjs(),</pre>
+                      <pre class="language-r">  ans &lt;- unclass(x)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">39</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">164</td>
+                    <td class="coverage">45<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   include_css_files(pattern = "filter-panel"),</pre>
+                      <pre class="language-r">  if (recursive) ans[] &lt;- lapply(ans, as.list)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">40</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">165</td>
+                    <td class="coverage">1077<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   include_js_files(pattern = "count-bar-labels"),</pre>
+                      <pre class="language-r">  ans</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   column(4, tags$div(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tags$h4("LogicalFilterState"),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     fs$ui("fs")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )),</pre>
+                      <pre class="language-r">#' @rdname teal_slices-utilities</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   column(4, tags$div(</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     id = "outputs", # div id is needed for toggling the element</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tags$h4("Condition (i.e. call)"), # display the condition call generated by this FilterState</pre>
+                      <pre class="language-r">`[.teal_slices` &lt;- function(x, i) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">48</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">173</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     textOutput("condition_logical"), tags$br(),</pre>
+                      <pre class="language-r">  if (missing(i)) i &lt;- seq_along(x)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">174</td>
+                    <td class="coverage">506<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tags$h4("Unformatted state"), # display raw filter state</pre>
+                      <pre class="language-r">  if (length(i) == 0L) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">175</td>
+                    <td class="coverage">178<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     textOutput("unformatted_logical"), tags$br(),</pre>
+                      <pre class="language-r">    return(x[0])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tags$h4("Formatted state"), # display human readable filter state</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">52</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">177</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     textOutput("formatted_logical"), tags$br()</pre>
+                      <pre class="language-r">  if (is.logical(i) &amp;&amp; length(i) &gt; length(x)) stop("subscript out of bounds")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">178</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.numeric(i) &amp;&amp; max(i) &gt; length(x)) stop("subscript out of bounds")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">54</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">179</td>
+                    <td class="coverage">326<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   column(4, tags$div(</pre>
+                      <pre class="language-r">  if (is.character(i)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">55</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">180</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tags$h4("Programmatic filter control"),</pre>
+                      <pre class="language-r">    if (!all(is.element(i, names(x)))) stop("subscript out of bounds")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">56</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">181</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     actionButton("button1_logical", "set drop NA", width = "100%"), tags$br(),</pre>
+                      <pre class="language-r">    i &lt;- which(is.element(i, names(x)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     actionButton("button2_logical", "set keep NA", width = "100%"), tags$br(),</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     actionButton("button3_logical", "set a selection", width = "100%"), tags$br(),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">59</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">184</td>
+                    <td class="coverage">325<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     actionButton("button0_logical", "set initial state", width = "100%"), tags$br()</pre>
+                      <pre class="language-r">  y &lt;- NextMethod("[")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">60</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">185</td>
+                    <td class="coverage">325<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ))</pre>
+                      <pre class="language-r">  attrs &lt;- attributes(x)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">61</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">186</td>
+                    <td class="coverage">325<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  attrs$names &lt;- attrs$names[i]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">62</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">187</td>
+                    <td class="coverage">325<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  attributes(y) &lt;- attrs</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">63</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">188</td>
+                    <td class="coverage">325<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' server &lt;- function(input, output, session) {</pre>
+                      <pre class="language-r">  y</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   fs$server("fs")</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   output$condition_logical &lt;- renderPrint(fs$get_call())</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   output$formatted_logical &lt;- renderText(fs$format())</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   output$unformatted_logical &lt;- renderPrint(fs$get_state())</pre>
+                      <pre class="language-r">#' @rdname teal_slices-utilities</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   # modify filter state programmatically</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   observeEvent(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     input$button1_logical,</pre>
+                      <pre class="language-r">c.teal_slices &lt;- function(...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">71</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">196</td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     fs$set_state(teal_slice(dataname = "data", varname = "x", keep_na = FALSE))</pre>
+                      <pre class="language-r">  x &lt;- list(...)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">72</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">197</td>
+                    <td class="coverage">252<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</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="never">
-                    <td class="num">73</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   observeEvent(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">74</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">199</td>
+                    <td class="coverage">251<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     input$button2_logical,</pre>
+                      <pre class="language-r">  all_attributes &lt;- lapply(x, attributes)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">75</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">200</td>
+                    <td class="coverage">251<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     fs$set_state(teal_slice(dataname = "data", varname = "x", keep_na = TRUE))</pre>
+                      <pre class="language-r">  all_attributes &lt;- coalesce_r(all_attributes)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">76</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">201</td>
+                    <td class="coverage">251<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">  all_attributes &lt;- all_attributes[names(all_attributes) != "class"]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">202</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   observeEvent(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">78</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">203</td>
+                    <td class="coverage">251<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     input$button3_logical,</pre>
+                      <pre class="language-r">  do.call(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">79</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">204</td>
+                    <td class="coverage">251<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     fs$set_state(teal_slice(dataname = "data", varname = "x", selected = TRUE))</pre>
+                      <pre class="language-r">    teal_slices,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">80</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">205</td>
+                    <td class="coverage">251<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">81</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">206</td>
+                    <td class="coverage">251<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   observeEvent(</pre>
+                      <pre class="language-r">      unique(unlist(x, recursive = FALSE)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">82</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">207</td>
+                    <td class="coverage">251<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     input$button0_logical,</pre>
+                      <pre class="language-r">      all_attributes</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     fs$set_state(</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       teal_slice(dataname = "data", varname = "x", selected = FALSE, keep_na = TRUE)</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</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>
                   <tr class="never">
-                    <td class="num">86</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">87</td>
+                    <td class="num">212</td>
                     <td class="coverage"></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">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @rdname teal_slices-utilities</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">#' @param show_all (`logical(1)`) whether to display non-null elements of constituent `teal_slice` objects</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
+                      <pre class="language-r">#' @param trim_lines (`logical(1)`) whether to trim lines</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">216</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">92</td>
+                    <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">format.teal_slices &lt;- function(x, show_all = FALSE, trim_lines = TRUE, ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">94</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">219</td>
+                    <td class="coverage">45<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_flag(show_all)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">95</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">220</td>
+                    <td class="coverage">45<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">LogicalFilterState &lt;- R6::R6Class( # nolint</pre>
+                      <pre class="language-r">  checkmate::assert_flag(trim_lines)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">221</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  "LogicalFilterState",</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">222</td>
+                    <td class="coverage">45<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  x &lt;- as.list(x, recursive = TRUE)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">223</td>
+                    <td class="coverage">45<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  attrs &lt;- attributes(x)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">224</td>
+                    <td class="coverage">45<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  attributes(x) &lt;- NULL</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">225</td>
+                    <td class="coverage">45<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  slices_list &lt;- list(slices = x, attributes = attrs)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">226</td>
+                    <td class="coverage">45<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  slices_list &lt;- Filter(Negate(is.null), slices_list) # drop attributes if empty</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">227</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  inherit = FilterState,</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">228</td>
+                    <td class="coverage">20<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (!show_all) slices_list$slices &lt;- lapply(slices_list$slices, function(slice) Filter(Negate(is.null), slice))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</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">230</td>
+                    <td class="coverage">45<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  jsonify(slices_list, trim_lines)</pre>
+                    </td>
+                  </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # public methods ----</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">232</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  public = list(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @rdname teal_slices-utilities</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">234</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Initialize a `FilterState` object.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">print.teal_slices &lt;- function(x, ...) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">237</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  cat(format(x, ...), "\n")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">238</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param x (`logical`)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">239</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   variable to be filtered.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param x_reactive (`reactive`)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">241</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   returning vector of the same type as `x`. Is used to update</pre>
+                      <pre class="language-r">#' `setdiff` method for `teal_slices`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">242</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   counts following the change in values of the filtered dataset.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   If it is set to `reactive(NULL)` then counts based on filtered</pre>
+                      <pre class="language-r">#' Compare two teal slices objects and return `teal_slices` containing slices present in `x` but not in `y`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   dataset are not shown.</pre>
+                      <pre class="language-r">#' @param x,y (`teal_slices`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">245</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param slice (`teal_slice`)</pre>
+                      <pre class="language-r">#' @return `teal_slices`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">246</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   specification of this filter state.</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">247</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   `teal_slice` is stored in the object and `set_state` directly manipulates values within `teal_slice`.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">248</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   `get_state` returns `teal_slice` object which can be reused in other places.</pre>
+                      <pre class="language-r">setdiff_teal_slices &lt;- function(x, y) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">249</td>
+                    <td class="coverage">14<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  Filter(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">250</td>
+                    <td class="coverage">14<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    function(xx) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">251</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      !any(vapply(y, function(yy) identical(yy, xx), logical(1)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">252</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   Note that `teal_slice` is a `reactiveValues`, which means it has reference semantics, i.e.</pre>
+                      <pre class="language-r">    },</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">253</td>
+                    <td class="coverage">14<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    x</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   changes made to an object are automatically reflected in all places that refer to the same `teal_slice`.</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">255</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param extract_type (`character`)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">256</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   specifying whether condition calls should be prefixed by `dataname`. Possible values:</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">257</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' - `character(0)` (default) `varname` in the condition call will not be prefixed</pre>
+                      <pre class="language-r">#' Recursively coalesce list elements.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">258</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' - `"list"` `varname` in the condition call will be returned as `&lt;dataname&gt;$&lt;varname&gt;`</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">259</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' - `"matrix"` `varname` in the condition call will be returned as `&lt;dataname&gt;[, &lt;varname&gt;]`</pre>
+                      <pre class="language-r">#' Returns first element of list that it not `NULL`, recursively.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">260</td>
                     <td class="coverage"></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">261</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return Object of class `LogicalFilterState`, invisibly.</pre>
+                      <pre class="language-r">#' Given a list of atomic vectors, the first non-null element is returned.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">262</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' Given a list of lists, for all `names` found in all elements of the list</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">263</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    initialize = function(x,</pre>
+                      <pre class="language-r">#' the first non-null element of a given name is returned.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">264</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          x_reactive = reactive(NULL),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">265</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          extract_type = character(0),</pre>
+                      <pre class="language-r">#' This function is used internally in `c.teal_slices` to manage `teal_slices` attributes.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">266</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="covered">
-                    <td class="num">130</td>
-                    <td class="coverage">16<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">267</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      isolate({</pre>
+                      <pre class="language-r">#' @param x (`list`), either of atomic vectors or of named lists</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">131</td>
-                    <td class="coverage">16<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">268</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        checkmate::assert_logical(x)</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">269</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        checkmate::assert_logical(slice$selected, null.ok = TRUE)</pre>
+                      <pre class="language-r">#' Either an atomic vector of length 1 or a (potentially nested) list.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">133</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">270</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        super$initialize(x = x, x_reactive = x_reactive, slice = slice, extract_type = extract_type)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">271</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">135</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">272</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$set_choices(slice$choices)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">136</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">273</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (is.null(slice$multiple)) slice$multiple &lt;- FALSE</pre>
+                      <pre class="language-r">coalesce_r &lt;- function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">137</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">274</td>
+                    <td class="coverage">1569<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (is.null(slice$selected) &amp;&amp; slice$multiple) {</pre>
+                      <pre class="language-r">  checkmate::assert_list(x)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">138</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">275</td>
+                    <td class="coverage">1568<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          slice$selected &lt;- private$get_choices()</pre>
+                      <pre class="language-r">  xnn &lt;- Filter(Negate(is.null), x)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">139</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">276</td>
+                    <td class="coverage">1568<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else if (length(slice$selected) != 1 &amp;&amp; !slice$multiple) {</pre>
+                      <pre class="language-r">  if (all(vapply(xnn, is.atomic, logical(1L)))) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">140</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">277</td>
+                    <td class="coverage">1059<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          slice$selected &lt;- TRUE</pre>
+                      <pre class="language-r">    return(xnn[[1L]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">278</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">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        private$set_selected(slice$selected)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">143</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">279</td>
+                    <td class="coverage">509<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        df &lt;- factor(x, levels = c(TRUE, FALSE))</pre>
+                      <pre class="language-r">  lapply(x, checkmate::assert_list, names = "named", null.ok = TRUE, .var.name = "list element")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">144</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">280</td>
+                    <td class="coverage">508<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tbl &lt;- table(df)</pre>
+                      <pre class="language-r">  all_names &lt;- unique(unlist(lapply(x, names)))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">145</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">281</td>
+                    <td class="coverage">508<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$set_choices_counts(tbl)</pre>
+                      <pre class="language-r">  sapply(all_names, function(nm) coalesce_r(lapply(x, `[[`, nm)), simplify = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">282</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">147</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      invisible(self)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <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>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/zzz.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">149</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) { # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</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">151</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">    #' Returns reproducible condition call for current selection.</pre>
+                      <pre class="language-r">  teal_default_options &lt;- list(teal.threshold_slider_vs_checkboxgroup = 5)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">152</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">4</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' For `LogicalFilterState` it's a `!&lt;varname&gt;` or `&lt;varname&gt;` and optionally `is.na(&lt;varname&gt;)`</pre>
+                      <pre class="language-r">  op &lt;- options()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">153</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">    #' @param dataname name of data set; defaults to `private$get_dataname()`</pre>
+                      <pre class="language-r">  toset &lt;- !(names(teal_default_options) %in% names(op))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">154</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">6</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `call`</pre>
+                      <pre class="language-r">  if (any(toset)) options(teal_default_options[toset])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">7</td>
                     <td class="coverage"></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">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_call = function(dataname) {</pre>
+                      <pre class="language-r">  # Set up the teal logger instance</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">157</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">9</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (isFALSE(private$is_any_filtered())) {</pre>
+                      <pre class="language-r">  teal.logger::register_logger("teal.slice")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">158</td>
+                    <td class="num">10</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        return(NULL)</pre>
+                      <pre class="language-r">  teal.logger::register_handlers("teal.slice")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">11</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">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      if (missing(dataname)) dataname &lt;- private$get_dataname()</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">161</td>
-                    <td class="coverage">6<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      varname &lt;- private$get_varname_prefixed(dataname)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">162</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">12</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      choices &lt;- private$get_selected()</pre>
+                      <pre class="language-r">  invisible()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">163</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">      n_choices &lt;- length(choices)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">6<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">      filter_call &lt;-</pre>
+                      <pre class="language-r">### GLOBAL VARIABLES ###</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">166</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">        if (n_choices == 1 &amp;&amp; choices) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">1<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">          varname</pre>
+                      <pre class="language-r">.filterable_class &lt;- c("logical", "integer", "numeric", "factor", "character", "Date", "POSIXct", "POSIXlt")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">6<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">        } else if (n_choices == 1 &amp;&amp; !choices) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">4<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("!", varname)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">### END GLOBAL VARIABLES ###</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">1<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">          call("%in%", varname, make_c_call(choices))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">22</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">173</td>
-                    <td class="coverage">6<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">      private$add_keep_na_call(filter_call, varname)</pre>
+                      <pre class="language-r">### ENSURE CHECK PASSES</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</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">175</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ),</pre>
+                      <pre class="language-r"># This function is necessary for check to properly process code dependencies within R6 classes.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r"># If `package` is listed in `Imports` in `DESCRIPTION`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # private members ----</pre>
+                      <pre class="language-r"># (1) check goes through `NAMESPACE` looking for any `importFrom(package,&lt;foo&gt;)` statements</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  private = list(</pre>
+                      <pre class="language-r"># or an `import(package)` statement. If none are found,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    choices_counts = integer(0),</pre>
+                      <pre class="language-r"># (2) check looks for `package::*` calls in the code. If none are found again,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r"># (3) check throws a NOTE;</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # private methods ----</pre>
+                      <pre class="language-r"># #  Namespaces in Imports field not imported from:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set_choices = function(choices) {</pre>
+                      <pre class="language-r"># #    'package'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">183</td>
-                    <td class="coverage">14<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$teal_slice$choices &lt;- c(TRUE, FALSE)</pre>
+                      <pre class="language-r"># #  All declared Imports should be used.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">184</td>
-                    <td class="coverage">14<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">      invisible(NULL)</pre>
+                      <pre class="language-r"># This note is banned by our CI.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r"># When package::* statements are made within an R6 class, they are not registered.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</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"># This function provides single references to the imported namespaces for check to notice.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Sets choices_counts private field</pre>
+                      <pre class="language-r">.rectify_dependencies_check &lt;- function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">188</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">38</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set_choices_counts = function(choices_counts) {</pre>
+                      <pre class="language-r">  dplyr::filter</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">189</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">39</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$choices_counts &lt;- choices_counts</pre>
+                      <pre class="language-r">  grDevices::rgb</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">190</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">40</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(NULL)</pre>
+                      <pre class="language-r">  htmltools::tagInsertChildren</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">191</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">41</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">  lifecycle::badge</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">192</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">42</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    cast_and_validate = function(values) {</pre>
+                      <pre class="language-r">  logger::log_trace</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">193</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">43</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tryCatch(</pre>
+                      <pre class="language-r">  plotly::plot_ly</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">194</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">44</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        expr = {</pre>
+                      <pre class="language-r">  shinycssloaders::withSpinner</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">195</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">45</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          values &lt;- as.logical(values)</pre>
+                      <pre class="language-r">  shinyWidgets::pickerOptions</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">196</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">46</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (anyNA(values)) stop()</pre>
+                      <pre class="language-r">  teal.data::datanames</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">197</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">47</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          values</pre>
+                      <pre class="language-r">  teal.widgets::optionalSelectInput</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</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="covered">
-                    <td class="num">199</td>
-                    <td class="coverage">21<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">        error = function(e) stop("Vector of set values must contain values coercible to logical.")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">### END ENSURE CHECK PASSES</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/FilteredDatasetMAE.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">202</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # If multiple forbidden but selected, restores previous selection with warning.</pre>
+                      <pre class="language-r"># MAEFilteredDataset ------</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    check_length = function(values) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">204</td>
-                    <td class="coverage">20<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">      if (!private$is_multiple() &amp;&amp; length(values) &gt; 1) {</pre>
+                      <pre class="language-r">#' @name MAEFilteredDataset</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">205</td>
-                    <td class="coverage">1<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">        warning(</pre>
+                      <pre class="language-r">#' @docType class</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">206</td>
-                    <td class="coverage">1<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">          sprintf("Selection: %s is not a vector of length one. ", toString(values, width = 360)),</pre>
+                      <pre class="language-r">#' @title `MAEFilteredDataset` `R6` class</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">207</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">          "Maintaining previous selection."</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' @examplesIf requireNamespace("MultiAssayExperiment")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">209</td>
-                    <td class="coverage">1<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">        values &lt;- isolate(private$get_selected())</pre>
+                      <pre class="language-r">#' # use non-exported function from teal.slice</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">210</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' MAEFilteredDataset &lt;- getFromNamespace("MAEFilteredDataset", "teal.slice")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">211</td>
-                    <td class="coverage">20<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">      values</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">212</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#' data(miniACC, package = "MultiAssayExperiment")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">213</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' dataset &lt;- MAEFilteredDataset$new(miniACC, "MAE")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">214</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Answers the question of whether the current settings and values selected actually filters out any values.</pre>
+                      <pre class="language-r">#' fs &lt;- teal_slices(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">215</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @return logical scalar</pre>
+                      <pre class="language-r">#'   teal_slice(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    is_any_filtered = function() {</pre>
+                      <pre class="language-r">#'     dataname = "MAE", varname = "years_to_birth", selected = c(30, 50), keep_na = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">217</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">      if (private$is_choice_limited) {</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">218</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">        TRUE</pre>
+                      <pre class="language-r">#'   teal_slice(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">219</td>
-                    <td class="coverage">6<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">      } else if (all(private$choices_counts &gt; 0)) {</pre>
+                      <pre class="language-r">#'     dataname = "MAE", varname = "vital_status", selected = "1", keep_na = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">220</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">        TRUE</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">221</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (</pre>
+                      <pre class="language-r">#'   teal_slice(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">222</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">21</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        setequal(private$get_selected(), private$get_choices()) &amp;&amp;</pre>
+                      <pre class="language-r">#'     dataname = "MAE", varname = "gender", selected = "female", keep_na = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">223</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">          !anyNA(private$get_selected(), private$get_choices())</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">224</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ) {</pre>
+                      <pre class="language-r">#'   teal_slice(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">225</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">24</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        TRUE</pre>
+                      <pre class="language-r">#'     dataname = "MAE", varname = "ARRAY_TYPE", selected = "", keep_na = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">226</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">      } else if (!isTRUE(private$get_keep_na()) &amp;&amp; private$na_count &gt; 0) {</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">227</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">        TRUE</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">228</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">#' dataset$set_filter_state(state = fs)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">229</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">        FALSE</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">230</td>
+                    <td class="num">29</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="never">
-                    <td class="num">231</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#' isolate(dataset$get_filter_state())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">232</td>
+                    <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">233</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # shiny modules ----</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">234</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">235</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @description</pre>
+                      <pre class="language-r">MAEFilteredDataset &lt;- R6::R6Class( # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">236</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # UI Module for `EmptyFilterState`.</pre>
+                      <pre class="language-r">  classname = "MAEFilteredDataset",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">237</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # This UI element contains available choices selection and</pre>
+                      <pre class="language-r">  inherit = FilteredDataset,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">238</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # checkbox whether to keep or not keep the `NA` values.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">239</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @param id (`character(1)`) `shiny` module instance id.</pre>
+                      <pre class="language-r">  # public methods ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">240</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_inputs = function(id) {</pre>
+                      <pre class="language-r">  public = list(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">241</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">      ns &lt;- NS(id)</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">242</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">41</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      isolate({</pre>
+                      <pre class="language-r">    #' Initialize `MAEFilteredDataset` object.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">243</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">42</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        countsmax &lt;- private$choices_counts</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">244</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">        countsnow &lt;- if (!is.null(private$x_reactive())) {</pre>
+                      <pre class="language-r">    #' @param dataset (`MulitiAssayExperiment`)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">245</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">          unname(table(factor(private$x_reactive(), levels = private$get_choices())))</pre>
+                      <pre class="language-r">    #'  single `MulitiAssayExperiment` for which filters are rendered.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">246</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">    #' @param dataname (`character(1)`)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">247</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">          NULL</pre>
+                      <pre class="language-r">    #'  syntactically valid name given to the dataset.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">248</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">    #' @param keys (`character`) optional</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">249</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #'   vector of primary key column names.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">250</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">        labels &lt;- countBars(</pre>
+                      <pre class="language-r">    #' @param label (`character(1)`)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">251</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">          inputId = ns("labels"),</pre>
+                      <pre class="language-r">    #'   label to describe the dataset.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">252</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">          choices = as.character(private$get_choices()),</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">253</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">52</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          countsnow = countsnow,</pre>
+                      <pre class="language-r">    #' @return Object of class `MAEFilteredDataset`, invisibly.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">254</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">53</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          countsmax = countsmax</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">255</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    initialize = function(dataset, dataname, keys = character(0), label = character(0)) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">256</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">55</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ui_input &lt;- if (private$is_multiple()) {</pre>
+                      <pre class="language-r">      if (!requireNamespace("MultiAssayExperiment", quietly = TRUE)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">257</td>
+                    <td class="num">56</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          checkboxGroupInput(</pre>
+                      <pre class="language-r">        stop("Cannot load MultiAssayExperiment - please install the package or restart your session.")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">258</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">            inputId = ns("selection"),</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">259</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">58</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            label = NULL,</pre>
+                      <pre class="language-r">      checkmate::assert_class(dataset, "MultiAssayExperiment")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">260</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">59</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            selected = isolate(as.character(private$get_selected())),</pre>
+                      <pre class="language-r">      super$initialize(dataset, dataname, keys, label)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">261</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">60</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            choiceNames = labels,</pre>
+                      <pre class="language-r">      experiment_names &lt;- names(dataset)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">262</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">            choiceValues = factor(as.character(private$get_choices()), levels = c("TRUE", "FALSE")),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">263</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">62</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            width = "100%"</pre>
+                      <pre class="language-r">      # subsetting by subjects means subsetting by colData(MAE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">264</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">63</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">      private$add_filter_states(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">265</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">64</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">        filter_states = init_filter_states(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">266</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">65</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          radioButtons(</pre>
+                      <pre class="language-r">          data = dataset,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">267</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">66</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            inputId = ns("selection"),</pre>
+                      <pre class="language-r">          data_reactive = private$data_filtered_fun,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">268</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">67</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            label = NULL,</pre>
+                      <pre class="language-r">          dataname = dataname,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">269</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">68</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            selected = isolate(as.character(private$get_selected())),</pre>
+                      <pre class="language-r">          datalabel = "subjects",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">270</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">69</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            choiceNames = labels,</pre>
+                      <pre class="language-r">          keys = self$get_keys()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">271</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">70</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            choiceValues = factor(as.character(private$get_choices()), levels = c("TRUE", "FALSE")),</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">272</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">71</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            width = "100%"</pre>
+                      <pre class="language-r">        id = "subjects"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">273</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">274</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">      # elements of the list (experiments) are unknown</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">275</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">        tags$div(</pre>
+                      <pre class="language-r">      # dispatch needed because we can't hardcode methods otherwise:</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">276</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">          tags$div(</pre>
+                      <pre class="language-r">      #  if (matrix) else if (SummarizedExperiment) else if ...</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">277</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">76</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            class = "choices_state",</pre>
+                      <pre class="language-r">      lapply(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">278</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">77</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            uiOutput(ns("trigger_visible"), inline = TRUE),</pre>
+                      <pre class="language-r">        experiment_names,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">279</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">78</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ui_input</pre>
+                      <pre class="language-r">        function(experiment_name) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">280</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">79</td>
+                    <td class="coverage">105<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">          data_reactive &lt;- function(sid = "") private$data_filtered_fun(sid)[[experiment_name]]</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">281</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">80</td>
+                    <td class="coverage">105<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          private$keep_na_ui(ns("keep_na"))</pre>
+                      <pre class="language-r">          private$add_filter_states(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">282</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">81</td>
+                    <td class="coverage">105<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">            filter_states = init_filter_states(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">283</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">82</td>
+                    <td class="coverage">105<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">              data = dataset[[experiment_name]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">284</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">83</td>
+                    <td class="coverage">105<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">              data_reactive = data_reactive,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">84</td>
+                    <td class="coverage">105<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              dataname = dataname,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">85</td>
+                    <td class="coverage">105<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              datalabel = experiment_name</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">285</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>
+                  <tr class="covered">
+                    <td class="num">87</td>
+                    <td class="coverage">105<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            id = experiment_name</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">286</td>
+                    <td class="num">88</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">287</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Server module</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">288</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @param id (`character(1)`) `shiny` module instance id.</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">289</td>
+                    <td class="num">91</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">290</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server_inputs = function(id) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">291</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">93</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      moduleServer(</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">292</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">        id = id,</pre>
+                      <pre class="language-r">    #' Set filter state.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">293</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">        function(input, output, session) {</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">294</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # this observer is needed in the situation when teal_slice$selected has been</pre>
+                      <pre class="language-r">    #' @param state (`teal_slices`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">295</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # changed directly by the api - then it's needed to rerender UI element</pre>
+                      <pre class="language-r">    #' @return `NULL`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">296</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # to show relevant values</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">99</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          non_missing_values &lt;- reactive(Filter(Negate(is.na), private$x_reactive()))</pre>
+                      <pre class="language-r">    set_filter_state = function(state) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">298</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">100</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          output$trigger_visible &lt;- renderUI({</pre>
+                      <pre class="language-r">      isolate({</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">299</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">101</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            logger::log_trace("LogicalFilterState$server@1 updating count labels, id: { private$get_id() }")</pre>
+                      <pre class="language-r">        logger::log_trace("{ class(self)[1] }$set_filter_state initializing, dataname: { private$dataname }")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">300</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">102</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        checkmate::assert_class(state, "teal_slices")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">301</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">103</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            countsnow &lt;- if (!is.null(private$x_reactive())) {</pre>
+                      <pre class="language-r">        lapply(state, function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">302</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">104</td>
+                    <td class="coverage">52<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              unname(table(factor(non_missing_values(), levels = private$get_choices())))</pre>
+                      <pre class="language-r">          checkmate::assert_true(x$dataname == private$dataname, .var.name = "dataname matches private$dataname")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">303</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">304</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">305</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">306</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <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">            updateCountBars(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">308</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              inputId = "labels",</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">309</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              choices = as.character(private$get_choices()),</pre>
+                      <pre class="language-r">        # set state on subjects</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">310</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">108</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              countsmax = private$choices_counts,</pre>
+                      <pre class="language-r">        subject_state &lt;- Filter(function(x) is.null(x$experiment), state)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">311</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">109</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              countsnow = countsnow</pre>
+                      <pre class="language-r">        private$get_filter_states()[["subjects"]]$set_filter_state(subject_state)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">312</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">313</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">314</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          })</pre>
+                      <pre class="language-r">        # set state on experiments</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">315</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        # determine target experiments (defined in teal_slices)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">316</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">113</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          private$observers$seleted_api &lt;- observeEvent(</pre>
+                      <pre class="language-r">        experiments &lt;- unique(unlist(lapply(state, "[[", "experiment")))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">317</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">114</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ignoreNULL = !private$is_multiple(),</pre>
+                      <pre class="language-r">        available_experiments &lt;- setdiff(names(private$get_filter_states()), "subjects")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">318</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">115</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ignoreInit = TRUE,</pre>
+                      <pre class="language-r">        excluded_filters &lt;- setdiff(experiments, available_experiments)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">319</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">116</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            eventExpr = private$get_selected(),</pre>
+                      <pre class="language-r">        if (length(excluded_filters)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">320</td>
+                    <td class="num">117</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            handlerExpr = {</pre>
+                      <pre class="language-r">          stop(sprintf(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">321</td>
+                    <td class="num">118</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              if (!setequal(private$get_selected(), input$selection)) {</pre>
+                      <pre class="language-r">            "%s doesn't contain elements specified in 'experiment': %s\n'experiment' should be a subset of: %s",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">322</td>
+                    <td class="num">119</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                logger::log_trace("LogicalFilterState$server@1 state changed, id: { private$get_id() }")</pre>
+                      <pre class="language-r">            private$dataname,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">323</td>
+                    <td class="num">120</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                if (private$is_multiple()) {</pre>
+                      <pre class="language-r">            toString(excluded_filters),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">324</td>
+                    <td class="num">121</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  updateCheckboxGroupInput(</pre>
+                      <pre class="language-r">            toString(available_experiments)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">325</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">                    inputId = "selection",</pre>
+                      <pre class="language-r">          ))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">326</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">                    selected = private$get_selected()</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">327</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">328</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">        # set states on state_lists with corresponding experiments</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">329</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">126</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  updateRadioButtons(</pre>
+                      <pre class="language-r">        lapply(available_experiments, function(experiment) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">330</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">127</td>
+                    <td class="coverage">70<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    inputId = "selection",</pre>
+                      <pre class="language-r">          slices &lt;- Filter(function(x) identical(x$experiment, experiment), state)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">331</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">128</td>
+                    <td class="coverage">70<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    selected = private$get_selected()</pre>
+                      <pre class="language-r">          private$get_filter_states()[[experiment]]$set_filter_state(slices)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">332</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">333</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">334</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">131</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              }</pre>
+                      <pre class="language-r">        logger::log_trace("{ class(self)[1] }$set_filter_state initialized, dataname: { private$dataname }")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">335</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">336</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">133</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">        invisible(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">337</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">338</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          private$observers$selection &lt;- observeEvent(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">339</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="missed">
-                    <td class="num">340</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">            ignoreInit = TRUE,</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">341</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">            eventExpr = input$selection,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">342</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">            handlerExpr = {</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">343</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">              logger::log_trace("LogicalFilterState$server@2 selection changed, id: { private$get_id() }")</pre>
+                      <pre class="language-r">    #' Remove one or more `FilterState` of a `MAEFilteredDataset`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">344</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              # for private$is_multiple() == TRUE input$selection will always have value</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">345</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 (is.null(input$selection) &amp;&amp; isFALSE(private$is_multiple())) {</pre>
+                      <pre class="language-r">    #' @param state (`teal_slices`)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">346</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">                selection_state &lt;- private$get_selected()</pre>
+                      <pre class="language-r">    #'   specifying `FilterState` objects to remove;</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">347</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              } else {</pre>
+                      <pre class="language-r">    #'   `teal_slice`s may contain only `dataname` and `varname`, other elements are ignored.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">348</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">143</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                selection_state &lt;- as.logical(input$selection)</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">349</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 `NULL`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">350</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="missed">
-                    <td class="num">351</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">146</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              if (is.null(selection_state)) {</pre>
+                      <pre class="language-r">    remove_filter_state = function(state) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">352</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">147</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                selection_state &lt;- logical(0)</pre>
+                      <pre class="language-r">      checkmate::assert_class(state, "teal_slices")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">353</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="missed">
-                    <td class="num">354</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">149</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              private$set_selected(selection_state)</pre>
+                      <pre class="language-r">      isolate({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">355</td>
-                    <td class="coverage"></td>
+                  <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">            }</pre>
+                      <pre class="language-r">        logger::log_trace("{ class(self)[1] }$remove_filter_state removing filter(s), dataname: { private$dataname }")</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">          )</pre>
+                      <pre class="language-r">        # remove state on subjects</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">357</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">152</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        subject_state &lt;- Filter(function(x) is.null(x$experiment), state)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">358</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">153</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          private$keep_na_srv("keep_na")</pre>
+                      <pre class="language-r">        private$get_filter_states()[["subjects"]]$remove_filter_state(subject_state)</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"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">360</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_trace("LogicalFilterState$server initialized, id: { private$get_id() }")</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">361</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          NULL</pre>
-                    </td>
-                  </tr>
                   <tr class="never">
-                    <td class="num">362</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">        # remove state on experiments</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">363</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">        # determine target experiments (defined in teal_slices)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">364</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">157</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">        experiments &lt;- unique(unlist(lapply(state, "[[", "experiment")))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">365</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">158</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server_inputs_fixed = function(id) {</pre>
+                      <pre class="language-r">        available_experiments &lt;- setdiff(names(private$get_filter_states()), "subjects")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">366</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">159</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      moduleServer(</pre>
+                      <pre class="language-r">        excluded_filters &lt;- setdiff(experiments, available_experiments)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">367</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">160</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = id,</pre>
+                      <pre class="language-r">        if (length(excluded_filters)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">368</td>
+                    <td class="num">161</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        function(input, output, session) {</pre>
+                      <pre class="language-r">          stop(sprintf(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">369</td>
+                    <td class="num">162</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_trace("LogicalFilterState$server initializing, id: { private$get_id() }")</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">370</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            "%s doesn't contain elements specified in 'experiment': %s\n'experiment' should be a subset of: %s",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">371</td>
+                    <td class="num">163</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          output$selection &lt;- renderUI({</pre>
+                      <pre class="language-r">            private$dataname,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">372</td>
+                    <td class="num">164</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            countsnow &lt;- unname(table(factor(private$x_reactive(), levels = private$get_choices())))</pre>
+                      <pre class="language-r">            toString(excluded_filters),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">373</td>
+                    <td class="num">165</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            countsmax &lt;- private$choices_counts</pre>
+                      <pre class="language-r">            toString(available_experiments)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">374</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">375</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            ind &lt;- private$get_choices() %in% private$get_selected()</pre>
+                      <pre class="language-r">          ))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">376</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">167</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            countBars(</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">377</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">              inputId = session$ns("labels"),</pre>
+                      <pre class="language-r">        # remove states on state_lists with corresponding experiments</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">378</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">169</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              choices = private$get_selected(),</pre>
+                      <pre class="language-r">        lapply(experiments, function(experiment) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">379</td>
+                    <td class="num">170</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              countsnow = countsnow[ind],</pre>
+                      <pre class="language-r">          slices &lt;- Filter(function(x) identical(x$experiment, experiment), state)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">380</td>
+                    <td class="num">171</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              countsmax = countsmax[ind]</pre>
+                      <pre class="language-r">          private$get_filter_states()[[experiment]]$remove_filter_state(slices)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">381</td>
+                    <td class="num">172</td>
                     <td class="coverage"></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">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          })</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">383</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">384</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">175</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_trace("LogicalFilterState$server initialized, id: { private$get_id() }")</pre>
+                      <pre class="language-r">        logger::log_trace("{ class(self)[1] }$remove_filter_state removed filter(s), dataname: { private$dataname }")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">385</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">176</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">386</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">387</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">178</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      invisible(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">388</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">389</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">390</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @description</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">391</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Server module to display filter summary</pre>
+                      <pre class="language-r">    #' UI module to add filter variable for this dataset.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">392</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #  renders text describing whether TRUE or FALSE is selected</pre>
+                      <pre class="language-r">    #' @param id (`character(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">393</td>
+                    <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #  and if NA are included also</pre>
+                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">394</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    content_summary = function(id) {</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">395</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">186</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tagList(</pre>
+                      <pre class="language-r">    #' @return `shiny.tag`</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">187</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    #'</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">188</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ui_add = function(id) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">396</td>
+                    <td class="num">189</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$span(</pre>
+                      <pre class="language-r">      ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">397</td>
+                    <td class="num">190</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          class = "filter-card-summary-value",</pre>
+                      <pre class="language-r">      data &lt;- self$get_dataset()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">398</td>
+                    <td class="num">191</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          toString(private$get_selected())</pre>
+                      <pre class="language-r">      experiment_names &lt;- names(data)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">399</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="missed">
-                    <td class="num">400</td>
+                    <td class="num">193</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$span(</pre>
+                      <pre class="language-r">      tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">401</td>
+                    <td class="num">194</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          class = "filter-card-summary-controls",</pre>
+                      <pre class="language-r">        tags$label("Add", tags$code(self$get_dataname()), "filter"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">402</td>
+                    <td class="num">195</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (private$na_count &gt; 0) {</pre>
+                      <pre class="language-r">        tags$br(),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">403</td>
+                    <td class="num">196</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            tags$span("NA", if (isTRUE(private$get_keep_na())) icon("check") else icon("xmark"))</pre>
+                      <pre class="language-r">        HTML("&amp;#9658;"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">404</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">197</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">        tags$label("Add subjects filter"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">405</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">198</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">        private$get_filter_states()[["subjects"]]$ui_add(id = ns("subjects")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">406</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">199</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">        tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">407</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">    }</pre>
+                      <pre class="language-r">          lapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">408</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">  )</pre>
+                      <pre class="language-r">            experiment_names,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">409</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">            function(experiment_name) {</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/FilteredDataset.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">203</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># FilteredDataset abstract --------</pre>
+                      <pre class="language-r">              tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</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">                HTML("&amp;#9658;"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</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">#' @name FilteredDataset</pre>
+                      <pre class="language-r">                tags$label("Add", tags$code(experiment_name), "filter"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</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">#' @docType class</pre>
+                      <pre class="language-r">                private$get_filter_states()[[experiment_name]]$ui_add(id = ns(experiment_name))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</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">6</td>
+                    <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @title `FilteredDataset` `R6` class</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">209</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">8</td>
+                    <td class="num">210</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `FilteredDataset` is a class which renders/controls `FilterStates`(s)</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">211</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Each `FilteredDataset` contains `filter_states` field - a `list` which contains one</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' (`data.frame`) or multiple (`MultiAssayExperiment`) `FilterStates` objects.</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Each `FilterStates` is responsible for one filter/subset expression applied for specific</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' components of the dataset.</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' Creates row for filter overview in the form of \cr</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">    #' `dataname -- observations (remaining/total) -- subjects (remaining/total)` - MAE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">FilteredDataset &lt;- R6::R6Class( # nolint</pre>
+                      <pre class="language-r">    #' @return A `data.frame`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  "FilteredDataset",</pre>
+                      <pre class="language-r">    get_filter_overview = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">219</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # public methods ----</pre>
+                      <pre class="language-r">      data &lt;- self$get_dataset()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">220</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  public = list(</pre>
+                      <pre class="language-r">      data_filtered &lt;- self$get_dataset(TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">221</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">      experiment_names &lt;- names(data)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">222</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Initializes this `FilteredDataset` object.</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">223</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">      mae_info &lt;- data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">224</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param dataset any object</pre>
+                      <pre class="language-r">        dataname = private$dataname,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">225</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param dataname (`character(1)`)</pre>
+                      <pre class="language-r">        subjects = nrow(SummarizedExperiment::colData(data)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">226</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'  syntactically valid name given to the dataset.</pre>
+                      <pre class="language-r">        subjects_filtered = nrow(SummarizedExperiment::colData(data_filtered()))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">227</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param keys (`character`) optional</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">228</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   vector of primary key column names.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">229</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param label (`character(1)`)</pre>
+                      <pre class="language-r">      experiment_obs_info &lt;- do.call("rbind", lapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">230</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   label to describe the dataset.</pre>
+                      <pre class="language-r">        experiment_names,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">231</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">        function(experiment_name) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">232</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return Object of class `FilteredDataset`, invisibly.</pre>
+                      <pre class="language-r">          data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">233</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">            dataname = sprintf("- %s", experiment_name),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">234</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    initialize = function(dataset, dataname, keys = character(0), label = attr(dataset, "label", exact = TRUE)) {</pre>
+                      <pre class="language-r">            obs = nrow(data[[experiment_name]]),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">33</td>
-                    <td class="coverage">153<em>x</em></td>
+                    <td class="num">235</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      logger::log_trace("Instantiating { class(self)[1] }, dataname: { dataname }")</pre>
+                      <pre class="language-r">            obs_filtered = nrow(data_filtered()[[experiment_name]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</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">35</td>
+                    <td class="num">237</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # dataset assertion in child classes</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">36</td>
-                    <td class="coverage">153<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      check_simple_name(dataname)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">37</td>
-                    <td class="coverage">151<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_character(keys, any.missing = FALSE)</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">38</td>
-                    <td class="coverage">151<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">238</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_character(label, null.ok = TRUE)</pre>
+                      <pre class="language-r">      ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">239</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">151<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      logger::log_trace("Instantiating { class(self)[1] }, dataname: { dataname }")</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">41</td>
-                    <td class="coverage">151<em>x</em></td>
+                    <td class="num">240</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$dataset &lt;- dataset</pre>
+                      <pre class="language-r">      get_experiment_keys &lt;- function(mae, experiment) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">42</td>
-                    <td class="coverage">151<em>x</em></td>
+                    <td class="num">241</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$dataname &lt;- dataname</pre>
+                      <pre class="language-r">        sample_subset &lt;- subset(MultiAssayExperiment::sampleMap(mae), colname %in% colnames(experiment))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">43</td>
-                    <td class="coverage">151<em>x</em></td>
+                    <td class="num">242</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$keys &lt;- keys</pre>
+                      <pre class="language-r">        length(unique(sample_subset$primary))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">44</td>
-                    <td class="coverage">151<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">243</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$label &lt;- if (is.null(label)) character(0) else label</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">244</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="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">245</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # function executing reactive call and returning data</pre>
+                      <pre class="language-r">      experiment_subjects_info &lt;- do.call("rbind", lapply(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">47</td>
-                    <td class="coverage">151<em>x</em></td>
+                    <td class="num">246</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$data_filtered_fun &lt;- function(sid = "") {</pre>
+                      <pre class="language-r">        experiment_names,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">48</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">247</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        checkmate::assert_character(sid)</pre>
+                      <pre class="language-r">        function(experiment_name) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">49</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">248</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (length(sid)) {</pre>
+                      <pre class="language-r">          data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">50</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">249</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_trace("filtering data dataname: { dataname }, sid: { sid }")</pre>
+                      <pre class="language-r">            subjects = get_experiment_keys(data, data[[experiment_name]]),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">51</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">250</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">            subjects_filtered = get_experiment_keys(data_filtered(), data_filtered()[[experiment_name]])</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">52</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">251</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_trace("filtering data dataname: { private$dataname }")</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">252</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">24<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">        env &lt;- new.env(parent = parent.env(globalenv()))</pre>
+                      <pre class="language-r">      ))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">55</td>
-                    <td class="coverage">24<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">254</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        env[[dataname]] &lt;- private$dataset</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">56</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">255</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        filter_call &lt;- self$get_call(sid)</pre>
+                      <pre class="language-r">      experiment_info &lt;- cbind(experiment_obs_info, experiment_subjects_info)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">57</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">256</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        eval_expr_with_msg(filter_call, env)</pre>
+                      <pre class="language-r">      dplyr::bind_rows(mae_info, experiment_info)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">24<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">257</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        get(x = dataname, envir = env)</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</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="never">
-                    <td class="num">60</td>
+                    <td class="num">259</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">151<em>x</em></td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/FilteredDatasetDataframe.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">      private$data_filtered &lt;- reactive(private$data_filtered_fun())</pre>
+                      <pre class="language-r"># DataframeFilteredDataset ------</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">62</td>
-                    <td class="coverage">151<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">      logger::log_trace("Instantiated { class(self)[1] }, dataname: { private$dataname }")</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">63</td>
-                    <td class="coverage">151<em>x</em></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">64</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#' @name DataframeFilteredDataset</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @docType class</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</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">#' @title The `DataframeFilteredDataset` `R6` class</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Returns a formatted string representing this `FilteredDataset` object.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">7</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">69</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param show_all (`logical(1)`) passed to `format.teal_slice`.</pre>
+                      <pre class="language-r">#' # use non-exported function from teal.slice</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param trim_lines (`logical(1)`) passed to `format.teal_slice`.</pre>
+                      <pre class="language-r">#' DataframeFilteredDataset &lt;- getFromNamespace("DataframeFilteredDataset", "teal.slice")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return The formatted character string.</pre>
+                      <pre class="language-r">#' library(shiny)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</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">74</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    format = function(show_all = FALSE, trim_lines = TRUE) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">75</td>
-                    <td class="coverage">24<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      sprintf(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">76</td>
-                    <td class="coverage">24<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        "%s:\n%s",</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">77</td>
-                    <td class="coverage">24<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        class(self)[1],</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">78</td>
-                    <td class="coverage">24<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        format(self$get_filter_state(), show_all = show_all, trim_lines = trim_lines)</pre>
+                      <pre class="language-r">#' ds &lt;- DataframeFilteredDataset$new(iris, "iris")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' ds$set_filter_state(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#'   teal_slices(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     teal_slice(dataname = "iris", varname = "Species", selected = "virginica"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">#'     teal_slice(dataname = "iris", varname = "Petal.Length", selected = c(2.0, 5))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Prints this `FilteredDataset` object.</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</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">85</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param ... additional arguments passed to `format`.</pre>
+                      <pre class="language-r">#' isolate(ds$get_filter_state())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' isolate(ds$get_call())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    print = function(...) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">88</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      cat(isolate(self$format(...)), "\n")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#' ## set_filter_state</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' dataset &lt;- DataframeFilteredDataset$new(iris, "iris")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">#' fs &lt;- teal_slices(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Removes all filter items applied to this dataset.</pre>
+                      <pre class="language-r">#'   teal_slice(dataname = "iris", varname = "Species", selected = "virginica"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#'   teal_slice(dataname = "iris", varname = "Petal.Length", selected = c(2.0, 5))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param force (`logical(1)`)</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   flag specifying whether to include anchored filter states.</pre>
+                      <pre class="language-r">#' dataset$set_filter_state(state = fs)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' isolate(dataset$get_filter_state())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">31</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">98</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    clear_filter_states = function(force = FALSE) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">99</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      logger::log_trace("Removing filters from FilteredDataset: { deparse1(self$get_dataname()) }")</pre>
-                    </td>
-                  </tr>
-                  <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">      lapply(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">101</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        private$get_filter_states(),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">102</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        function(filter_states) filter_states$clear_filter_states(force)</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</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="covered">
-                    <td class="num">104</td>
-                    <td class="coverage">14<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">      logger::log_trace("Removed filters from FilteredDataset: { deparse1(self$get_dataname()) }")</pre>
+                      <pre class="language-r">DataframeFilteredDataset &lt;- R6::R6Class( # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">105</td>
-                    <td class="coverage">14<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">      NULL</pre>
+                      <pre class="language-r">  classname = "DataframeFilteredDataset",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">  inherit = FilteredDataset,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</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">108</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # managing filter states -----</pre>
+                      <pre class="language-r">  # public fields ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">39</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">110</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # getters ----</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Gets a filter expression.</pre>
+                      <pre class="language-r">    #' Initializes this `DataframeFilteredDataset` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">43</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">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' This function returns filter calls equivalent to selected items</pre>
+                      <pre class="language-r">    #' @param dataset (`data.frame`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' within each of `filter_states`. Configuration of the calls is constant and</pre>
+                      <pre class="language-r">    #'  single `data.frame` for which filters are rendered.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' depends on `filter_states` type and order which are set during initialization.</pre>
+                      <pre class="language-r">    #' @param dataname (`character(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">    #'  syntactically valid name given to the dataset.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param sid (`character`)</pre>
+                      <pre class="language-r">    #' @param keys (`character`) optional</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'  when specified, the method returns code containing conditions calls of</pre>
+                      <pre class="language-r">    #'  vector of primary key column names.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'  `FilterState` objects with `sid` different to this `sid` argument.</pre>
+                      <pre class="language-r">    #' @param parent_name (`character(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">    #'   name of the parent dataset.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return Either a `list` of filter `call`s, or `NULL`.</pre>
+                      <pre class="language-r">    #' @param parent (`reactive`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_call = function(sid = "") {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">124</td>
-                    <td class="coverage">47<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      filter_call &lt;- Filter(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">125</td>
-                    <td class="coverage">47<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        f = Negate(is.null),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">126</td>
-                    <td class="coverage">47<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        x = lapply(private$get_filter_states(), function(x) x$get_call(sid))</pre>
+                      <pre class="language-r">    #'   that returns a filtered `data.frame` from other `FilteredDataset` named `parent_name`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">128</td>
-                    <td class="coverage">47<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      if (length(filter_call) == 0) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">129</td>
-                    <td class="coverage">29<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        return(NULL)</pre>
+                      <pre class="language-r">    #'   Passing `parent` results in a `reactive` link that causes re-filtering of this `dataset`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">    #'   based on the changes in `parent`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">131</td>
-                    <td class="coverage">18<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">      filter_call</pre>
+                      <pre class="language-r">    #' @param join_keys (`character`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">    #'   vector of names of columns in this dataset to join with `parent` dataset.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #'   If column names in the parent do not match these, they should be given as the names of this vector.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">    #' @param label (`character(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Gets states of all contained `FilterState` objects.</pre>
+                      <pre class="language-r">    #'   label to describe the dataset.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return A `teal_slices` object.</pre>
+                      <pre class="language-r">    #' @return Object of class `DataframeFilteredDataset`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</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">139</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_filter_state = function() {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">140</td>
-                    <td class="coverage">184<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      states &lt;- unname(lapply(private$get_filter_states(), function(x) x$get_filter_state()))</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">141</td>
-                    <td class="coverage">184<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      do.call(c, states)</pre>
+                      <pre class="language-r">    initialize = function(dataset,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">                          dataname,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                          keys = character(0),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">                          parent_name = character(0),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Set filter state.</pre>
+                      <pre class="language-r">                          parent = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">                          join_keys = character(0),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param state (`teal_slices`)</pre>
+                      <pre class="language-r">                          label = character(0)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">148</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">71</td>
+                    <td class="coverage">103<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">      checkmate::assert_data_frame(dataset)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">149</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">72</td>
+                    <td class="coverage">101<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return Virtual method, returns nothing and raises error.</pre>
+                      <pre class="language-r">      super$initialize(dataset, dataname, keys, label)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</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">151</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set_filter_state = function(state) {</pre>
+                      <pre class="language-r">      # overwrite filtered_data if there is relationship with parent dataset</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">152</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">75</td>
+                    <td class="coverage">99<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stop("set_filter_state is an abstract class method.")</pre>
+                      <pre class="language-r">      if (!is.null(parent)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">153</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">76</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_character(parent_name, len = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">154</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">77</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_character(join_keys, min.len = 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">78</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">156</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">79</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Gets the number of `FilterState` objects in all `FilterStates` in this `FilteredDataset`.</pre>
+                      <pre class="language-r">        private$parent_name &lt;- parent_name</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">157</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">80</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `integer(1)`</pre>
+                      <pre class="language-r">        private$join_keys &lt;- join_keys</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_filter_count = function() {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">159</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="num">82</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      length(self$get_filter_state())</pre>
+                      <pre class="language-r">        private$data_filtered_fun &lt;- function(sid = "") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">160</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">83</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">          checkmate::assert_character(sid)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">161</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">84</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          if (length(sid)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">162</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">85</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">            logger::log_trace("filtering data dataname: { dataname }, sid: { sid }")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Gets the name of the dataset.</pre>
+                      <pre class="language-r">          } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">164</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">87</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">            logger::log_trace("filtering data dataname: { private$dataname }")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return A character string.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">166</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    get_dataname = function() {</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">167</td>
+                    <td class="num">89</td>
                     <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$dataname</pre>
+                      <pre class="language-r">          env &lt;- new.env(parent = parent.env(globalenv()))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">168</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">90</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">          env[[dataname]] &lt;- private$dataset</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">169</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">91</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          env[[parent_name]] &lt;- parent()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">170</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">92</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">          filter_call &lt;- self$get_call(sid)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">171</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">93</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Gets the dataset object in this `FilteredDataset`.</pre>
+                      <pre class="language-r">          eval_expr_with_msg(filter_call, env)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">172</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">94</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">          get(x = dataname, envir = env)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param filtered (`logical(1)`)</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">97</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">176</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">98</td>
+                    <td class="coverage">99<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' The stored dataset. If `data.frame` or `MultiAssayExperiment`,</pre>
+                      <pre class="language-r">      private$add_filter_states(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">177</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">99</td>
+                    <td class="coverage">99<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' either raw or as a reactive with current filters applied (depending on `filtered`).</pre>
+                      <pre class="language-r">        filter_states = init_filter_states(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">178</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">100</td>
+                    <td class="coverage">99<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">          data = dataset,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">179</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">101</td>
+                    <td class="coverage">99<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_dataset = function(filtered = FALSE) {</pre>
+                      <pre class="language-r">          data_reactive = private$data_filtered_fun,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">180</td>
-                    <td class="coverage">51<em>x</em></td>
+                    <td class="num">102</td>
+                    <td class="coverage">99<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (filtered) {</pre>
+                      <pre class="language-r">          dataname = dataname,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">181</td>
-                    <td class="coverage">33<em>x</em></td>
+                    <td class="num">103</td>
+                    <td class="coverage">99<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$data_filtered</pre>
+                      <pre class="language-r">          keys = self$get_keys()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">104</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">183</td>
-                    <td class="coverage">18<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        private$dataset</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">184</td>
-                    <td class="coverage"></td>
+                    <td class="num">105</td>
+                    <td class="coverage">99<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">        id = "filter"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">      # todo: Should we make these defaults? It could be handled by the app developer</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">188</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">109</td>
+                    <td class="coverage">99<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Get filter overview of a dataset.</pre>
+                      <pre class="language-r">      if (!is.null(parent)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">189</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">110</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return Virtual method, returns nothing and raises an error.</pre>
+                      <pre class="language-r">        fs &lt;- teal_slices(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">190</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">111</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_filter_overview = function() {</pre>
+                      <pre class="language-r">          exclude_varnames = structure(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">191</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">112</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stop("get_filter_overview is an abstract class method")</pre>
+                      <pre class="language-r">            list(intersect(colnames(dataset), colnames(isolate(parent())))),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">192</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">113</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">            names = private$dataname</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</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">194</td>
+                    <td class="num">115</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">195</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">116</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Gets the key columns for this dataset.</pre>
+                      <pre class="language-r">        self$set_filter_state(fs)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">196</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return Character vector of variable names</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_keys = function() {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">198</td>
-                    <td class="coverage">133<em>x</em></td>
+                    <td class="num">119</td>
+                    <td class="coverage">99<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$keys</pre>
+                      <pre class="language-r">      invisible(self)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">199</td>
+                    <td class="num">120</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">121</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">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">202</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Gets the dataset label.</pre>
+                      <pre class="language-r">    #' Gets the subset expression.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return Character string.</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_dataset_label = function() {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">205</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      private$label</pre>
+                      <pre class="language-r">    #' This function returns subset expressions equivalent to selected items</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">206</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">    #' within each of `filter_states`. Configuration of the expressions is constant and</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' depends on `filter_states` type and order which are set during initialization.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # modules ------</pre>
+                      <pre class="language-r">    #' This class contains single `FilterStates` which contains single `state_list`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">    #' and all `FilterState` objects apply to one argument (`...`) in a `dplyr::filter` call.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">210</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' `shiny` module containing active filters for a dataset, along with a title and a remove button.</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">211</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param id (`character(1)`)</pre>
+                      <pre class="language-r">    #' @param sid (`character`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">212</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
+                      <pre class="language-r">    #'  when specified, the method returns code containing conditions calls of</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">213</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">    #'  `FilterState` objects with `sid` different to that of this `sid` argument.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">214</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `shiny.tag`</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">215</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_active = function(id) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">216</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      dataname &lt;- self$get_dataname()</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">217</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_string(dataname)</pre>
+                      <pre class="language-r">    #' @return Either a `list` of length 1 containing a filter `call`, or `NULL`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">218</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">219</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">220</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      if_multiple_filter_states &lt;- length(private$get_filter_states()) &gt; 1</pre>
+                      <pre class="language-r">    get_call = function(sid = "") {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">221</td>
-                    <td class="coverage">!</td>
+                  <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">      tags$span(</pre>
+                      <pre class="language-r">      logger::log_trace("DataframeFilteredDataset$get_call initializing for dataname: { private$dataname }")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">222</td>
-                    <td class="coverage">!</td>
+                  <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">        id = id,</pre>
+                      <pre class="language-r">      filter_call &lt;- super$get_call(sid)</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">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        include_css_files("filter-panel"),</pre>
+                      <pre class="language-r">      dataname &lt;- private$dataname</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">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$div(</pre>
+                      <pre class="language-r">      parent_dataname &lt;- private$parent_name</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">225</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">          id = ns("whole_ui"), # to hide it entirely</pre>
+                      <pre class="language-r"></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">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          fluidRow(</pre>
+                      <pre class="language-r">      if (!identical(parent_dataname, character(0))) {</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">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            column(</pre>
+                      <pre class="language-r">        join_keys &lt;- private$join_keys</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">228</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">144</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              width = 8,</pre>
+                      <pre class="language-r">        parent_keys &lt;- unname(join_keys)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">229</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">145</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              tags$span(dataname, class = "filter_panel_dataname")</pre>
+                      <pre class="language-r">        dataset_keys &lt;- names(join_keys)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">230</td>
+                    <td class="num">146</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">231</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">147</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            column(</pre>
+                      <pre class="language-r">        y_arg &lt;- if (length(parent_keys) == 0L) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">232</td>
+                    <td class="num">148</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              width = 4,</pre>
+                      <pre class="language-r">          parent_dataname</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">233</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">149</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              tagList(</pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">234</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">150</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                actionLink(</pre>
+                      <pre class="language-r">          sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">235</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">151</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  ns("remove_filters"),</pre>
+                      <pre class="language-r">            "%s[, c(%s), drop = FALSE]",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">236</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">152</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  label = "",</pre>
+                      <pre class="language-r">            parent_dataname,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">237</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">153</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  icon = icon("circle-xmark", lib = "font-awesome"),</pre>
+                      <pre class="language-r">            toString(dQuote(parent_keys, q = FALSE))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">238</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">                  class = "remove pull-right"</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">239</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="missed">
-                    <td class="num">240</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">                actionLink(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">241</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">157</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  ns("collapse"),</pre>
+                      <pre class="language-r">        more_args &lt;- if (length(parent_keys) == 0 || length(dataset_keys) == 0) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">242</td>
+                    <td class="num">158</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  label = "",</pre>
+                      <pre class="language-r">          list()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">243</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">159</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  icon = icon("angle-down", lib = "font-awesome"),</pre>
+                      <pre class="language-r">        } else if (identical(parent_keys, dataset_keys)) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">244</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">160</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  class = "remove pull-right"</pre>
+                      <pre class="language-r">          list(by = parent_keys)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">245</td>
+                    <td class="num">161</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">246</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">              )</pre>
+                      <pre class="language-r">          list(by = stats::setNames(parent_keys, dataset_keys))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">247</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">248</td>
+                    <td class="num">164</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">249</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">165</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          shinyjs::hidden(</pre>
+                      <pre class="language-r">        merge_call &lt;- call(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">250</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">            tags$div(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">251</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              id = ns("filter_count_ui"),</pre>
+                      <pre class="language-r">          "&lt;-",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">252</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">167</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              tagList(</pre>
+                      <pre class="language-r">          as.name(dataname),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">253</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">168</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                textOutput(ns("filter_count")),</pre>
+                      <pre class="language-r">          as.call(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">254</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">169</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                tags$br()</pre>
+                      <pre class="language-r">            c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">255</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">170</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r">              str2lang("dplyr::inner_join"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">256</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">171</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">              x = as.name(dataname),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">257</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">172</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">              y = str2lang(y_arg),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">258</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">173</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          tags$div(</pre>
+                      <pre class="language-r">              more_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">259</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            # id needed to insert and remove UI to filter single variable as needed</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">260</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            # it is currently also used by the above module to entirely hide this panel</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">261</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            id = ns("filters"),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">262</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            class = "parent-hideable-list-group",</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">263</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            tagList(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">264</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              lapply(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">265</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                names(private$get_filter_states()),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">266</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                function(x) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">267</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                  tagList(private$get_filter_states()[[x]]$ui_active(id = ns(x)))</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">268</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">269</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">270</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">178</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">        filter_call &lt;- c(filter_call, merge_call)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">271</td>
+                    <td class="num">179</td>
                     <td class="coverage"></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>
+                  <tr class="covered">
+                    <td class="num">180</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">      logger::log_trace("DataframeFilteredDataset$get_call initializing for dataname: { private$dataname }")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">273</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">181</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      filter_call</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">274</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">275</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">276</td>
+                    <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">277</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Server module for a dataset active filters.</pre>
+                      <pre class="language-r">    #' Set filter state.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">278</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">279</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param id (`character(1)`)</pre>
+                      <pre class="language-r">    #' @param state (`teal_slices`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">280</td>
+                    <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
+                      <pre class="language-r">    #' @return `NULL`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">281</td>
+                    <td class="num">189</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">282</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    srv_active = function(id) {</pre>
+                      <pre class="language-r">    set_filter_state = function(state) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">283</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">191</td>
+                    <td class="coverage">81<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      moduleServer(</pre>
+                      <pre class="language-r">      isolate({</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">284</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">192</td>
+                    <td class="coverage">81<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = id,</pre>
+                      <pre class="language-r">        logger::log_trace("{ class(self)[1] }$set_filter_state initializing, dataname: { private$dataname }")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">285</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">193</td>
+                    <td class="coverage">81<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        function(input, output, session) {</pre>
+                      <pre class="language-r">        checkmate::assert_class(state, "teal_slices")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">286</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">194</td>
+                    <td class="coverage">80<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          dataname &lt;- self$get_dataname()</pre>
+                      <pre class="language-r">        lapply(state, function(slice) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">287</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">195</td>
+                    <td class="coverage">97<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_trace("FilteredDataset$srv_active initializing, dataname: { dataname }")</pre>
+                      <pre class="language-r">          checkmate::assert_true(slice$dataname == private$dataname)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">288</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">196</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          checkmate::assert_string(dataname)</pre>
+                      <pre class="language-r">        })</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">289</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">197</td>
+                    <td class="coverage">80<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          output$filter_count &lt;- renderText(</pre>
+                      <pre class="language-r">        private$get_filter_states()[[1L]]$set_filter_state(state = state)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">290</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">198</td>
+                    <td class="coverage">80<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            sprintf(</pre>
+                      <pre class="language-r">        invisible(NULL)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">291</td>
-                    <td class="coverage">7<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">              "%d filter%s applied",</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">292</td>
-                    <td class="coverage">7<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">              self$get_filter_count(),</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">293</td>
-                    <td class="coverage">7<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">              if (self$get_filter_count() != 1) "s" else ""</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">294</td>
+                    <td class="num">202</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">295</td>
+                    <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">    #' Remove one or more `FilterState` form a `FilteredDataset`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">296</td>
+                    <td class="num">204</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">297</td>
-                    <td class="coverage">7<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">          lapply(</pre>
+                      <pre class="language-r">    #' @param state (`teal_slices`)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">298</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">206</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            names(private$get_filter_states()),</pre>
+                      <pre class="language-r">    #'   specifying `FilterState` objects to remove;</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">299</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">207</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            function(x) {</pre>
+                      <pre class="language-r">    #'   `teal_slice`s may contain only `dataname` and `varname`, other elements are ignored</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">300</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">208</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              private$get_filter_states()[[x]]$srv_active(id = x)</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">301</td>
+                    <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">    #' @return `NULL`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">302</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>
                   <tr class="never">
-                    <td class="num">303</td>
+                    <td class="num">211</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    remove_filter_state = function(state) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">304</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">212</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          observeEvent(self$get_filter_state(), {</pre>
+                      <pre class="language-r">      checkmate::assert_class(state, "teal_slices")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">305</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">213</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            shinyjs::hide("filter_count_ui")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">306</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">214</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            shinyjs::show("filters")</pre>
+                      <pre class="language-r">      isolate({</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">307</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">215</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            shinyjs::toggle("remove_filters", condition = length(self$get_filter_state()) != 0)</pre>
+                      <pre class="language-r">        logger::log_trace("{ class(self)[1] }$remove_filter_state removing filter(s), dataname: { private$dataname }")</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">216</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">308</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">217</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            shinyjs::toggle("collapse", condition = length(self$get_filter_state()) != 0)</pre>
+                      <pre class="language-r">        varnames &lt;- unique(unlist(lapply(state, "[[", "varname")))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">309</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">218</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          })</pre>
+                      <pre class="language-r">        private$get_filter_states()[[1]]$remove_filter_state(state)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">310</td>
+                    <td class="num">219</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">311</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">220</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          observeEvent(input$collapse, {</pre>
+                      <pre class="language-r">        logger::log_trace("{ class(self)[1] }$remove_filter_state removed filter(s), dataname: { private$dataname }")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">312</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">221</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            shinyjs::toggle("filter_count_ui")</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">313</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">            shinyjs::toggle("filters")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">314</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">223</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            toggle_icon(session$ns("collapse"), c("fa-angle-right", "fa-angle-down"))</pre>
+                      <pre class="language-r">      invisible(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">315</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">316</td>
+                    <td class="num">225</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">317</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">226</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          observeEvent(input$remove_filters, {</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">318</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">227</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            logger::log_trace("FilteredDataset$srv_active@1 removing all non-anchored filters, dataname: { dataname }")</pre>
+                      <pre class="language-r">    #' UI module to add filter variable for this dataset.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">319</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">228</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            self$clear_filter_states()</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">320</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">229</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            logger::log_trace("FilteredDataset$srv_active@1 removed all non-anchored filters, dataname: { dataname }")</pre>
+                      <pre class="language-r">    #' @param id (`character(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">321</td>
+                    <td class="num">230</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          })</pre>
+                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">322</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="covered">
-                    <td class="num">323</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">232</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_trace("FilteredDataset$initialized, dataname: { dataname }")</pre>
+                      <pre class="language-r">    #' @return `shiny.tag`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">324</td>
+                    <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    ui_add = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">325</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">234</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          NULL</pre>
+                      <pre class="language-r">      ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">326</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">235</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">      tagList(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">236</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        tags$label("Add", tags$code(self$get_dataname()), "filter"),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">237</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        private$get_filter_states()[["filter"]]$ui_add(id = ns("filter"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">327</td>
+                    <td class="num">238</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">328</td>
+                    <td class="num">239</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">329</td>
+                    <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">330</td>
+                    <td class="num">241</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">331</td>
+                    <td class="num">242</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' UI module to add filter variable for this dataset.</pre>
+                      <pre class="language-r">    #' Creates row for filter overview in the form of \cr</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">332</td>
+                    <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">    #' `dataname -- observations (remaining/total)` - data.frame</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">333</td>
+                    <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param id (`character(1)`)</pre>
+                      <pre class="language-r">    #' @return A `data.frame`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">334</td>
+                    <td class="num">245</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
+                      <pre class="language-r">    get_filter_overview = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">335</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">246</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">      logger::log_trace("FilteredDataset$srv_filter_overview initialized")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">336</td>
+                    <td class="num">247</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return Virtual method, returns nothing and raises error.</pre>
+                      <pre class="language-r">      # Gets filter overview subjects number and returns a list</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">337</td>
+                    <td class="num">248</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_add = function(id) {</pre>
+                      <pre class="language-r">      # of the number of subjects of filtered/non-filtered datasets</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">338</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">249</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stop("Pure virtual method")</pre>
+                      <pre class="language-r">      subject_keys &lt;- if (length(private$parent_name) &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">339</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">250</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">        names(private$join_keys)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">340</td>
+                    <td class="num">251</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">341</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">252</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">        self$get_keys()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">342</td>
+                    <td class="num">253</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Server module to add filter variable for this dataset.</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">343</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">254</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' For this class `srv_add` calls multiple modules</pre>
+                      <pre class="language-r">      dataset &lt;- self$get_dataset()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">344</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">255</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' of the same name from `FilterStates` as `MAEFilteredDataset`</pre>
+                      <pre class="language-r">      data_filtered &lt;- self$get_dataset(TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">345</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">256</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' contains one `FilterStates` object for `colData` and one for each experiment.</pre>
+                      <pre class="language-r">      if (length(subject_keys) == 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">346</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">257</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">        data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">347</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">258</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param id (`character(1)`)</pre>
+                      <pre class="language-r">          dataname = private$dataname,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">348</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">259</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
+                      <pre class="language-r">          obs = nrow(dataset),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">349</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">260</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">          obs_filtered = nrow(data_filtered())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">350</td>
+                    <td class="num">261</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">351</td>
+                    <td class="num">262</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    srv_add = function(id) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">352</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      moduleServer(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">353</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        id = id,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">354</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        function(input, output, session) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">355</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_trace("MAEFilteredDataset$srv_add initializing, dataname: { deparse1(self$get_dataname()) }")</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">356</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          elems &lt;- private$get_filter_states()</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">357</td>
+                    <td class="num">263</td>
                     <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          elem_names &lt;- names(private$get_filter_states())</pre>
+                      <pre class="language-r">        data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">358</td>
+                    <td class="num">264</td>
                     <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          lapply(</pre>
+                      <pre class="language-r">          dataname = private$dataname,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">359</td>
+                    <td class="num">265</td>
                     <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            elem_names,</pre>
+                      <pre class="language-r">          obs = nrow(dataset),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">360</td>
+                    <td class="num">266</td>
                     <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            function(elem_name) elems[[elem_name]]$srv_add(elem_name)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">361</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">          obs_filtered = nrow(data_filtered()),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">362</td>
+                    <td class="num">267</td>
                     <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_trace("MAEFilteredDataset$srv_add initialized, dataname: { deparse1(self$get_dataname()) }")</pre>
+                      <pre class="language-r">          subjects = nrow(unique(dataset[subject_keys])),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">363</td>
+                    <td class="num">268</td>
                     <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          NULL</pre>
+                      <pre class="language-r">          subjects_filtered = nrow(unique(data_filtered()[subject_keys]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">364</td>
+                    <td class="num">269</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">365</td>
+                    <td class="num">270</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">366</td>
+                    <td class="num">271</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">367</td>
+                    <td class="num">272</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">368</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  # private fields ----</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">369</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  private = list(</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">370</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    dataset = NULL, # data.frame or MultiAssayExperiment</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">371</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    data_filtered = NULL,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">372</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    data_filtered_fun = NULL, # function</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">373</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    filter_states = list(),</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">374</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    dataname = character(0),</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">375</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    keys = character(0),</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">376</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    label = character(0),</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">377</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">378</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    # Adds `FilterStates` to the `private$filter_states`.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">379</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    # `FilterStates` is added once for each element of the dataset.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">380</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    # @param filter_states (`FilterStates`)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">381</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    # @param id (`character(1)`)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">382</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    add_filter_states = function(filter_states, id) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">383</td>
-                    <td class="coverage">225<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_class(filter_states, "FilterStates")</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">384</td>
-                    <td class="coverage">225<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_string(id)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">385</td>
-                    <td class="coverage">225<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      x &lt;- stats::setNames(list(filter_states), id)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">386</td>
-                    <td class="coverage">225<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      private$filter_states &lt;- c(private$get_filter_states(), x)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">387</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">388</td>
+                    <td class="num">273</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">389</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    # @description</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">390</td>
+                    <td class="num">274</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Gets `FilterStates` objects in this `FilteredDataset`.</pre>
+                      <pre class="language-r">  # private fields ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">391</td>
+                    <td class="num">275</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @return list of `FilterStates` objects.</pre>
+                      <pre class="language-r">  private = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">392</td>
+                    <td class="num">276</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_filter_states = function() {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">393</td>
-                    <td class="coverage">684<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      private$filter_states</pre>
+                      <pre class="language-r">    parent_name = character(0),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">394</td>
+                    <td class="num">277</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    join_keys = character(0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">395</td>
+                    <td class="num">278</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">396</td>
+                    <td class="num">279</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">)</pre>
@@ -47824,42 +47458,42 @@ <h2>teal.slice coverage - 65.89%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/FilteredDatasetDataframe.R" class="hidden">
+            <div id="R/choices_labeled.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"># DataframeFilteredDataset ------</pre>
+                      <pre class="language-r">#' Set "`&lt;choice&gt;:&lt;label&gt;`" type of names</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">#' @name DataframeFilteredDataset</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @docType class</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">#' @title The `DataframeFilteredDataset` `R6` class</pre>
+                      <pre class="language-r">#' This is often useful for as it marks up the drop-down boxes for [shiny::selectInput()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -47873,21 +47507,21 @@ <h2>teal.slice coverage - 65.89%</h2>
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @details</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # use non-exported function from teal.slice</pre>
+                      <pre class="language-r">#' If either `choices` or `labels` are factors, they are coerced to character.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' DataframeFilteredDataset &lt;- getFromNamespace("DataframeFilteredDataset", "teal.slice")</pre>
+                      <pre class="language-r">#' Duplicated elements from `choices` get removed.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -47901,77 +47535,77 @@ <h2>teal.slice coverage - 65.89%</h2>
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(shiny)</pre>
+                      <pre class="language-r">#' @param choices (`character` or `numeric` or `logical`) vector</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">#' @param labels (`character`) vector containing labels to be applied to `choices`. If `NA` then</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ds &lt;- DataframeFilteredDataset$new(iris, "iris")</pre>
+                      <pre class="language-r">#' "Label Missing" will be used.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ds$set_filter_state(</pre>
+                      <pre class="language-r">#' @param subset a vector that is a subset of `choices`. This is useful if</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   teal_slices(</pre>
+                      <pre class="language-r">#'   only a few variables need to be named. If this argument is used, the returned vector will</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     teal_slice(dataname = "iris", varname = "Species", selected = "virginica"),</pre>
+                      <pre class="language-r">#'   match its order.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     teal_slice(dataname = "iris", varname = "Petal.Length", selected = c(2.0, 5))</pre>
+                      <pre class="language-r">#' @param types vector containing the types of the columns.</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="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' @return A named character vector.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' isolate(ds$get_filter_state())</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">#' isolate(ds$get_call())</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -47985,11227 +47619,11186 @@ <h2>teal.slice coverage - 65.89%</h2>
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## set_filter_state</pre>
+                      <pre class="language-r">choices_labeled &lt;- function(choices, labels, subset = NULL, types = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">24</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' dataset &lt;- DataframeFilteredDataset$new(iris, "iris")</pre>
+                      <pre class="language-r">  if (is.factor(choices)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">25</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' fs &lt;- teal_slices(</pre>
+                      <pre class="language-r">    choices &lt;- as.character(choices)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   teal_slice(dataname = "iris", varname = "Species", selected = "virginica"),</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   teal_slice(dataname = "iris", varname = "Petal.Length", selected = c(2.0, 5))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">28</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  stopifnot(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">29</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' dataset$set_filter_state(state = fs)</pre>
+                      <pre class="language-r">    is.character(choices) ||</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">30</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' isolate(dataset$get_filter_state())</pre>
+                      <pre class="language-r">      is.numeric(choices) ||</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">31</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      is.logical(choices) ||</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">32</td>
-                    <td class="coverage"></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">      (length(choices) == 1 &amp;&amp; is.na(choices))</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="never">
                     <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">DataframeFilteredDataset &lt;- R6::R6Class( # nolint</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">35</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  classname = "DataframeFilteredDataset",</pre>
+                      <pre class="language-r">  if (is.factor(labels)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">36</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  inherit = FilteredDataset,</pre>
+                      <pre class="language-r">    labels &lt;- as.character(labels)</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">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # public fields ----</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">39</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  public = list(</pre>
+                      <pre class="language-r">  checkmate::assert_character(labels[!is.na(labels)], any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">40</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  if (length(choices) != length(labels)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">41</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">    stop("length of choices must be the same as labels")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Initializes this `DataframeFilteredDataset` object.</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">43</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">  stopifnot(is.null(subset) || is.vector(subset))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">44</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param dataset (`data.frame`)</pre>
+                      <pre class="language-r">  stopifnot(is.null(types) || is.vector(types))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'  single `data.frame` for which filters are rendered.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">46</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param dataname (`character(1)`)</pre>
+                      <pre class="language-r">  if (is.vector(types)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">47</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'  syntactically valid name given to the dataset.</pre>
+                      <pre class="language-r">    stopifnot(length(choices) == length(types))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param keys (`character`) optional</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">    #'  vector of primary key column names.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">50</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param parent_name (`character(1)`)</pre>
+                      <pre class="language-r">  if (!is.null(subset)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">51</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   name of the parent dataset.</pre>
+                      <pre class="language-r">    if (!all(subset %in% choices)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">52</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param parent (`reactive`)</pre>
+                      <pre class="language-r">      stop("all of subset variables must be in choices")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   that returns a filtered `data.frame` from other `FilteredDataset` named `parent_name`.</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">54</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   Passing `parent` results in a `reactive` link that causes re-filtering of this `dataset`</pre>
+                      <pre class="language-r">    labels &lt;- labels[choices %in% subset]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">55</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   based on the changes in `parent`.</pre>
+                      <pre class="language-r">    types &lt;- types[choices %in% subset]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">56</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param join_keys (`character`)</pre>
+                      <pre class="language-r">    choices &lt;- choices[choices %in% subset]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   vector of names of columns in this dataset to join with `parent` dataset.</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   If column names in the parent do not match these, they should be given as the names of this vector.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">59</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param label (`character(1)`)</pre>
+                      <pre class="language-r">  is_dupl &lt;- duplicated(choices)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">60</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   label to describe the dataset.</pre>
+                      <pre class="language-r">  choices &lt;- choices[!is_dupl]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">61</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">  labels &lt;- labels[!is_dupl]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">62</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return Object of class `DataframeFilteredDataset`, invisibly.</pre>
+                      <pre class="language-r">  types &lt;- types[!is_dupl]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">63</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">  labels[is.na(labels)] &lt;- "Label Missing"</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">64</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    initialize = function(dataset,</pre>
+                      <pre class="language-r">  raw_labels &lt;- labels</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">65</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          dataname,</pre>
+                      <pre class="language-r">  combined_labels &lt;- if (length(choices) &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">66</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          keys = character(0),</pre>
+                      <pre class="language-r">    paste0(choices, ": ", labels)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          parent_name = character(0),</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">68</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          parent = NULL,</pre>
+                      <pre class="language-r">    character(0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          join_keys = character(0),</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          label = character(0)) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">71</td>
-                    <td class="coverage">103<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_data_frame(dataset)</pre>
+                      <pre class="language-r">  if (!is.null(subset)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">72</td>
-                    <td class="coverage">101<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      super$initialize(dataset, dataname, keys, label)</pre>
+                      <pre class="language-r">    ord &lt;- match(subset, choices)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">73</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    choices &lt;- choices[ord]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">74</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # overwrite filtered_data if there is relationship with parent dataset</pre>
+                      <pre class="language-r">    raw_labels &lt;- raw_labels[ord]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">75</td>
-                    <td class="coverage">99<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!is.null(parent)) {</pre>
+                      <pre class="language-r">    combined_labels &lt;- combined_labels[ord]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">76</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        checkmate::assert_character(parent_name, len = 1)</pre>
+                      <pre class="language-r">    types &lt;- types[ord]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">77</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        checkmate::assert_character(join_keys, min.len = 1)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">78</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  choices &lt;- structure(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">79</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$parent_name &lt;- parent_name</pre>
+                      <pre class="language-r">    choices,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">80</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$join_keys &lt;- join_keys</pre>
+                      <pre class="language-r">    names = combined_labels,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">81</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    raw_labels = raw_labels,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">82</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$data_filtered_fun &lt;- function(sid = "") {</pre>
+                      <pre class="language-r">    combined_labels = combined_labels,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">83</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          checkmate::assert_character(sid)</pre>
+                      <pre class="language-r">    class = c("choices_labeled", "character"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">84</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (length(sid)) {</pre>
+                      <pre class="language-r">    types = types</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">85</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            logger::log_trace("filtering data dataname: { dataname }, sid: { sid }")</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">86</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">
+                  <tr class="covered">
                     <td class="num">87</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            logger::log_trace("filtering data dataname: { private$dataname }")</pre>
+                      <pre class="language-r">  choices</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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">89</td>
-                    <td class="coverage">8<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          env &lt;- new.env(parent = parent.env(globalenv()))</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">90</td>
-                    <td class="coverage">8<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          env[[dataname]] &lt;- private$dataset</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">91</td>
-                    <td class="coverage">8<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          env[[parent_name]] &lt;- parent()</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">92</td>
-                    <td class="coverage">8<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          filter_call &lt;- self$get_call(sid)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">93</td>
-                    <td class="coverage">8<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          eval_expr_with_msg(filter_call, env)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">94</td>
-                    <td class="coverage">8<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          get(x = dataname, envir = env)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/FilteredDataset.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r"># FilteredDataset abstract --------</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</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">97</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">98</td>
-                    <td class="coverage">99<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      private$add_filter_states(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">99</td>
-                    <td class="coverage">99<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        filter_states = init_filter_states(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">100</td>
-                    <td class="coverage">99<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          data = dataset,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">101</td>
-                    <td class="coverage">99<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          data_reactive = private$data_filtered_fun,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">102</td>
-                    <td class="coverage">99<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          dataname = dataname,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">103</td>
-                    <td class="coverage">99<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          keys = self$get_keys()</pre>
+                      <pre class="language-r">#' @name FilteredDataset</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">105</td>
-                    <td class="coverage">99<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        id = "filter"</pre>
+                      <pre class="language-r">#' @docType class</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @title `FilteredDataset` `R6` class</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # todo: Should we make these defaults? It could be handled by the app developer</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">109</td>
-                    <td class="coverage">99<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      if (!is.null(parent)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">110</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        fs &lt;- teal_slices(</pre>
+                      <pre class="language-r">#' @description</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">111</td>
-                    <td class="coverage">10<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">          exclude_varnames = structure(</pre>
+                      <pre class="language-r">#' `FilteredDataset` is a class which renders/controls `FilterStates`(s)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">112</td>
-                    <td class="coverage">10<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">            list(intersect(colnames(dataset), colnames(isolate(parent())))),</pre>
+                      <pre class="language-r">#' Each `FilteredDataset` contains `filter_states` field - a `list` which contains one</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">113</td>
-                    <td class="coverage">10<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">            names = private$dataname</pre>
+                      <pre class="language-r">#' (`data.frame`) or multiple (`MultiAssayExperiment`) `FilterStates` objects.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#' Each `FilterStates` is responsible for one filter/subset expression applied for specific</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' components of the dataset.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">116</td>
-                    <td class="coverage">10<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">        self$set_filter_state(fs)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">14</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">118</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">FilteredDataset &lt;- R6::R6Class( # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">119</td>
-                    <td class="coverage">99<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">      invisible(self)</pre>
+                      <pre class="language-r">  "FilteredDataset",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">  # public methods ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">18</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">122</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Gets the subset expression.</pre>
+                      <pre class="language-r">    #' Initializes this `FilteredDataset` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</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">125</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' This function returns subset expressions equivalent to selected items</pre>
+                      <pre class="language-r">    #' @param dataset any object</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' within each of `filter_states`. Configuration of the expressions is constant and</pre>
+                      <pre class="language-r">    #' @param dataname (`character(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' depends on `filter_states` type and order which are set during initialization.</pre>
+                      <pre class="language-r">    #'  syntactically valid name given to the dataset.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' This class contains single `FilterStates` which contains single `state_list`</pre>
+                      <pre class="language-r">    #' @param keys (`character`) optional</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' and all `FilterState` objects apply to one argument (`...`) in a `dplyr::filter` call.</pre>
+                      <pre class="language-r">    #'   vector of primary key column names.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</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 label (`character(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param sid (`character`)</pre>
+                      <pre class="language-r">    #'   label to describe the dataset.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'  when specified, the method returns code containing conditions calls of</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'  `FilterState` objects with `sid` different to that of this `sid` argument.</pre>
+                      <pre class="language-r">    #' @return Object of class `FilteredDataset`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return Either a `list` of length 1 containing a filter `call`, or `NULL`.</pre>
+                      <pre class="language-r">    initialize = function(dataset, dataname, keys = character(0), label = attr(dataset, "label", exact = TRUE)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">33</td>
+                    <td class="coverage">153<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      logger::log_trace("Instantiating { class(self)[1] }, dataname: { dataname }")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_call = function(sid = "") {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">137</td>
-                    <td class="coverage">42<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">      logger::log_trace("DataframeFilteredDataset$get_call initializing for dataname: { private$dataname }")</pre>
+                      <pre class="language-r">      # dataset assertion in child classes</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">138</td>
-                    <td class="coverage">42<em>x</em></td>
+                    <td class="num">36</td>
+                    <td class="coverage">153<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      filter_call &lt;- super$get_call(sid)</pre>
+                      <pre class="language-r">      check_simple_name(dataname)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">139</td>
-                    <td class="coverage">42<em>x</em></td>
+                    <td class="num">37</td>
+                    <td class="coverage">151<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dataname &lt;- private$dataname</pre>
+                      <pre class="language-r">      checkmate::assert_character(keys, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">140</td>
-                    <td class="coverage">42<em>x</em></td>
+                    <td class="num">38</td>
+                    <td class="coverage">151<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      parent_dataname &lt;- private$parent_name</pre>
+                      <pre class="language-r">      checkmate::assert_character(label, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</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">142</td>
-                    <td class="coverage">42<em>x</em></td>
+                    <td class="num">40</td>
+                    <td class="coverage">151<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!identical(parent_dataname, character(0))) {</pre>
+                      <pre class="language-r">      logger::log_trace("Instantiating { class(self)[1] }, dataname: { dataname }")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">143</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">41</td>
+                    <td class="coverage">151<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        join_keys &lt;- private$join_keys</pre>
+                      <pre class="language-r">      private$dataset &lt;- dataset</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">144</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">42</td>
+                    <td class="coverage">151<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        parent_keys &lt;- unname(join_keys)</pre>
+                      <pre class="language-r">      private$dataname &lt;- dataname</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">145</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">43</td>
+                    <td class="coverage">151<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dataset_keys &lt;- names(join_keys)</pre>
+                      <pre class="language-r">      private$keys &lt;- keys</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">146</td>
+                  <tr class="covered">
+                    <td class="num">44</td>
+                    <td class="coverage">151<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      private$label &lt;- if (is.null(label)) character(0) else label</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>
                     </td>
                   </tr>
+                  <tr class="never">
+                    <td class="num">46</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      # function executing reactive call and returning data</pre>
+                    </td>
+                  </tr>
                   <tr class="covered">
-                    <td class="num">147</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">47</td>
+                    <td class="coverage">151<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        y_arg &lt;- if (length(parent_keys) == 0L) {</pre>
+                      <pre class="language-r">      private$data_filtered_fun &lt;- function(sid = "") {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">48</td>
+                    <td class="coverage">24<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        checkmate::assert_character(sid)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">49</td>
+                    <td class="coverage">24<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        if (length(sid)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">50</td>
+                    <td class="coverage">24<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          logger::log_trace("filtering data dataname: { dataname }, sid: { sid }")</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">51</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">148</td>
+                    <td class="num">52</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          parent_dataname</pre>
+                      <pre class="language-r">          logger::log_trace("filtering data dataname: { private$dataname }")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">53</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">150</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">54</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          sprintf(</pre>
+                      <pre class="language-r">        env &lt;- new.env(parent = parent.env(globalenv()))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">151</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">55</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "%s[, c(%s), drop = FALSE]",</pre>
+                      <pre class="language-r">        env[[dataname]] &lt;- private$dataset</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">152</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">56</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            parent_dataname,</pre>
+                      <pre class="language-r">        filter_call &lt;- self$get_call(sid)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">153</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">57</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            toString(dQuote(parent_keys, q = FALSE))</pre>
+                      <pre class="language-r">        eval_expr_with_msg(filter_call, env)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">154</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">58</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">        get(x = dataname, envir = env)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">59</td>
                     <td class="coverage"></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">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">157</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">61</td>
+                    <td class="coverage">151<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        more_args &lt;- if (length(parent_keys) == 0 || length(dataset_keys) == 0) {</pre>
+                      <pre class="language-r">      private$data_filtered &lt;- reactive(private$data_filtered_fun())</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">158</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">62</td>
+                    <td class="coverage">151<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          list()</pre>
+                      <pre class="language-r">      logger::log_trace("Instantiated { class(self)[1] }, dataname: { private$dataname }")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">159</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">63</td>
+                    <td class="coverage">151<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else if (identical(parent_keys, dataset_keys)) {</pre>
+                      <pre class="language-r">      invisible(self)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">160</td>
-                    <td class="coverage">7<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">          list(by = parent_keys)</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">65</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">162</td>
-                    <td class="coverage">2<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">          list(by = stats::setNames(parent_keys, dataset_keys))</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">    #' Returns a formatted string representing this `FilteredDataset` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">68</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">165</td>
-                    <td class="coverage">9<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">        merge_call &lt;- call(</pre>
+                      <pre class="language-r">    #' @param show_all (`logical(1)`) passed to `format.teal_slice`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "&lt;-",</pre>
+                      <pre class="language-r">    #' @param trim_lines (`logical(1)`) passed to `format.teal_slice`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">9<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">          as.name(dataname),</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">9<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">          as.call(</pre>
+                      <pre class="language-r">    #' @return The formatted character string.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">9<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">            c(</pre>
+                      <pre class="language-r">    #'</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">74</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    format = function(show_all = FALSE, trim_lines = TRUE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">170</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">75</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              str2lang("dplyr::inner_join"),</pre>
+                      <pre class="language-r">      sprintf(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">76</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              x = as.name(dataname),</pre>
+                      <pre class="language-r">        "%s:\n%s",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">172</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">77</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              y = str2lang(y_arg),</pre>
+                      <pre class="language-r">        class(self)[1],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">173</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">78</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              more_args</pre>
+                      <pre class="language-r">        format(self$get_filter_state(), show_all = show_all, trim_lines = trim_lines)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</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">175</td>
+                    <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">176</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">177</td>
+                    <td class="num">82</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">178</td>
-                    <td class="coverage">9<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">        filter_call &lt;- c(filter_call, merge_call)</pre>
+                      <pre class="language-r">    #' Prints this `FilteredDataset` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</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="covered">
-                    <td class="num">180</td>
-                    <td class="coverage">42<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">      logger::log_trace("DataframeFilteredDataset$get_call initializing for dataname: { private$dataname }")</pre>
+                      <pre class="language-r">    #' @param ... additional arguments passed to `format`.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <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">87</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    print = function(...) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">181</td>
-                    <td class="coverage">42<em>x</em></td>
+                    <td class="num">88</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      filter_call</pre>
+                      <pre class="language-r">      cat(isolate(self$format(...)), "\n")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</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">183</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Set filter state.</pre>
+                      <pre class="language-r">    #' Removes all filter items applied to this dataset.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param state (`teal_slices`)</pre>
+                      <pre class="language-r">    #' @param force (`logical(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `NULL`, invisibly.</pre>
+                      <pre class="language-r">    #'   flag specifying whether to include anchored filter states.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">189</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set_filter_state = function(state) {</pre>
+                      <pre class="language-r">    #' @return `NULL`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">191</td>
-                    <td class="coverage">81<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">98</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      isolate({</pre>
+                      <pre class="language-r">    clear_filter_states = function(force = FALSE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">192</td>
-                    <td class="coverage">81<em>x</em></td>
+                    <td class="num">99</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        logger::log_trace("{ class(self)[1] }$set_filter_state initializing, dataname: { private$dataname }")</pre>
+                      <pre class="language-r">      logger::log_trace("Removing filters from FilteredDataset: { deparse1(self$get_dataname()) }")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">193</td>
-                    <td class="coverage">81<em>x</em></td>
+                    <td class="num">100</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        checkmate::assert_class(state, "teal_slices")</pre>
+                      <pre class="language-r">      lapply(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">194</td>
-                    <td class="coverage">80<em>x</em></td>
+                    <td class="num">101</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        lapply(state, function(slice) {</pre>
+                      <pre class="language-r">        private$get_filter_states(),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">195</td>
-                    <td class="coverage">97<em>x</em></td>
+                    <td class="num">102</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          checkmate::assert_true(slice$dataname == private$dataname)</pre>
+                      <pre class="language-r">        function(filter_states) filter_states$clear_filter_states(force)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">196</td>
+                    <td class="num">103</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">197</td>
-                    <td class="coverage">80<em>x</em></td>
+                    <td class="num">104</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$get_filter_states()[[1L]]$set_filter_state(state = state)</pre>
+                      <pre class="language-r">      logger::log_trace("Removed filters from FilteredDataset: { deparse1(self$get_dataname()) }")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">198</td>
-                    <td class="coverage">80<em>x</em></td>
+                    <td class="num">105</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        invisible(NULL)</pre>
+                      <pre class="language-r">      NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">199</td>
+                    <td class="num">106</td>
                     <td class="coverage"></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">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">201</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # managing filter states -----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">202</td>
+                    <td class="num">109</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">203</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Remove one or more `FilterState` form a `FilteredDataset`.</pre>
+                      <pre class="language-r">    # getters ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</td>
+                    <td class="num">111</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">205</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param state (`teal_slices`)</pre>
+                      <pre class="language-r">    #' Gets a filter expression.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">206</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   specifying `FilterState` objects to remove;</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   `teal_slice`s may contain only `dataname` and `varname`, other elements are ignored</pre>
+                      <pre class="language-r">    #' This function returns filter calls equivalent to selected items</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">    #' within each of `filter_states`. Configuration of the calls is constant and</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `NULL`, invisibly.</pre>
+                      <pre class="language-r">    #' depends on `filter_states` type and order which are set during initialization.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">210</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">211</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    remove_filter_state = function(state) {</pre>
+                      <pre class="language-r">    #' @param sid (`character`)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">212</td>
-                    <td class="coverage">11<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">      checkmate::assert_class(state, "teal_slices")</pre>
+                      <pre class="language-r">    #'  when specified, the method returns code containing conditions calls of</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">213</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #'  `FilterState` objects with `sid` different to this `sid` argument.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">214</td>
-                    <td class="coverage">11<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">      isolate({</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">215</td>
-                    <td class="coverage">11<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">        logger::log_trace("{ class(self)[1] }$remove_filter_state removing filter(s), dataname: { private$dataname }")</pre>
+                      <pre class="language-r">    #' @return Either a `list` of filter `call`s, or `NULL`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    get_call = function(sid = "") {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">217</td>
-                    <td class="coverage">11<em>x</em></td>
+                    <td class="num">124</td>
+                    <td class="coverage">47<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        varnames &lt;- unique(unlist(lapply(state, "[[", "varname")))</pre>
+                      <pre class="language-r">      filter_call &lt;- Filter(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">218</td>
-                    <td class="coverage">11<em>x</em></td>
+                    <td class="num">125</td>
+                    <td class="coverage">47<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$get_filter_states()[[1]]$remove_filter_state(state)</pre>
+                      <pre class="language-r">        f = Negate(is.null),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">126</td>
+                    <td class="coverage">47<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        x = lapply(private$get_filter_states(), function(x) x$get_call(sid))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">219</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="covered">
-                    <td class="num">220</td>
-                    <td class="coverage">11<em>x</em></td>
+                    <td class="num">128</td>
+                    <td class="coverage">47<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        logger::log_trace("{ class(self)[1] }$remove_filter_state removed filter(s), dataname: { private$dataname }")</pre>
+                      <pre class="language-r">      if (length(filter_call) == 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">221</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">129</td>
+                    <td class="coverage">29<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">222</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="covered">
-                    <td class="num">223</td>
-                    <td class="coverage">11<em>x</em></td>
+                    <td class="num">131</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(NULL)</pre>
+                      <pre class="language-r">      filter_call</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">224</td>
+                    <td class="num">132</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">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">226</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">227</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' UI module to add filter variable for this dataset.</pre>
+                      <pre class="language-r">    #' Gets states of all contained `FilterState` objects.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">228</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">229</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param id (`character(1)`)</pre>
+                      <pre class="language-r">    #' @return A `teal_slices` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">230</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">231</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">    get_filter_state = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">232</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">140</td>
+                    <td class="coverage">184<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `shiny.tag`</pre>
+                      <pre class="language-r">      states &lt;- unname(lapply(private$get_filter_states(), function(x) x$get_filter_state()))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">233</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">141</td>
+                    <td class="coverage">184<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_add = function(id) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">234</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">235</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      tagList(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">236</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        tags$label("Add", tags$code(self$get_dataname()), "filter"),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">237</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        private$get_filter_states()[["filter"]]$ui_add(id = ns("filter"))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">238</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      do.call(c, states)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">239</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">240</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">241</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">242</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Creates row for filter overview in the form of \cr</pre>
+                      <pre class="language-r">    #' Set filter state.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">243</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' `dataname -- observations (remaining/total)` - data.frame</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">244</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return A `data.frame`.</pre>
+                      <pre class="language-r">    #' @param state (`teal_slices`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">245</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_filter_overview = function() {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">246</td>
-                    <td class="coverage">12<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      logger::log_trace("FilteredDataset$srv_filter_overview initialized")</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">247</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # Gets filter overview subjects number and returns a list</pre>
+                      <pre class="language-r">    #' @return Virtual method, returns nothing and raises error.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">248</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # of the number of subjects of filtered/non-filtered datasets</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">249</td>
-                    <td class="coverage">12<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      subject_keys &lt;- if (length(private$parent_name) &gt; 0) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">250</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        names(private$join_keys)</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">251</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">    set_filter_state = function(state) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">252</td>
-                    <td class="coverage">11<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">        self$get_keys()</pre>
+                      <pre class="language-r">      stop("set_filter_state is an abstract class method.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">253</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">254</td>
-                    <td class="coverage">12<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      dataset &lt;- self$get_dataset()</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">255</td>
-                    <td class="coverage">12<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      data_filtered &lt;- self$get_dataset(TRUE)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">256</td>
-                    <td class="coverage">12<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      if (length(subject_keys) == 0) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">257</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        data.frame(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">258</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          dataname = private$dataname,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">259</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          obs = nrow(dataset),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">260</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          obs_filtered = nrow(data_filtered())</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">261</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">262</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">263</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        data.frame(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">264</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          dataname = private$dataname,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">265</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          obs = nrow(dataset),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">266</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          obs_filtered = nrow(data_filtered()),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">267</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          subjects = nrow(unique(dataset[subject_keys])),</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">268</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">156</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          subjects_filtered = nrow(unique(data_filtered()[subject_keys]))</pre>
+                      <pre class="language-r">    #' Gets the number of `FilterState` objects in all `FilterStates` in this `FilteredDataset`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">269</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    #' @return `integer(1)`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">270</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">    get_filter_count = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">271</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">159</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">      length(self$get_filter_state())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">272</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">273</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">274</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # private fields ----</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">275</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  private = list(</pre>
+                      <pre class="language-r">    #' Gets the name of the dataset.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">276</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    parent_name = character(0),</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">277</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    join_keys = character(0)</pre>
+                      <pre class="language-r">    #' @return A character string.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">278</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    get_dataname = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">279</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">167</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">      private$dataname</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/FilterStateDatettime.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># DatetimeFilterState ------</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">169</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">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname DatetimeFilterState</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @docType class</pre>
+                      <pre class="language-r">    #' Gets the dataset object in this `FilteredDataset`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">172</td>
                     <td class="coverage"></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">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @title `FilterState` object for date time data</pre>
+                      <pre class="language-r">    #' @param filtered (`logical(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">174</td>
                     <td class="coverage"></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">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description  Manages choosing a range of date-times.</pre>
+                      <pre class="language-r">    #' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' The stored dataset. If `data.frame` or `MultiAssayExperiment`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">    #' either raw or as a reactive with current filters applied (depending on `filtered`).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # use non-exported function from teal.slice</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' include_css_files &lt;- getFromNamespace("include_css_files", "teal.slice")</pre>
+                      <pre class="language-r">    get_dataset = function(filtered = FALSE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">180</td>
+                    <td class="coverage">51<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' include_js_files &lt;- getFromNamespace("include_js_files", "teal.slice")</pre>
+                      <pre class="language-r">      if (filtered) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">181</td>
+                    <td class="coverage">33<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' DatetimeFilterState &lt;- getFromNamespace("DatetimeFilterState", "teal.slice")</pre>
+                      <pre class="language-r">        private$data_filtered</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">182</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">16</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">#' library(shiny)</pre>
+                      <pre class="language-r">        private$dataset</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</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">18</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' filter_state &lt;- DatetimeFilterState$new(</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   x = c(Sys.time() + seq(0, by = 3600, length.out = 10), NA),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   slice = teal_slice(varname = "x", dataname = "data"),</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   extract_type = character(0)</pre>
+                      <pre class="language-r">    #' Get filter overview of a dataset.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">    #' @return Virtual method, returns nothing and raises an error.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' isolate(filter_state$get_call())</pre>
+                      <pre class="language-r">    get_filter_overview = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">191</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' filter_state$set_state(</pre>
+                      <pre class="language-r">      stop("get_filter_overview is an abstract class method")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   teal_slice(</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     dataname = "data",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     varname = "x",</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     selected = c(Sys.time() + 3L, Sys.time() + 8L),</pre>
+                      <pre class="language-r">    #' Gets the key columns for this dataset.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     keep_na = TRUE</pre>
+                      <pre class="language-r">    #' @return Character vector of variable names</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">    get_keys = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">198</td>
+                    <td class="coverage">133<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">      private$keys</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">199</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' isolate(filter_state$get_call())</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">200</td>
                     <td class="coverage"></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">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # working filter in an app</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">202</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(shinyjs)</pre>
+                      <pre class="language-r">    #' Gets the dataset label.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' @return Character string.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">204</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' datetimes &lt;- as.POSIXct(c("2012-01-01 12:00:00", "2020-01-01 12:00:00"))</pre>
+                      <pre class="language-r">    get_dataset_label = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">205</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data_datetime &lt;- c(seq(from = datetimes[1], to = datetimes[2], length.out = 100), NA)</pre>
+                      <pre class="language-r">      private$label</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' fs &lt;- DatetimeFilterState$new(</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   x = data_datetime,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   slice = teal_slice(</pre>
+                      <pre class="language-r">    # modules ------</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     varname = "x", dataname = "data", selected = data_datetime[c(47, 98)], keep_na = TRUE</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">210</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">    #' `shiny` module containing active filters for a dataset, along with a title and a remove button.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">211</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">45</td>
+                    <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">213</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">47</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   useShinyjs(),</pre>
+                      <pre class="language-r">    #' @return `shiny.tag`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   include_css_files(pattern = "filter-panel"),</pre>
+                      <pre class="language-r">    ui_active = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">216</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   include_js_files(pattern = "count-bar-labels"),</pre>
+                      <pre class="language-r">      dataname &lt;- self$get_dataname()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">217</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   column(4, tags$div(</pre>
+                      <pre class="language-r">      checkmate::assert_string(dataname)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tags$h4("DatetimeFilterState"),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">52</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">219</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     fs$ui("fs")</pre>
+                      <pre class="language-r">      ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</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">      if_multiple_filter_states &lt;- length(private$get_filter_states()) &gt; 1</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">54</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">#'   column(4, tags$div(</pre>
+                      <pre class="language-r">      tags$span(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">55</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">222</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     id = "outputs", # div id is needed for toggling the element</pre>
+                      <pre class="language-r">        id = id,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">56</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">#'     tags$h4("Condition (i.e. call)"), # display the condition call generated by this FilterState</pre>
+                      <pre class="language-r">        include_css_files("filter-panel"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">57</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">#'     textOutput("condition_datetime"), tags$br(),</pre>
+                      <pre class="language-r">        tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">58</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">225</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tags$h4("Unformatted state"), # display raw filter state</pre>
+                      <pre class="language-r">          id = ns("whole_ui"), # to hide it entirely</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">59</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">#'     textOutput("unformatted_datetime"), tags$br(),</pre>
+                      <pre class="language-r">          fluidRow(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">60</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">#'     tags$h4("Formatted state"), # display human readable filter state</pre>
+                      <pre class="language-r">            column(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">61</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">228</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     textOutput("formatted_datetime"), tags$br()</pre>
+                      <pre class="language-r">              width = 8,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">62</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">229</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )),</pre>
+                      <pre class="language-r">              tags$span(dataname, class = "filter_panel_dataname")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">230</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   column(4, tags$div(</pre>
+                      <pre class="language-r">            ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">64</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">231</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tags$h4("Programmatic filter control"),</pre>
+                      <pre class="language-r">            column(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">65</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">232</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     actionButton("button1_datetime", "set drop NA", width = "100%"), tags$br(),</pre>
+                      <pre class="language-r">              width = 4,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">66</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">233</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     actionButton("button2_datetime", "set keep NA", width = "100%"), tags$br(),</pre>
+                      <pre class="language-r">              tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">67</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">234</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     actionButton("button3_datetime", "set a range", width = "100%"), tags$br(),</pre>
+                      <pre class="language-r">                actionLink(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">68</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">235</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     actionButton("button4_datetime", "set full range", width = "100%"), tags$br(),</pre>
+                      <pre class="language-r">                  ns("remove_filters"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">69</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">236</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     actionButton("button0_datetime", "set initial state", width = "100%"), tags$br()</pre>
+                      <pre class="language-r">                  label = "",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">70</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">237</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ))</pre>
+                      <pre class="language-r">                  icon = icon("circle-xmark", lib = "font-awesome"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">71</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">238</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">                  class = "remove pull-right"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">239</td>
                     <td class="coverage"></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="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">240</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">                actionLink(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">74</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">#'   fs$server("fs")</pre>
+                      <pre class="language-r">                  ns("collapse"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">75</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">242</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   output$condition_datetime &lt;- renderPrint(fs$get_call())</pre>
+                      <pre class="language-r">                  label = "",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">76</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">#'   output$formatted_datetime &lt;- renderText(fs$format())</pre>
+                      <pre class="language-r">                  icon = icon("angle-down", lib = "font-awesome"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">77</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">#'   output$unformatted_datetime &lt;- renderPrint(fs$get_state())</pre>
+                      <pre class="language-r">                  class = "remove pull-right"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">245</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   # modify filter state programmatically</pre>
+                      <pre class="language-r">                )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">246</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   observeEvent(</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">247</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     input$button1_datetime,</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">248</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     fs$set_state(teal_slice(dataname = "data", varname = "x", keep_na = FALSE))</pre>
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">82</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">249</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">          shinyjs::hidden(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">83</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">#'   observeEvent(</pre>
+                      <pre class="language-r">            tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">84</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">#'     input$button2_datetime,</pre>
+                      <pre class="language-r">              id = ns("filter_count_ui"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">85</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">252</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     fs$set_state(teal_slice(dataname = "data", varname = "x", keep_na = TRUE))</pre>
+                      <pre class="language-r">              tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">86</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">253</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">                textOutput(ns("filter_count")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">87</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">254</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   observeEvent(</pre>
+                      <pre class="language-r">                tags$br()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">255</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     input$button3_datetime,</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">256</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     fs$set_state(</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">257</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       teal_slice(dataname = "data", varname = "x", selected = data_datetime[c(34, 56)])</pre>
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">91</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">258</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">92</td>
+                    <td class="num">259</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">            # id needed to insert and remove UI to filter single variable as needed</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">260</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   observeEvent(</pre>
+                      <pre class="language-r">            # it is currently also used by the above module to entirely hide this panel</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">94</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">261</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     input$button4_datetime,</pre>
+                      <pre class="language-r">            id = ns("filters"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">95</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">262</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     fs$set_state(</pre>
+                      <pre class="language-r">            class = "parent-hideable-list-group",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">96</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">263</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       teal_slice(dataname = "data", varname = "x", selected = datetimes)</pre>
+                      <pre class="language-r">            tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">97</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">264</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">              lapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">98</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">                names(private$get_filter_states()),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">99</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">#'   observeEvent(</pre>
+                      <pre class="language-r">                function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">100</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">#'     input$button0_datetime,</pre>
+                      <pre class="language-r">                  tagList(private$get_filter_states()[[x]]$ui_active(id = ns(x)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">268</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     fs$set_state(</pre>
+                      <pre class="language-r">                }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">269</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       teal_slice(</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">270</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         dataname = "data", varname = "x", selected = data_datetime[c(47, 98)], keep_na = TRUE</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <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">105</td>
+                    <td class="num">272</td>
                     <td class="coverage"></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">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">107</td>
+                    <td class="num">274</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</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">109</td>
+                    <td class="num">276</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">277</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
+                      <pre class="language-r">    #' Server module for a dataset active filters.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">278</td>
                     <td class="coverage"></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">279</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">113</td>
+                    <td class="num">280</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">281</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">115</td>
+                    <td class="num">282</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">DatetimeFilterState &lt;- R6::R6Class( # nolint</pre>
+                      <pre class="language-r">    srv_active = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">116</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">283</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  "DatetimeFilterState",</pre>
+                      <pre class="language-r">      moduleServer(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">117</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">284</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  inherit = FilterState,</pre>
+                      <pre class="language-r">        id = id,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">118</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">285</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">119</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">286</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # public methods ----</pre>
+                      <pre class="language-r">          dataname &lt;- self$get_dataname()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">120</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">287</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          logger::log_trace("FilteredDataset$srv_active initializing, dataname: { dataname }")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">121</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">288</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  public = list(</pre>
+                      <pre class="language-r">          checkmate::assert_string(dataname)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">122</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">289</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          output$filter_count &lt;- renderText(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">123</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">290</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">            sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">124</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">291</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Initialize a `FilterState` object. This class</pre>
+                      <pre class="language-r">              "%d filter%s applied",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">125</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">292</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' has an extra field, `private$timezone`, which is set to `Sys.timezone()` by</pre>
+                      <pre class="language-r">              self$get_filter_count(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">126</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">293</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' default. However, in case when using this module in `teal` app, one needs</pre>
+                      <pre class="language-r">              if (self$get_filter_count() != 1) "s" else ""</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">294</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' timezone of the app user. App user timezone is taken from `session$userData$timezone`</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">295</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' and is set only if object is initialized in `shiny`.</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">296</td>
                     <td class="coverage"></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="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">297</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param x (`POSIXct` or `POSIXlt`)</pre>
+                      <pre class="language-r">          lapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">131</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">298</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   variable to be filtered.</pre>
+                      <pre class="language-r">            names(private$get_filter_states()),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">132</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">299</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param x_reactive (`reactive`)</pre>
+                      <pre class="language-r">            function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">133</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">300</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   returning vector of the same type as `x`. Is used to update</pre>
+                      <pre class="language-r">              private$get_filter_states()[[x]]$srv_active(id = x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">301</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   counts following the change in values of the filtered dataset.</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">302</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   If it is set to `reactive(NULL)` then counts based on filtered</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">303</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   dataset are not shown.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">137</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">304</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param slice (`teal_slice`)</pre>
+                      <pre class="language-r">          observeEvent(self$get_filter_state(), {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">138</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">305</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   specification of this filter state.</pre>
+                      <pre class="language-r">            shinyjs::hide("filter_count_ui")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">139</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">306</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   `teal_slice` is stored in the object and `set_state` directly manipulates values within `teal_slice`.</pre>
+                      <pre class="language-r">            shinyjs::show("filters")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">140</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">307</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   `get_state` returns `teal_slice` object which can be reused in other places.</pre>
+                      <pre class="language-r">            shinyjs::toggle("remove_filters", condition = length(self$get_filter_state()) != 0)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">141</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">308</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   Note that `teal_slice` is a `reactiveValues`, which means it has reference semantics, i.e.</pre>
+                      <pre class="language-r">            shinyjs::toggle("collapse", condition = length(self$get_filter_state()) != 0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">309</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   changes made to an object are automatically reflected in all places that refer to the same `teal_slice`.</pre>
+                      <pre class="language-r">          })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">310</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param extract_type (`character`)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">144</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">311</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   specifying whether condition calls should be prefixed by `dataname`. Possible values:</pre>
+                      <pre class="language-r">          observeEvent(input$collapse, {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">145</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">312</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' - `character(0)` (default) `varname` in the condition call will not be prefixed</pre>
+                      <pre class="language-r">            shinyjs::toggle("filter_count_ui")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">146</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">313</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' - `"list"` `varname` in the condition call will be returned as `&lt;dataname&gt;$&lt;varname&gt;`</pre>
+                      <pre class="language-r">            shinyjs::toggle("filters")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">147</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">    #' - `"matrix"` `varname` in the condition call will be returned as `&lt;dataname&gt;[, &lt;varname&gt;]`</pre>
+                      <pre class="language-r">            toggle_icon(session$ns("collapse"), c("fa-angle-right", "fa-angle-down"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</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">149</td>
+                    <td class="num">316</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return Object of class `DatetimeFilterState`, invisibly.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">150</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">317</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">          observeEvent(input$remove_filters, {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">151</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">318</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    initialize = function(x,</pre>
+                      <pre class="language-r">            logger::log_trace("FilteredDataset$srv_active@1 removing all non-anchored filters, dataname: { dataname }")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">152</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">319</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          x_reactive = reactive(NULL),</pre>
+                      <pre class="language-r">            self$clear_filter_states()</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">320</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            logger::log_trace("FilteredDataset$srv_active@1 removed all non-anchored filters, dataname: { dataname }")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">321</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          extract_type = character(0),</pre>
+                      <pre class="language-r">          })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">322</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="covered">
-                    <td class="num">155</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">323</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      isolate({</pre>
+                      <pre class="language-r">          logger::log_trace("FilteredDataset$initialized, dataname: { dataname }")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">156</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">324</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        checkmate::assert_multi_class(x, c("POSIXct", "POSIXlt"))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">157</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">325</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        checkmate::assert_class(x_reactive, "reactive")</pre>
+                      <pre class="language-r">          NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">326</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">159</td>
-                    <td class="coverage">24<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        super$initialize(</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">160</td>
-                    <td class="coverage">24<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">327</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x = x,</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">161</td>
-                    <td class="coverage">24<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">328</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x_reactive = x_reactive,</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">162</td>
-                    <td class="coverage">24<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">329</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          slice = slice,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">163</td>
-                    <td class="coverage">24<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">330</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          extract_type = extract_type</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">331</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    #' UI module to add filter variable for this dataset.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">24<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">332</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        checkmate::assert_multi_class(slice$choices, c("POSIXct", "POSIXlt"), null.ok = TRUE)</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">166</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">333</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$set_choices(slice$choices)</pre>
+                      <pre class="language-r">    #' @param id (`character(1)`)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">334</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (is.null(slice$selected)) slice$selected &lt;- slice$choices</pre>
+                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">335</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$set_selected(slice$selected)</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">336</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">    #' @return Virtual method, returns nothing and raises error.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">337</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    ui_add = function(id) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">338</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">      stop("Pure virtual method")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">339</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">340</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</td>
+                    <td class="num">341</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">342</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Returns reproducible condition call for current selection.</pre>
+                      <pre class="language-r">    #' Server module to add filter variable for this dataset.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</td>
+                    <td class="num">343</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' For this class returned call looks like</pre>
+                      <pre class="language-r">    #' For this class `srv_add` calls multiple modules</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">344</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' `&lt;varname&gt; &gt;= as.POSIXct(&lt;min&gt;) &amp; &lt;varname&gt; &lt;= &lt;max&gt;)` with optional `is.na(&lt;varname&gt;)`.</pre>
+                      <pre class="language-r">    #' of the same name from `FilterStates` as `MAEFilteredDataset`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">345</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param dataname name of data set; defaults to `private$get_dataname()`</pre>
+                      <pre class="language-r">    #' contains one `FilterStates` object for `colData` and one for each experiment.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">346</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `call`</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</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 id (`character(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">348</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_call = function(dataname) {</pre>
+                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">182</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">349</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (isFALSE(private$is_any_filtered())) {</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">183</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">350</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        return(NULL)</pre>
+                      <pre class="language-r">    #' @return `NULL`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">351</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">    srv_add = function(id) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">185</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">352</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (missing(dataname)) dataname &lt;- private$get_dataname()</pre>
+                      <pre class="language-r">      moduleServer(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">186</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">353</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      varname &lt;- private$get_varname_prefixed(dataname)</pre>
+                      <pre class="language-r">        id = id,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">187</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">354</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      choices &lt;- private$get_selected()</pre>
+                      <pre class="language-r">        function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">188</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">355</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tzone &lt;- Find(function(x) x != "", attr(as.POSIXlt(choices), "tzone"))</pre>
+                      <pre class="language-r">          logger::log_trace("MAEFilteredDataset$srv_add initializing, dataname: { deparse1(self$get_dataname()) }")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">189</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">356</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      class &lt;- class(choices)[1L]</pre>
+                      <pre class="language-r">          elems &lt;- private$get_filter_states()</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">190</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">357</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      date_fun &lt;- as.name(</pre>
+                      <pre class="language-r">          elem_names &lt;- names(private$get_filter_states())</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">191</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">358</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        switch(class,</pre>
+                      <pre class="language-r">          lapply(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">192</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">359</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "POSIXct" = "as.POSIXct",</pre>
+                      <pre class="language-r">            elem_names,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">193</td>
-                    <td class="coverage">6<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          "POSIXlt" = "as.POSIXlt"</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">194</td>
-                    <td class="coverage"></td>
+                    <td class="num">360</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">            function(elem_name) elems[[elem_name]]$srv_add(elem_name)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">195</td>
+                    <td class="num">361</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">196</td>
-                    <td class="coverage">6<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      choices &lt;- as.character(choices + c(0, 1))</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">197</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">362</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      filter_call &lt;-</pre>
+                      <pre class="language-r">          logger::log_trace("MAEFilteredDataset$srv_add initialized, dataname: { deparse1(self$get_dataname()) }")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">198</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">363</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        call(</pre>
+                      <pre class="language-r">          NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">199</td>
+                    <td class="num">364</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "&amp;",</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">200</td>
-                    <td class="coverage">6<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          call(</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">365</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "&gt;=",</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">202</td>
-                    <td class="coverage">6<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            varname,</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">203</td>
-                    <td class="coverage">6<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">            as.call(list(date_fun, choices[1L], tz = tzone))</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</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="covered">
-                    <td class="num">205</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">368</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          call(</pre>
+                      <pre class="language-r">  # private fields ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">206</td>
+                    <td class="num">369</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "&lt;",</pre>
+                      <pre class="language-r">  private = list(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">207</td>
-                    <td class="coverage">6<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">            varname,</pre>
+                      <pre class="language-r">    dataset = NULL, # data.frame or MultiAssayExperiment</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">208</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">371</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            as.call(list(date_fun, choices[2L], tz = tzone))</pre>
+                      <pre class="language-r">    data_filtered = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</td>
+                    <td class="num">372</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">    data_filtered_fun = NULL, # function</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">210</td>
+                    <td class="num">373</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    filter_states = list(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">211</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">374</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$add_keep_na_call(filter_call, varname)</pre>
+                      <pre class="language-r">    dataname = character(0),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">212</td>
+                    <td class="num">375</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    keys = character(0),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">213</td>
+                    <td class="num">376</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ),</pre>
+                      <pre class="language-r">    label = character(0),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">214</td>
+                    <td class="num">377</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">215</td>
+                    <td class="num">378</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # private members ----</pre>
+                      <pre class="language-r">    # Adds `FilterStates` to the `private$filter_states`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">379</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # `FilterStates` is added once for each element of the dataset.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">217</td>
+                    <td class="num">380</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  private = list(</pre>
+                      <pre class="language-r">    # @param filter_states (`FilterStates`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">218</td>
+                    <td class="num">381</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # private methods ----</pre>
+                      <pre class="language-r">    # @param id (`character(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">219</td>
+                    <td class="num">382</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set_choices = function(choices) {</pre>
+                      <pre class="language-r">    add_filter_states = function(filter_states, id) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">220</td>
-                    <td class="coverage">23<em>x</em></td>
+                    <td class="num">383</td>
+                    <td class="coverage">225<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (is.null(choices)) {</pre>
+                      <pre class="language-r">      checkmate::assert_class(filter_states, "FilterStates")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">221</td>
-                    <td class="coverage">20<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        choices &lt;- as.POSIXct(trunc(range(private$x, na.rm = TRUE), units = "secs"))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">222</td>
-                    <td class="coverage"></td>
+                    <td class="num">384</td>
+                    <td class="coverage">225<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">      checkmate::assert_string(id)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">223</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">385</td>
+                    <td class="coverage">225<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        choices &lt;- as.POSIXct(choices, units = "secs")</pre>
+                      <pre class="language-r">      x &lt;- stats::setNames(list(filter_states), id)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">224</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">386</td>
+                    <td class="coverage">225<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        choices_adjusted &lt;- c(</pre>
+                      <pre class="language-r">      private$filter_states &lt;- c(private$get_filter_states(), x)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">225</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">387</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          max(choices[1L], min(as.POSIXct(private$x), na.rm = TRUE)),</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">226</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">388</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          min(choices[2L], max(as.POSIXct(private$x), na.rm = TRUE))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">227</td>
+                    <td class="num">389</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">228</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">390</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (any(choices != choices_adjusted)) {</pre>
+                      <pre class="language-r">    # Gets `FilterStates` objects in this `FilteredDataset`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">229</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">391</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          warning(sprintf(</pre>
+                      <pre class="language-r">    # @return list of `FilterStates` objects.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">230</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">392</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "Choices adjusted (some values outside of variable range). Varname: %s, dataname: %s.",</pre>
+                      <pre class="language-r">    get_filter_states = function() {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">231</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">393</td>
+                    <td class="coverage">684<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            private$get_varname(), private$get_dataname()</pre>
+                      <pre class="language-r">      private$filter_states</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">232</td>
+                    <td class="num">394</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">233</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">395</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          choices &lt;- choices_adjusted</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">234</td>
+                    <td class="num">396</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">235</td>
-                    <td class="coverage">3<em>x</em></td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/FilterStateDatettime.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">        if (choices[1L] &gt;= choices[2L]) {</pre>
+                      <pre class="language-r"># DatetimeFilterState ------</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">2</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          warning(sprintf(</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">3</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "Invalid choices: lower is higher / equal to upper, or not in range of variable values.</pre>
+                      <pre class="language-r">#' @rdname DatetimeFilterState</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">4</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            Setting defaults. Varname: %s, dataname: %s.",</pre>
+                      <pre class="language-r">#' @docType class</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">5</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            private$get_varname(), private$get_dataname()</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">240</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ))</pre>
+                      <pre class="language-r">#' @title `FilterState` object for date time data</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">241</td>
-                    <td class="coverage">1<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">          choices &lt;- range(private$x, na.rm = TRUE)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">242</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">#' @description  Manages choosing a range of date-times.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">243</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">244</td>
+                    <td class="num">10</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">245</td>
-                    <td class="coverage">23<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">      private$set_is_choice_limited(private$x, choices)</pre>
+                      <pre class="language-r">#' # use non-exported function from teal.slice</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">246</td>
-                    <td class="coverage">23<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">      private$x &lt;- private$x[</pre>
+                      <pre class="language-r">#' include_css_files &lt;- getFromNamespace("include_css_files", "teal.slice")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">247</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        (</pre>
+                      <pre class="language-r">#' include_js_files &lt;- getFromNamespace("include_js_files", "teal.slice")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">248</td>
-                    <td class="coverage">23<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">          as.POSIXct(trunc(private$x, units = "secs")) &gt;= choices[1L] &amp;</pre>
+                      <pre class="language-r">#' DatetimeFilterState &lt;- getFromNamespace("DatetimeFilterState", "teal.slice")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">249</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">            as.POSIXct(trunc(private$x, units = "secs")) &lt;= choices[2L]</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">250</td>
-                    <td class="coverage">23<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">        ) | is.na(private$x)</pre>
+                      <pre class="language-r">#' library(shiny)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">251</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="covered">
-                    <td class="num">252</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">      private$teal_slice$choices &lt;- choices</pre>
+                      <pre class="language-r">#' filter_state &lt;- DatetimeFilterState$new(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">253</td>
-                    <td class="coverage">23<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">      invisible(NULL)</pre>
+                      <pre class="language-r">#'   x = c(Sys.time() + seq(0, by = 3600, length.out = 10), NA),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">254</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#'   slice = teal_slice(varname = "x", dataname = "data"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">255</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   extract_type = character(0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">256</td>
+                    <td class="num">22</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">257</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Check whether the initial choices filter out some values of x and set the flag in case.</pre>
+                      <pre class="language-r">#' isolate(filter_state$get_call())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">258</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set_is_choice_limited = function(xl, choices = NULL) {</pre>
+                      <pre class="language-r">#' filter_state$set_state(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">259</td>
-                    <td class="coverage">23<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">      private$is_choice_limited &lt;- (any(xl &lt; choices[1L], na.rm = TRUE) | any(xl &gt; choices[2L], na.rm = TRUE))</pre>
+                      <pre class="language-r">#'   teal_slice(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">260</td>
-                    <td class="coverage">23<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">      invisible(NULL)</pre>
+                      <pre class="language-r">#'     dataname = "data",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">261</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#'     varname = "x",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">262</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    cast_and_validate = function(values) {</pre>
+                      <pre class="language-r">#'     selected = c(Sys.time() + 3L, Sys.time() + 8L),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">263</td>
-                    <td class="coverage">34<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">      tryCatch(</pre>
+                      <pre class="language-r">#'     keep_na = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">264</td>
-                    <td class="coverage">34<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">        expr = {</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">265</td>
-                    <td class="coverage">34<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">          values &lt;- as.POSIXct(values, origin = "1970-01-01 00:00:00")</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">32</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (anyNA(values)) stop()</pre>
+                      <pre class="language-r">#' isolate(filter_state$get_call())</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">267</td>
-                    <td class="coverage">31<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">          values</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">268</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        },</pre>
+                      <pre class="language-r">#' # working filter in an app</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">269</td>
-                    <td class="coverage">34<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">        error = function(e) stop("Vector of set values must contain values coercible to POSIX.")</pre>
+                      <pre class="language-r">#' library(shinyjs)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">270</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">271</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#' datetimes &lt;- as.POSIXct(c("2012-01-01 12:00:00", "2020-01-01 12:00:00"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">272</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    check_length = function(values) {</pre>
+                      <pre class="language-r">#' data_datetime &lt;- c(seq(from = datetimes[1], to = datetimes[2], length.out = 100), NA)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">273</td>
-                    <td class="coverage">1<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 (length(values) != 2) stop("Vector of set values must have length two.")</pre>
+                      <pre class="language-r">#' fs &lt;- DatetimeFilterState$new(</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">40</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (values[1] &gt; values[2]) {</pre>
+                      <pre class="language-r">#'   x = data_datetime,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">275</td>
-                    <td class="coverage">1<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">        warning(</pre>
+                      <pre class="language-r">#'   slice = teal_slice(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">276</td>
-                    <td class="coverage">1<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">          sprintf(</pre>
+                      <pre class="language-r">#'     varname = "x", dataname = "data", selected = data_datetime[c(47, 98)], keep_na = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">277</td>
-                    <td class="coverage">1<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">            "Start date '%s' is set after the end date '%s', the values will be replaced by a default datetime range.",</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">278</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">44</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            values[1], values[2]</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">279</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">280</td>
+                    <td class="num">46</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="covered">
-                    <td class="num">281</td>
-                    <td class="coverage">1<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">        values &lt;- isolate(private$get_choices())</pre>
+                      <pre class="language-r">#'   useShinyjs(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">282</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'   include_css_files(pattern = "filter-panel"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">283</td>
-                    <td class="coverage">30<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">      values</pre>
+                      <pre class="language-r">#'   include_js_files(pattern = "count-bar-labels"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">284</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#'   column(4, tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">285</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    remove_out_of_bounds_values = function(values) {</pre>
+                      <pre class="language-r">#'     tags$h4("DatetimeFilterState"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">286</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">      choices &lt;- private$get_choices()</pre>
+                      <pre class="language-r">#'     fs$ui("fs")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">287</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">      if (values[1] &lt; choices[1L] || values[1] &gt; choices[2L]) {</pre>
+                      <pre class="language-r">#'   )),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">288</td>
-                    <td class="coverage">5<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">        warning(</pre>
+                      <pre class="language-r">#'   column(4, tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">289</td>
-                    <td class="coverage">5<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">          sprintf(</pre>
+                      <pre class="language-r">#'     id = "outputs", # div id is needed for toggling the element</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">290</td>
-                    <td class="coverage">5<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">            "Value: %s is outside of the range for the column '%s' in dataset '%s', setting minimum possible value.",</pre>
+                      <pre class="language-r">#'     tags$h4("Condition (i.e. call)"), # display the condition call generated by this FilterState</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">291</td>
-                    <td class="coverage">5<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">            values[1], private$get_varname(), toString(private$get_dataname())</pre>
+                      <pre class="language-r">#'     textOutput("condition_datetime"), tags$br(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">292</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#'     tags$h4("Unformatted state"), # display raw filter state</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">293</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'     textOutput("unformatted_datetime"), tags$br(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">294</td>
-                    <td class="coverage">5<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">        values[1] &lt;- choices[1L]</pre>
+                      <pre class="language-r">#'     tags$h4("Formatted state"), # display human readable filter state</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">295</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'     textOutput("formatted_datetime"), tags$br()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">296</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="covered">
-                    <td class="num">297</td>
-                    <td class="coverage">30<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">      if (values[2] &gt; choices[2L] | values[2] &lt; choices[1L]) {</pre>
+                      <pre class="language-r">#'   column(4, tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">298</td>
-                    <td class="coverage">5<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(</pre>
+                      <pre class="language-r">#'     tags$h4("Programmatic filter control"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">299</td>
-                    <td class="coverage">5<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">          sprintf(</pre>
+                      <pre class="language-r">#'     actionButton("button1_datetime", "set drop NA", width = "100%"), tags$br(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">300</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            "Value: '%s' is outside of the range for the column '%s' in dataset '%s', setting maximum possible value.",</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">301</td>
-                    <td class="coverage">5<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">            values[2], private$get_varname(), toString(private$get_dataname())</pre>
+                      <pre class="language-r">#'     actionButton("button2_datetime", "set keep NA", width = "100%"), tags$br(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">302</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#'     actionButton("button3_datetime", "set a range", width = "100%"), tags$br(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">303</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'     actionButton("button4_datetime", "set full range", width = "100%"), tags$br(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">304</td>
-                    <td class="coverage">5<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">        values[2] &lt;- choices[2L]</pre>
+                      <pre class="language-r">#'     actionButton("button0_datetime", "set initial state", width = "100%"), tags$br()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">305</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">306</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="covered">
-                    <td class="num">307</td>
-                    <td class="coverage">30<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">      values</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">308</td>
+                    <td class="num">73</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">309</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   fs$server("fs")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">310</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # shiny modules ----</pre>
+                      <pre class="language-r">#'   output$condition_datetime &lt;- renderPrint(fs$get_call())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">311</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   output$formatted_datetime &lt;- renderText(fs$format())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">312</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @description</pre>
+                      <pre class="language-r">#'   output$unformatted_datetime &lt;- renderPrint(fs$get_state())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">313</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # UI Module for `DatetimeFilterState`.</pre>
+                      <pre class="language-r">#'   # modify filter state programmatically</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">314</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # This UI element contains two date-time selections for `min` and `max`</pre>
+                      <pre class="language-r">#'   observeEvent(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">315</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # of the range and a checkbox whether to keep the `NA` values.</pre>
+                      <pre class="language-r">#'     input$button1_datetime,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">316</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @param id (`character(1)`) `shiny` module instance id.</pre>
+                      <pre class="language-r">#'     fs$set_state(teal_slice(dataname = "data", varname = "x", keep_na = FALSE))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">317</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_inputs = function(id) {</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">318</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">83</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ns &lt;- NS(id)</pre>
+                      <pre class="language-r">#'   observeEvent(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">319</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     input$button2_datetime,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">320</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">      isolate({</pre>
+                      <pre class="language-r">#'     fs$set_state(teal_slice(dataname = "data", varname = "x", keep_na = TRUE))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">321</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">        ui_input_1 &lt;- shinyWidgets::airDatepickerInput(</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">87</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          inputId = ns("selection_start"),</pre>
+                      <pre class="language-r">#'   observeEvent(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">323</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">          value = private$get_selected()[1],</pre>
+                      <pre class="language-r">#'     input$button3_datetime,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">324</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">          startView = private$get_selected()[1],</pre>
+                      <pre class="language-r">#'     fs$set_state(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">325</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">          timepicker = TRUE,</pre>
+                      <pre class="language-r">#'       teal_slice(dataname = "data", varname = "x", selected = data_datetime[c(34, 56)])</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">326</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">          minDate = private$get_choices()[1L],</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">327</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">          maxDate = private$get_choices()[2L],</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">328</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">93</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          update_on = "close",</pre>
+                      <pre class="language-r">#'   observeEvent(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">329</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">          addon = "none",</pre>
+                      <pre class="language-r">#'     input$button4_datetime,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">330</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">          position = "bottom right"</pre>
+                      <pre class="language-r">#'     fs$set_state(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">331</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'       teal_slice(dataname = "data", varname = "x", selected = datetimes)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">332</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">97</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ui_input_2 &lt;- shinyWidgets::airDatepickerInput(</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">333</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">98</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          inputId = ns("selection_end"),</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">334</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">          value = private$get_selected()[2],</pre>
+                      <pre class="language-r">#'   observeEvent(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">335</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">          startView = private$get_selected()[2],</pre>
+                      <pre class="language-r">#'     input$button0_datetime,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">336</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">101</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          timepicker = TRUE,</pre>
+                      <pre class="language-r">#'     fs$set_state(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">337</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">102</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          minDate = private$get_choices()[1L],</pre>
+                      <pre class="language-r">#'       teal_slice(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">338</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">          maxDate = private$get_choices()[2L],</pre>
+                      <pre class="language-r">#'         dataname = "data", varname = "x", selected = data_datetime[c(47, 98)], keep_na = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">339</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">          update_on = "close",</pre>
+                      <pre class="language-r">#'       )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">340</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">          addon = "none",</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">341</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">106</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          position = "bottom right"</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">342</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="missed">
-                    <td class="num">343</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">        ui_reset_1 &lt;- actionButton(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">344</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">          class = "date_reset_button",</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">345</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">          inputId = ns("start_date_reset"),</pre>
+                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">346</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">111</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label = NULL,</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">347</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">112</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          icon = icon("fas fa-undo")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">348</td>
+                    <td class="num">113</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="missed">
-                    <td class="num">349</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">        ui_reset_2 &lt;- actionButton(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">350</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">          class = "date_reset_button",</pre>
+                      <pre class="language-r">DatetimeFilterState &lt;- R6::R6Class( # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">351</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">          inputId = ns("end_date_reset"),</pre>
+                      <pre class="language-r">  "DatetimeFilterState",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">352</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">          label = NULL,</pre>
+                      <pre class="language-r">  inherit = FilterState,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">353</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">          icon = icon("fas fa-undo")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">354</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">  # public methods ----</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">355</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">        ui_input_1$children[[2]]$attribs &lt;- c(ui_input_1$children[[2]]$attribs, list(class = "input-sm"))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">356</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">        ui_input_2$children[[2]]$attribs &lt;- c(ui_input_2$children[[2]]$attribs, list(class = "input-sm"))</pre>
+                      <pre class="language-r">  public = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">357</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">358</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">        tags$div(</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">359</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">124</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          tags$div(</pre>
+                      <pre class="language-r">    #' Initialize a `FilterState` object. This class</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">360</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">125</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            class = "flex",</pre>
+                      <pre class="language-r">    #' has an extra field, `private$timezone`, which is set to `Sys.timezone()` by</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">361</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">126</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ui_reset_1,</pre>
+                      <pre class="language-r">    #' default. However, in case when using this module in `teal` app, one needs</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">362</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">127</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            tags$div(</pre>
+                      <pre class="language-r">    #' timezone of the app user. App user timezone is taken from `session$userData$timezone`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">363</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">              class = "flex w-80 filter_datelike_input",</pre>
+                      <pre class="language-r">    #' and is set only if object is initialized in `shiny`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">364</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">              tags$div(class = "w-45 text-center", ui_input_1),</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">365</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">130</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              tags$span(</pre>
+                      <pre class="language-r">    #' @param x (`POSIXct` or `POSIXlt`)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">366</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">131</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                class = "input-group-addon w-10",</pre>
+                      <pre class="language-r">    #'   variable to be filtered.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">367</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">                tags$span(class = "input-group-text w-100 justify-content-center", "to"),</pre>
+                      <pre class="language-r">    #' @param x_reactive (`reactive`)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">368</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">                title = "Times are displayed in the local timezone and are converted to UTC in the analysis"</pre>
+                      <pre class="language-r">    #'   returning vector of the same type as `x`. Is used to update</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">369</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ),</pre>
+                      <pre class="language-r">    #'   counts following the change in values of the filtered dataset.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">370</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">              tags$div(class = "w-45 text-center", ui_input_2)</pre>
+                      <pre class="language-r">    #'   If it is set to `reactive(NULL)` then counts based on filtered</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">371</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ),</pre>
+                      <pre class="language-r">    #'   dataset are not shown.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">372</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">            ui_reset_2</pre>
+                      <pre class="language-r">    #' @param slice (`teal_slice`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">373</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">    #'   specification of this filter state.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">374</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">          private$keep_na_ui(ns("keep_na"))</pre>
+                      <pre class="language-r">    #'   `teal_slice` is stored in the object and `set_state` directly manipulates values within `teal_slice`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">375</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    #'   `get_state` returns `teal_slice` object which can be reused in other places.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">376</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">    #'   Note that `teal_slice` is a `reactiveValues`, which means it has reference semantics, i.e.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">377</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">    #'   changes made to an object are automatically reflected in all places that refer to the same `teal_slice`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">378</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' @param extract_type (`character`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">379</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @description</pre>
+                      <pre class="language-r">    #'   specifying whether condition calls should be prefixed by `dataname`. Possible values:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">380</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Server module</pre>
+                      <pre class="language-r">    #' - `character(0)` (default) `varname` in the condition call will not be prefixed</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">381</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @param id (`character(1)`) `shiny` module instance id.</pre>
+                      <pre class="language-r">    #' - `"list"` `varname` in the condition call will be returned as `&lt;dataname&gt;$&lt;varname&gt;`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">382</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @return `NULL`.</pre>
+                      <pre class="language-r">    #' - `"matrix"` `varname` in the condition call will be returned as `&lt;dataname&gt;[, &lt;varname&gt;]`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">383</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server_inputs = function(id) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">384</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      moduleServer(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">385</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        id = id,</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">386</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">149</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        function(input, output, session) {</pre>
+                      <pre class="language-r">    #' @return Object of class `DatetimeFilterState`, invisibly.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">387</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">          logger::log_trace("DatetimeFilterState$server initializing, id: { private$get_id() }")</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">388</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # this observer is needed in the situation when teal_slice$selected has been</pre>
+                      <pre class="language-r">    initialize = function(x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">389</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # changed directly by the api - then it's needed to rerender UI element</pre>
+                      <pre class="language-r">                          x_reactive = reactive(NULL),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">390</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # to show relevant values</pre>
+                      <pre class="language-r">                          extract_type = character(0),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">391</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">          private$observers$selection_api &lt;- observeEvent(</pre>
+                      <pre class="language-r">                          slice) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">392</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">155</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ignoreNULL = TRUE, # dates needs to be selected</pre>
+                      <pre class="language-r">      isolate({</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">393</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">156</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ignoreInit = TRUE, # on init selected == default, so no need to trigger</pre>
+                      <pre class="language-r">        checkmate::assert_multi_class(x, c("POSIXct", "POSIXlt"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">394</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">157</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            eventExpr = private$get_selected(),</pre>
+                      <pre class="language-r">        checkmate::assert_class(x_reactive, "reactive")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">395</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">158</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            handlerExpr = {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">396</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">159</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              start_date &lt;- input$selection_start</pre>
+                      <pre class="language-r">        super$initialize(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">397</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">160</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              end_date &lt;- input$selection_end</pre>
+                      <pre class="language-r">          x = x,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">398</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">161</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              if (!all(private$get_selected() == c(start_date, end_date))) {</pre>
+                      <pre class="language-r">          x_reactive = x_reactive,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">399</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">162</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                logger::log_trace("DatetimeFilterState$server@1 state changed, id: { private$get_id() }")</pre>
+                      <pre class="language-r">          slice = slice,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">400</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">163</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                if (private$get_selected()[1] != start_date) {</pre>
+                      <pre class="language-r">          extract_type = extract_type</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">401</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">164</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  shinyWidgets::updateAirDateInput(</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">402</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">165</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    session = session,</pre>
+                      <pre class="language-r">        checkmate::assert_multi_class(slice$choices, c("POSIXct", "POSIXlt"), null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">403</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">166</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    inputId = "selection_start",</pre>
+                      <pre class="language-r">        private$set_choices(slice$choices)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">404</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">167</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    value = private$get_selected()[1]</pre>
+                      <pre class="language-r">        if (is.null(slice$selected)) slice$selected &lt;- slice$choices</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">405</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">168</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  )</pre>
+                      <pre class="language-r">        private$set_selected(slice$selected)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">406</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">407</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">408</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">171</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                if (private$get_selected()[2] != end_date) {</pre>
+                      <pre class="language-r">      invisible(self)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">409</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">172</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  shinyWidgets::updateAirDateInput(</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">410</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">173</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    session = session,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">411</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">174</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    inputId = "selection_end",</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">412</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">175</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    value = private$get_selected()[2]</pre>
+                      <pre class="language-r">    #' Returns reproducible condition call for current selection.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">413</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  )</pre>
+                      <pre class="language-r">    #' For this class returned call looks like</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">414</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                }</pre>
+                      <pre class="language-r">    #' `&lt;varname&gt; &gt;= as.POSIXct(&lt;min&gt;) &amp; &lt;varname&gt; &lt;= &lt;max&gt;)` with optional `is.na(&lt;varname&gt;)`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">415</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              }</pre>
+                      <pre class="language-r">    #' @param dataname name of data set; defaults to `private$get_dataname()`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">416</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">    #' @return `call`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">417</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">418</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    get_call = function(dataname) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">182</td>
+                    <td class="coverage">7<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      if (isFALSE(private$is_any_filtered())) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">183</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        return(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">419</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="missed">
-                    <td class="num">420</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">185</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          private$observers$selection_start &lt;- observeEvent(</pre>
+                      <pre class="language-r">      if (missing(dataname)) dataname &lt;- private$get_dataname()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">421</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">            ignoreNULL = TRUE, # dates needs to be selected</pre>
+                      <pre class="language-r">      varname &lt;- private$get_varname_prefixed(dataname)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">422</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">187</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ignoreInit = TRUE, # ignoreInit: should not matter because we set the UI with the desired initial state</pre>
+                      <pre class="language-r">      choices &lt;- private$get_selected()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">423</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">188</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            eventExpr = input$selection_start,</pre>
+                      <pre class="language-r">      tzone &lt;- Find(function(x) x != "", attr(as.POSIXlt(choices), "tzone"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">424</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">189</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            handlerExpr = {</pre>
+                      <pre class="language-r">      class &lt;- class(choices)[1L]</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">425</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">190</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              logger::log_trace("DatetimeFilterState$server@2 selection changed, id: { private$get_id() }")</pre>
+                      <pre class="language-r">      date_fun &lt;- as.name(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">426</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">191</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              start_date &lt;- input$selection_start</pre>
+                      <pre class="language-r">        switch(class,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">427</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">192</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              end_date &lt;- private$get_selected()[[2]]</pre>
+                      <pre class="language-r">          "POSIXct" = "as.POSIXct",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">428</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">193</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              tzone &lt;- Find(function(x) x != "", attr(as.POSIXlt(private$get_choices()), "tzone"))</pre>
+                      <pre class="language-r">          "POSIXlt" = "as.POSIXlt"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">429</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">194</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              attr(start_date, "tzone") &lt;- tzone</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">430</td>
+                    <td class="num">195</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">431</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">196</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              if (start_date &gt; end_date) {</pre>
+                      <pre class="language-r">      choices &lt;- as.character(choices + c(0, 1))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">432</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">197</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                showNotification(</pre>
+                      <pre class="language-r">      filter_call &lt;-</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">433</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">198</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  "Start date must not be greater than the end date. Ignoring selection.",</pre>
+                      <pre class="language-r">        call(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">434</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">199</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  type = "warning"</pre>
+                      <pre class="language-r">          "&amp;",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">200</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          call(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">435</td>
+                    <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                )</pre>
+                      <pre class="language-r">            "&gt;=",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">436</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">202</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                shinyWidgets::updateAirDateInput(</pre>
+                      <pre class="language-r">            varname,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">437</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">203</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  session = session,</pre>
+                      <pre class="language-r">            as.call(list(date_fun, choices[1L], tz = tzone))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">438</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">204</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  inputId = "selection_start",</pre>
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">439</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">205</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  value = private$get_selected()[1] # sets back to latest selected value</pre>
+                      <pre class="language-r">          call(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">440</td>
+                    <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                )</pre>
+                      <pre class="language-r">            "&lt;",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">441</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">207</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                return(NULL)</pre>
+                      <pre class="language-r">            varname,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">208</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            as.call(list(date_fun, choices[2L], tz = tzone))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">442</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">443</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>
-                  <tr class="missed">
-                    <td class="num">444</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">211</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              private$set_selected(c(start_date, end_date))</pre>
+                      <pre class="language-r">      private$add_keep_na_call(filter_call, varname)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">445</td>
+                    <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">446</td>
+                    <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">  ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">447</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">448</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">215</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          private$observers$selection_end &lt;- observeEvent(</pre>
+                      <pre class="language-r">  # private members ----</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">449</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">216</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ignoreNULL = TRUE, # dates needs to be selected</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">450</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">217</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ignoreInit = TRUE, # ignoreInit: should not matter because we set the UI with the desired initial state</pre>
+                      <pre class="language-r">  private = list(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">451</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">218</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            eventExpr = input$selection_end,</pre>
+                      <pre class="language-r">    # private methods ----</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">452</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">219</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            handlerExpr = {</pre>
+                      <pre class="language-r">    set_choices = function(choices) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">453</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">220</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              start_date &lt;- private$get_selected()[1]</pre>
+                      <pre class="language-r">      if (is.null(choices)) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">454</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">221</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              end_date &lt;- input$selection_end</pre>
+                      <pre class="language-r">        choices &lt;- as.POSIXct(trunc(range(private$x, na.rm = TRUE), units = "secs"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">455</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">              tzone &lt;- Find(function(x) x != "", attr(as.POSIXlt(private$get_choices()), "tzone"))</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">456</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">223</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              attr(end_date, "tzone") &lt;- tzone</pre>
+                      <pre class="language-r">        choices &lt;- as.POSIXct(choices, units = "secs")</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">224</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        choices_adjusted &lt;- c(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">225</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          max(choices[1L], min(as.POSIXct(private$x), na.rm = TRUE)),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">226</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          min(choices[2L], max(as.POSIXct(private$x), na.rm = TRUE))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">457</td>
+                    <td class="num">227</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">458</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">228</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              if (start_date &gt; end_date) {</pre>
+                      <pre class="language-r">        if (any(choices != choices_adjusted)) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">459</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">229</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                showNotification(</pre>
+                      <pre class="language-r">          warning(sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">460</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">230</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  "End date must not be lower than the start date. Ignoring selection.",</pre>
+                      <pre class="language-r">            "Choices adjusted (some values outside of variable range). Varname: %s, dataname: %s.",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">461</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">231</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  type = "warning"</pre>
+                      <pre class="language-r">            private$get_varname(), private$get_dataname()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">462</td>
+                    <td class="num">232</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">463</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">233</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                shinyWidgets::updateAirDateInput(</pre>
+                      <pre class="language-r">          choices &lt;- choices_adjusted</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">464</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">234</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  session = session,</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">465</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">235</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  inputId = "selection_end",</pre>
+                      <pre class="language-r">        if (choices[1L] &gt;= choices[2L]) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">466</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">236</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  value = private$get_selected()[2] # sets back to latest selected value</pre>
+                      <pre class="language-r">          warning(sprintf(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">237</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            "Invalid choices: lower is higher / equal to upper, or not in range of variable values.</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">238</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            Setting defaults. Varname: %s, dataname: %s.",</pre>
+                    </td>
+                  </tr>
+                  <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">            private$get_varname(), private$get_dataname()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">467</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="missed">
-                    <td class="num">468</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">241</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                return(NULL)</pre>
+                      <pre class="language-r">          choices &lt;- range(private$x, na.rm = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">469</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">470</td>
+                    <td class="num">243</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">471</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">245</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              private$set_selected(c(start_date, end_date))</pre>
+                      <pre class="language-r">      private$set_is_choice_limited(private$x, choices)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">472</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">246</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              logger::log_trace("DatetimeFilterState$server@2 selection changed, id: { private$get_id() }")</pre>
+                      <pre class="language-r">      private$x &lt;- private$x[</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">473</td>
+                    <td class="num">247</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">248</td>
+                    <td class="coverage">23<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          as.POSIXct(trunc(private$x, units = "secs")) &gt;= choices[1L] &amp;</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">249</td>
+                    <td class="coverage">23<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            as.POSIXct(trunc(private$x, units = "secs")) &lt;= choices[2L]</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">250</td>
+                    <td class="coverage">23<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        ) | is.na(private$x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">474</td>
+                    <td class="num">251</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">252</td>
+                    <td class="coverage">23<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      private$teal_slice$choices &lt;- choices</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">253</td>
+                    <td class="coverage">23<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      invisible(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">475</td>
+                    <td class="num">254</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    },</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">255</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">476</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">256</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          private$keep_na_srv("keep_na")</pre>
+                      <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">477</td>
+                    <td class="num">257</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # Check whether the initial choices filter out some values of x and set the flag in case.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">478</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">258</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          private$observers$reset1 &lt;- observeEvent(</pre>
+                      <pre class="language-r">    set_is_choice_limited = function(xl, choices = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">479</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">259</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ignoreInit = TRUE, # reset button shouldn't be trigger on init</pre>
+                      <pre class="language-r">      private$is_choice_limited &lt;- (any(xl &lt; choices[1L], na.rm = TRUE) | any(xl &gt; choices[2L], na.rm = TRUE))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">480</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">260</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ignoreNULL = TRUE, # it's impossible and wrong to set default to NULL</pre>
+                      <pre class="language-r">      invisible(NULL)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">481</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">261</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            input$start_date_reset,</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">482</td>
+                    <td class="num">262</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            {</pre>
+                      <pre class="language-r">    cast_and_validate = function(values) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">483</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">263</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              shinyWidgets::updateAirDateInput(</pre>
+                      <pre class="language-r">      tryCatch(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">484</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">264</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                session = session,</pre>
+                      <pre class="language-r">        expr = {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">485</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">265</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                inputId = "selection_start",</pre>
+                      <pre class="language-r">          values &lt;- as.POSIXct(values, origin = "1970-01-01 00:00:00")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">486</td>
+                    <td class="num">266</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                value = private$get_choices()[1L]</pre>
+                      <pre class="language-r">          if (anyNA(values)) stop()</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">267</td>
+                    <td class="coverage">31<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          values</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">487</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="missed">
-                    <td class="num">488</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">269</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              logger::log_trace("DatetimeFilterState$server@2 reset start date, id: { private$get_id() }")</pre>
+                      <pre class="language-r">        error = function(e) stop("Vector of set values must contain values coercible to POSIX.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">489</td>
+                    <td class="num">270</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">490</td>
+                    <td class="num">271</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <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">    check_length = function(values) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">273</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      if (length(values) != 2) stop("Vector of set values must have length two.")</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">274</td>
+                    <td class="coverage">30<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      if (values[1] &gt; values[2]) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">275</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        warning(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">276</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          sprintf(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">277</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            "Start date '%s' is set after the end date '%s', the values will be replaced by a default datetime range.",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">278</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            values[1], values[2]</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">279</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">491</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">280</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          private$observers$reset2 &lt;- observeEvent(</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">492</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">281</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        values &lt;- isolate(private$get_choices())</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">282</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">283</td>
+                    <td class="coverage">30<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      values</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>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">285</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    remove_out_of_bounds_values = function(values) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">286</td>
+                    <td class="coverage">30<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      choices &lt;- private$get_choices()</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">287</td>
+                    <td class="coverage">30<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      if (values[1] &lt; choices[1L] || values[1] &gt; choices[2L]) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">288</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        warning(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">289</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          sprintf(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">290</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            "Value: %s is outside of the range for the column '%s' in dataset '%s', setting minimum possible value.",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">291</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            values[1], private$get_varname(), toString(private$get_dataname())</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">292</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">293</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        )</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">294</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        values[1] &lt;- choices[1L]</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">295</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ignoreInit = TRUE, # reset button shouldn't be trigger on init</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">493</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">296</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ignoreNULL = TRUE, # it's impossible and wrong to set default to NULL</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">494</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">297</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            input$end_date_reset,</pre>
+                      <pre class="language-r">      if (values[2] &gt; choices[2L] | values[2] &lt; choices[1L]) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">495</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">298</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            {</pre>
+                      <pre class="language-r">        warning(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">496</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">299</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              shinyWidgets::updateAirDateInput(</pre>
+                      <pre class="language-r">          sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">497</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">300</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                session = session,</pre>
+                      <pre class="language-r">            "Value: '%s' is outside of the range for the column '%s' in dataset '%s', setting maximum possible value.",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">498</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">301</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                inputId = "selection_end",</pre>
+                      <pre class="language-r">            values[2], private$get_varname(), toString(private$get_dataname())</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">499</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">302</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                value = private$get_choices()[2L]</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">500</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="missed">
-                    <td class="num">501</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">304</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              logger::log_trace("DatetimeFilterState$server@3 reset end date, id: { private$get_id() }")</pre>
+                      <pre class="language-r">        values[2] &lt;- choices[2L]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">502</td>
+                    <td class="num">305</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">503</td>
+                    <td class="num">306</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">307</td>
+                    <td class="coverage">30<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      values</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">504</td>
+                    <td class="num">308</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">505</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">309</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_trace("DatetimeFilterState$server initialized, id: { private$get_id() }")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">506</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">310</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          NULL</pre>
+                      <pre class="language-r">    # shiny modules ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">507</td>
+                    <td class="num">311</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">508</td>
+                    <td class="num">312</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">509</td>
+                    <td class="num">313</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">    # UI Module for `DatetimeFilterState`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">510</td>
+                    <td class="num">314</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server_inputs_fixed = function(id) {</pre>
+                      <pre class="language-r">    # This UI element contains two date-time selections for `min` and `max`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">511</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">315</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      moduleServer(</pre>
+                      <pre class="language-r">    # of the range and a checkbox whether to keep the `NA` values.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">512</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">316</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = id,</pre>
+                      <pre class="language-r">    # @param id (`character(1)`) `shiny` module instance id.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">513</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">317</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        function(input, output, session) {</pre>
+                      <pre class="language-r">    ui_inputs = function(id) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">514</td>
+                    <td class="num">318</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_trace("DatetimeFilterState$server initializing, id: { private$get_id() }")</pre>
+                      <pre class="language-r">      ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">515</td>
+                    <td class="num">319</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">516</td>
+                    <td class="num">320</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          output$selection &lt;- renderUI({</pre>
+                      <pre class="language-r">      isolate({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">517</td>
+                    <td class="num">321</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            vals &lt;- format(private$get_selected(), usetz = TRUE, nsmall = 3)</pre>
+                      <pre class="language-r">        ui_input_1 &lt;- shinyWidgets::airDatepickerInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">518</td>
+                    <td class="num">322</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            tags$div(</pre>
+                      <pre class="language-r">          inputId = ns("selection_start"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">519</td>
+                    <td class="num">323</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              tags$div(icon("clock"), vals[1]),</pre>
+                      <pre class="language-r">          value = private$get_selected()[1],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">520</td>
+                    <td class="num">324</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              tags$div(span(" - "), icon("clock"), vals[2])</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">521</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">522</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          })</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">523</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          startView = private$get_selected()[1],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">524</td>
+                    <td class="num">325</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_trace("DatetimeFilterState$server initialized, id: { private$get_id() }")</pre>
+                      <pre class="language-r">          timepicker = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">525</td>
+                    <td class="num">326</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          NULL</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">526</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">          minDate = private$get_choices()[1L],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">527</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">327</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">          maxDate = private$get_choices()[2L],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">528</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">    },</pre>
+                      <pre class="language-r">          update_on = "close",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">529</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"></pre>
+                      <pre class="language-r">          addon = "none",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">530</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">    # @description</pre>
+                      <pre class="language-r">          position = "bottom right"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">531</td>
+                    <td class="num">331</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # UI module to display filter summary</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">532</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">    #  renders text describing selected date range and</pre>
+                      <pre class="language-r">        ui_input_2 &lt;- shinyWidgets::airDatepickerInput(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">533</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">    #  if NA are included also</pre>
+                      <pre class="language-r">          inputId = ns("selection_end"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">534</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">334</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    content_summary = function(id) {</pre>
+                      <pre class="language-r">          value = private$get_selected()[2],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">535</td>
+                    <td class="num">335</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      selected &lt;- format(private$get_selected(), "%Y-%m-%d %H:%M:%S")</pre>
+                      <pre class="language-r">          startView = private$get_selected()[2],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">536</td>
+                    <td class="num">336</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      min &lt;- selected[1]</pre>
+                      <pre class="language-r">          timepicker = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">537</td>
+                    <td class="num">337</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      max &lt;- selected[2]</pre>
+                      <pre class="language-r">          minDate = private$get_choices()[1L],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">538</td>
+                    <td class="num">338</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tagList(</pre>
+                      <pre class="language-r">          maxDate = private$get_choices()[2L],</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">539</td>
+                    <td class="num">339</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$span(</pre>
+                      <pre class="language-r">          update_on = "close",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">540</td>
+                    <td class="num">340</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          class = "filter-card-summary-value",</pre>
+                      <pre class="language-r">          addon = "none",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">541</td>
+                    <td class="num">341</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          HTML(min, "&amp;ndash;", max)</pre>
+                      <pre class="language-r">          position = "bottom right"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">542</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="missed">
-                    <td class="num">543</td>
+                    <td class="num">343</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$span(</pre>
+                      <pre class="language-r">        ui_reset_1 &lt;- actionButton(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">544</td>
+                    <td class="num">344</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          class = "filter-card-summary-controls",</pre>
+                      <pre class="language-r">          class = "date_reset_button",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">545</td>
+                    <td class="num">345</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (private$na_count &gt; 0) {</pre>
+                      <pre class="language-r">          inputId = ns("start_date_reset"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">546</td>
+                    <td class="num">346</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            tags$span("NA", if (isTRUE(private$get_keep_na())) icon("check") else icon("xmark"))</pre>
+                      <pre class="language-r">          label = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">547</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">347</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">          icon = icon("fas fa-undo")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">548</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">549</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">550</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">551</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">349</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">        ui_reset_2 &lt;- actionButton(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">552</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">350</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">          class = "date_reset_button",</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/choices_labeled.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">351</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Set "`&lt;choice&gt;:&lt;label&gt;`" type of names</pre>
+                      <pre class="language-r">          inputId = ns("end_date_reset"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">352</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          label = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">353</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">          icon = icon("fas fa-undo")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</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="never">
-                    <td class="num">5</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">#' This is often useful for as it marks up the drop-down boxes for [shiny::selectInput()].</pre>
+                      <pre class="language-r">        ui_input_1$children[[2]]$attribs &lt;- c(ui_input_1$children[[2]]$attribs, list(class = "input-sm"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">356</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        ui_input_2$children[[2]]$attribs &lt;- c(ui_input_2$children[[2]]$attribs, list(class = "input-sm"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">357</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">8</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">#' If either `choices` or `labels` are factors, they are coerced to character.</pre>
+                      <pre class="language-r">        tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</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">#' Duplicated elements from `choices` get removed.</pre>
+                      <pre class="language-r">          tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</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">#'</pre>
+                      <pre class="language-r">            class = "flex",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</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">#' @param choices (`character` or `numeric` or `logical`) vector</pre>
+                      <pre class="language-r">            ui_reset_1,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</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">#' @param labels (`character`) vector containing labels to be applied to `choices`. If `NA` then</pre>
+                      <pre class="language-r">            tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</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">#' "Label Missing" will be used.</pre>
+                      <pre class="language-r">              class = "flex w-80 filter_datelike_input",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</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">#' @param subset a vector that is a subset of `choices`. This is useful if</pre>
+                      <pre class="language-r">              tags$div(class = "w-45 text-center", ui_input_1),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</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">#'   only a few variables need to be named. If this argument is used, the returned vector will</pre>
+                      <pre class="language-r">              tags$span(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">366</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   match its order.</pre>
+                      <pre class="language-r">                class = "input-group-addon w-10",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">367</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param types vector containing the types of the columns.</pre>
+                      <pre class="language-r">                tags$span(class = "input-group-text w-100 justify-content-center", "to"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</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">#'</pre>
+                      <pre class="language-r">                title = "Times are displayed in the local timezone and are converted to UTC in the analysis"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">369</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A named character vector.</pre>
+                      <pre class="language-r">              ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</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">#'</pre>
+                      <pre class="language-r">              tags$div(class = "w-45 text-center", ui_input_2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">371</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="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">372</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            ui_reset_2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">373</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">choices_labeled &lt;- function(choices, labels, subset = NULL, types = NULL) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">24</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (is.factor(choices)) {</pre>
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">25</td>
+                    <td class="num">374</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    choices &lt;- as.character(choices)</pre>
+                      <pre class="language-r">          private$keep_na_ui(ns("keep_na"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</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">27</td>
+                    <td class="num">376</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">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  stopifnot(</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">29</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">    is.character(choices) ||</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">30</td>
-                    <td class="coverage">9<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">      is.numeric(choices) ||</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">31</td>
-                    <td class="coverage">9<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">      is.logical(choices) ||</pre>
+                      <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">32</td>
-                    <td class="coverage">9<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">      (length(choices) == 1 &amp;&amp; is.na(choices))</pre>
+                      <pre class="language-r">    # Server module</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">381</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    # @param id (`character(1)`) `shiny` module instance id.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">382</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="covered">
-                    <td class="num">35</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">383</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.factor(labels)) {</pre>
+                      <pre class="language-r">    server_inputs = function(id) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">36</td>
+                    <td class="num">384</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    labels &lt;- as.character(labels)</pre>
+                      <pre class="language-r">      moduleServer(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">385</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">        id = id,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">386</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">39</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">387</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(labels[!is.na(labels)], any.missing = FALSE)</pre>
+                      <pre class="language-r">          logger::log_trace("DatetimeFilterState$server initializing, id: { private$get_id() }")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">40</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">388</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(choices) != length(labels)) {</pre>
+                      <pre class="language-r">          # this observer is needed in the situation when teal_slice$selected has been</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">41</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">    stop("length of choices must be the same as labels")</pre>
+                      <pre class="language-r">          # changed directly by the api - then it's needed to rerender UI element</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">390</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">          # to show relevant values</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">43</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">391</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  stopifnot(is.null(subset) || is.vector(subset))</pre>
+                      <pre class="language-r">          private$observers$selection_api &lt;- observeEvent(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">44</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">392</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  stopifnot(is.null(types) || is.vector(types))</pre>
+                      <pre class="language-r">            ignoreNULL = TRUE, # dates needs to be selected</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">45</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"></pre>
+                      <pre class="language-r">            ignoreInit = TRUE, # on init selected == default, so no need to trigger</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">46</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">394</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.vector(types)) {</pre>
+                      <pre class="language-r">            eventExpr = private$get_selected(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">47</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">395</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stopifnot(length(choices) == length(types))</pre>
+                      <pre class="language-r">            handlerExpr = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">48</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">396</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">              start_date &lt;- input$selection_start</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">397</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">              end_date &lt;- input$selection_end</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">50</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">398</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(subset)) {</pre>
+                      <pre class="language-r">              if (!all(private$get_selected() == c(start_date, end_date))) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">51</td>
+                    <td class="num">399</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!all(subset %in% choices)) {</pre>
+                      <pre class="language-r">                logger::log_trace("DatetimeFilterState$server@1 state changed, id: { private$get_id() }")</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">52</td>
+                    <td class="num">400</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stop("all of subset variables must be in choices")</pre>
+                      <pre class="language-r">                if (private$get_selected()[1] != start_date) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</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">    }</pre>
+                      <pre class="language-r">                  shinyWidgets::updateAirDateInput(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">54</td>
+                    <td class="num">402</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    labels &lt;- labels[choices %in% subset]</pre>
+                      <pre class="language-r">                    session = session,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">55</td>
+                    <td class="num">403</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    types &lt;- types[choices %in% subset]</pre>
+                      <pre class="language-r">                    inputId = "selection_start",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">56</td>
+                    <td class="num">404</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    choices &lt;- choices[choices %in% subset]</pre>
+                      <pre class="language-r">                    value = private$get_selected()[1]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">405</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">                  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">406</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">59</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">407</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  is_dupl &lt;- duplicated(choices)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">60</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">408</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  choices &lt;- choices[!is_dupl]</pre>
+                      <pre class="language-r">                if (private$get_selected()[2] != end_date) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">61</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">409</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  labels &lt;- labels[!is_dupl]</pre>
+                      <pre class="language-r">                  shinyWidgets::updateAirDateInput(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">62</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">410</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  types &lt;- types[!is_dupl]</pre>
+                      <pre class="language-r">                    session = session,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">63</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">411</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  labels[is.na(labels)] &lt;- "Label Missing"</pre>
+                      <pre class="language-r">                    inputId = "selection_end",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">64</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">412</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  raw_labels &lt;- labels</pre>
+                      <pre class="language-r">                    value = private$get_selected()[2]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">65</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">413</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  combined_labels &lt;- if (length(choices) &gt; 0) {</pre>
+                      <pre class="language-r">                  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">66</td>
-                    <td class="coverage">9<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">    paste0(choices, ": ", labels)</pre>
+                      <pre class="language-r">                }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">415</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">68</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">416</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    character(0)</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">417</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">418</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">71</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">419</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(subset)) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">72</td>
+                    <td class="num">420</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ord &lt;- match(subset, choices)</pre>
+                      <pre class="language-r">          private$observers$selection_start &lt;- observeEvent(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">73</td>
+                    <td class="num">421</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    choices &lt;- choices[ord]</pre>
+                      <pre class="language-r">            ignoreNULL = TRUE, # dates needs to be selected</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">74</td>
+                    <td class="num">422</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    raw_labels &lt;- raw_labels[ord]</pre>
+                      <pre class="language-r">            ignoreInit = TRUE, # ignoreInit: should not matter because we set the UI with the desired initial state</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">75</td>
+                    <td class="num">423</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    combined_labels &lt;- combined_labels[ord]</pre>
+                      <pre class="language-r">            eventExpr = input$selection_start,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">76</td>
+                    <td class="num">424</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    types &lt;- types[ord]</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>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">78</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  choices &lt;- structure(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">79</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    choices,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">80</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    names = combined_labels,</pre>
+                      <pre class="language-r">            handlerExpr = {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">81</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">425</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    raw_labels = raw_labels,</pre>
+                      <pre class="language-r">              logger::log_trace("DatetimeFilterState$server@2 selection changed, id: { private$get_id() }")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">82</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">426</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    combined_labels = combined_labels,</pre>
+                      <pre class="language-r">              start_date &lt;- input$selection_start</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">83</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">427</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    class = c("choices_labeled", "character"),</pre>
+                      <pre class="language-r">              end_date &lt;- private$get_selected()[[2]]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">84</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">428</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    types = types</pre>
+                      <pre class="language-r">              tzone &lt;- Find(function(x) x != "", attr(as.POSIXlt(private$get_choices()), "tzone"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">85</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">429</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">              attr(start_date, "tzone") &lt;- tzone</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">430</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">87</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  choices</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">88</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">431</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">              if (start_date &gt; end_date) {</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/FilterStatesMAE.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">432</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># MAEFilterStates ------</pre>
+                      <pre class="language-r">                showNotification(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">433</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                  "Start date must not be greater than the end date. Ignoring selection.",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">434</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name MAEFilterStates</pre>
+                      <pre class="language-r">                  type = "warning"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">435</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @docType class</pre>
+                      <pre class="language-r">                )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">436</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @title `FilterStates` subclass for `MultiAssayExperiment`s</pre>
+                      <pre class="language-r">                shinyWidgets::updateAirDateInput(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">437</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description Handles filter states in a `MultiAssayExperiment`.</pre>
+                      <pre class="language-r">                  session = session,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">438</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">                  inputId = "selection_start",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">439</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                  value = private$get_selected()[1] # sets back to latest selected value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">440</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">MAEFilterStates &lt;- R6::R6Class( # nolint</pre>
+                      <pre class="language-r">                )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">441</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  classname = "MAEFilterStates",</pre>
+                      <pre class="language-r">                return(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">442</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  inherit = FilterStates,</pre>
+                      <pre class="language-r">              }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">443</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # public methods ----</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">444</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  public = list(</pre>
+                      <pre class="language-r">              private$set_selected(c(start_date, end_date))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">445</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">15</td>
+                    <td class="num">446</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Initialize `MAEFilterStates` object.</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">447</td>
                     <td class="coverage"></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="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">448</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param data (`MultiAssayExperiment`)</pre>
+                      <pre class="language-r">          private$observers$selection_end &lt;- observeEvent(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">449</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   the `R` object which `MultiAssayExperiment::subsetByColData` function is applied on.</pre>
+                      <pre class="language-r">            ignoreNULL = TRUE, # dates needs to be selected</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">450</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param data_reactive (`function(sid)`)</pre>
+                      <pre class="language-r">            ignoreInit = TRUE, # ignoreInit: should not matter because we set the UI with the desired initial state</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">451</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   should return a `MultiAssayExperiment` object or `NULL`.</pre>
+                      <pre class="language-r">            eventExpr = input$selection_end,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</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">    #'   This object is needed for the `FilterState` counts being updated</pre>
+                      <pre class="language-r">            handlerExpr = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">453</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   on a change in filters. If function returns `NULL` then filtered counts are not shown.</pre>
+                      <pre class="language-r">              start_date &lt;- private$get_selected()[1]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">454</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   Function has to have `sid` argument being a character.</pre>
+                      <pre class="language-r">              end_date &lt;- input$selection_end</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">455</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param dataname (`character(1)`)</pre>
+                      <pre class="language-r">              tzone &lt;- Find(function(x) x != "", attr(as.POSIXlt(private$get_choices()), "tzone"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">456</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   name of the data used in the subset expression.</pre>
+                      <pre class="language-r">              attr(end_date, "tzone") &lt;- tzone</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">457</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   Passed to the function argument attached to this `FilterStates`.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">458</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param datalabel (`character(1)`) optional</pre>
+                      <pre class="language-r">              if (start_date &gt; end_date) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">459</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   text label.</pre>
+                      <pre class="language-r">                showNotification(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">460</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param varlabels (`character`)</pre>
+                      <pre class="language-r">                  "End date must not be lower than the start date. Ignoring selection.",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">461</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   labels of the variables used in this object.</pre>
+                      <pre class="language-r">                  type = "warning"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">462</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param keys (`character`)</pre>
+                      <pre class="language-r">                )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">463</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   key column names.</pre>
+                      <pre class="language-r">                shinyWidgets::updateAirDateInput(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">33</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">464</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">                  session = session,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">465</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    initialize = function(data,</pre>
+                      <pre class="language-r">                  inputId = "selection_end",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">466</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          data_reactive = function(sid = "") NULL,</pre>
+                      <pre class="language-r">                  value = private$get_selected()[2] # sets back to latest selected value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">467</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          dataname,</pre>
+                      <pre class="language-r">                )</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">468</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                return(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">469</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          datalabel = "subjects",</pre>
+                      <pre class="language-r">              }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">470</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          keys = character(0)) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">39</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">471</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!requireNamespace("MultiAssayExperiment", quietly = TRUE)) {</pre>
+                      <pre class="language-r">              private$set_selected(c(start_date, end_date))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">40</td>
+                    <td class="num">472</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        stop("Cannot load MultiAssayExperiment - please install the package or restart your session.")</pre>
+                      <pre class="language-r">              logger::log_trace("DatetimeFilterState$server@2 selection changed, id: { private$get_id() }")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">473</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">42</td>
-                    <td class="coverage">26<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_function(data_reactive, args = "sid")</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">43</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">474</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_class(data, "MultiAssayExperiment")</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">475</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">45</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">476</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data &lt;- SummarizedExperiment::colData(data)</pre>
+                      <pre class="language-r">          private$keep_na_srv("keep_na")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">46</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">477</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data_reactive &lt;- function(sid = "") SummarizedExperiment::colData(data_reactive(sid = sid))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">47</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">478</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      super$initialize(data, data_reactive, dataname, datalabel)</pre>
+                      <pre class="language-r">          private$observers$reset1 &lt;- observeEvent(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">48</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">479</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$keys &lt;- keys</pre>
+                      <pre class="language-r">            ignoreInit = TRUE, # reset button shouldn't be trigger on init</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">49</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">480</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$set_filterable_varnames(include_varnames = colnames(data))</pre>
+                      <pre class="language-r">            ignoreNULL = TRUE, # it's impossible and wrong to set default to NULL</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">481</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            input$start_date_reset,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">482</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">51</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">483</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(self)</pre>
+                      <pre class="language-r">              shinyWidgets::updateAirDateInput(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">52</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">484</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">                session = session,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">485</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ),</pre>
+                      <pre class="language-r">                inputId = "selection_start",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">54</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">486</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                value = private$get_choices()[1L]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">487</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # private fields ----</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">56</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">488</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">              logger::log_trace("DatetimeFilterState$server@2 reset start date, id: { private$get_id() }")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">489</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">58</td>
+                    <td class="num">490</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extract_type = "list",</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">59</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">491</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    fun = quote(MultiAssayExperiment::subsetByColData)</pre>
+                      <pre class="language-r">          private$observers$reset2 &lt;- observeEvent(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">60</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">492</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">            ignoreInit = TRUE, # reset button shouldn't be trigger on init</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">61</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">493</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">            ignoreNULL = TRUE, # it's impossible and wrong to set default to NULL</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/FilteredData-utils.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">494</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Initialize `FilteredData`</pre>
+                      <pre class="language-r">            input$end_date_reset,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">495</td>
                     <td class="coverage"></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">496</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Function creates a `FilteredData` object.</pre>
+                      <pre class="language-r">              shinyWidgets::updateAirDateInput(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">497</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                session = session,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">498</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`named list`) of datasets.</pre>
+                      <pre class="language-r">                inputId = "selection_end",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">499</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param join_keys (`join_keys`) see [`teal.data::join_keys()`].</pre>
+                      <pre class="language-r">                value = private$get_choices()[2L]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">500</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param code `r lifecycle::badge("deprecated")`</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">501</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param check `r lifecycle::badge("deprecated")`</pre>
+                      <pre class="language-r">              logger::log_trace("DatetimeFilterState$server@3 reset end date, id: { private$get_id() }")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">502</td>
                     <td class="coverage"></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">503</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Object of class `FilteredData`.</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">504</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">505</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">          logger::log_trace("DatetimeFilterState$server initialized, id: { private$get_id() }")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">506</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' datasets &lt;- init_filtered_data(list(iris = iris, mtcars = mtcars))</pre>
+                      <pre class="language-r">          NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">507</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' datasets</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">508</td>
                     <td class="coverage"></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">509</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">17</td>
+                    <td class="num">510</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">init_filtered_data &lt;- function(x, join_keys = teal.data::join_keys(), code, check) { # nolint</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">18</td>
-                    <td class="coverage">7<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(x, any.missing = FALSE, names = "unique")</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">19</td>
-                    <td class="coverage">6<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(join_keys, "join_keys")</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">20</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (!missing(code)) {</pre>
+                      <pre class="language-r">    server_inputs_fixed = function(id) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">21</td>
+                    <td class="num">511</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lifecycle::deprecate_stop(</pre>
+                      <pre class="language-r">      moduleServer(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">22</td>
+                    <td class="num">512</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "0.5.0",</pre>
+                      <pre class="language-r">        id = id,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">23</td>
+                    <td class="num">513</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "init_filtered_data(code = 'No longer supported')"</pre>
+                      <pre class="language-r">        function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">514</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">          logger::log_trace("DatetimeFilterState$server initializing, id: { private$get_id() }")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">515</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">26</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">516</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!missing(check)) {</pre>
+                      <pre class="language-r">          output$selection &lt;- renderUI({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">27</td>
+                    <td class="num">517</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lifecycle::deprecate_stop(</pre>
+                      <pre class="language-r">            vals &lt;- format(private$get_selected(), usetz = TRUE, nsmall = 3)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">28</td>
+                    <td class="num">518</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "0.5.0",</pre>
+                      <pre class="language-r">            tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">29</td>
+                    <td class="num">519</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "init_filtered_data(check = 'No longer supported')"</pre>
+                      <pre class="language-r">              tags$div(icon("clock"), vals[1]),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">520</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">              tags$div(span(" - "), icon("clock"), vals[2])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">521</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">32</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  FilteredData$new(x, join_keys = join_keys)</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">522</td>
                     <td class="coverage"></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">523</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">524</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Evaluate expression with meaningful message</pre>
+                      <pre class="language-r">          logger::log_trace("DatetimeFilterState$server initialized, id: { private$get_id() }")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">525</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">37</td>
+                    <td class="num">526</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Method created for the `FilteredData` object to execute filter call with</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">527</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' meaningful message. After evaluation used environment should contain</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">528</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' all necessary bindings.</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">529</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">530</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param expr (`language`)</pre>
+                      <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">531</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param env (`environment`) where expression is evaluated.</pre>
+                      <pre class="language-r">    # UI module to display filter summary</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">532</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `NULL`, invisibly.</pre>
+                      <pre class="language-r">    #  renders text describing selected date range and</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">533</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">    #  if NA are included also</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">534</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">eval_expr_with_msg &lt;- function(expr, env) {</pre>
+                      <pre class="language-r">    content_summary = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">46</td>
-                    <td class="coverage">32<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">535</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lapply(</pre>
+                      <pre class="language-r">      selected &lt;- format(private$get_selected(), "%Y-%m-%d %H:%M:%S")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">47</td>
-                    <td class="coverage">32<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">536</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    expr,</pre>
+                      <pre class="language-r">      min &lt;- selected[1]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">48</td>
-                    <td class="coverage">32<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">537</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    function(x) {</pre>
+                      <pre class="language-r">      max &lt;- selected[2]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">49</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">538</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tryCatch(</pre>
+                      <pre class="language-r">      tagList(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">50</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">539</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        eval(x, envir = env),</pre>
+                      <pre class="language-r">        tags$span(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">51</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">540</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        error = function(e) {</pre>
+                      <pre class="language-r">          class = "filter-card-summary-value",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">52</td>
+                    <td class="num">541</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          stop(</pre>
+                      <pre class="language-r">          HTML(min, "&amp;ndash;", max)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">542</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">53</td>
+                    <td class="num">543</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            sprintf(</pre>
+                      <pre class="language-r">        tags$span(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">54</td>
+                    <td class="num">544</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "Call execution failed:\n - call:\n   %s\n - message:\n   %s ",</pre>
+                      <pre class="language-r">          class = "filter-card-summary-controls",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">55</td>
+                    <td class="num">545</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              deparse1(x, collapse = "\n"), e</pre>
+                      <pre class="language-r">          if (private$na_count &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">56</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">546</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">            tags$span("NA", if (isTRUE(private$get_keep_na())) icon("check") else icon("xmark"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">547</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">548</td>
                     <td class="coverage"></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="num">549</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="num">550</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">551</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">32<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">552</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  invisible(NULL)</pre>
+                      <pre class="language-r">)</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/FilterStateLogical.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r"># LogicalFilterState ------</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</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">65</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @name LogicalFilterState</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Toggle button properties.</pre>
+                      <pre class="language-r">#' @docType class</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">5</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">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Switch between different icons or titles on a button.</pre>
+                      <pre class="language-r">#' @title `FilterState` object for logical data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Wrapper functions that use `shinyjs::runjs` to change button properties in response to events,</pre>
+                      <pre class="language-r">#' @description Manages choosing a logical state.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' typically clicking those very buttons.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `shiny`'s `actionButton` and `actionLink` create `&lt;a&gt;` tags,</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' which may contain a child `&lt;i&gt;` tag that specifies an icon to be displayed.</pre>
+                      <pre class="language-r">#' # use non-exported function from teal.slice</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `toggle_icon` calls the `toggleClass` (when `one_way = FALSE`) or</pre>
+                      <pre class="language-r">#' include_css_files &lt;- getFromNamespace("include_css_files", "teal.slice")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `removeClass` and `addClass` methods (when `one_way = TRUE`) to change icons.</pre>
+                      <pre class="language-r">#' include_js_files &lt;- getFromNamespace("include_js_files", "teal.slice")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `toggle_title` calls the `attr` method to modify the `Title` attribute of the button.</pre>
+                      <pre class="language-r">#' LogicalFilterState &lt;- getFromNamespace("LogicalFilterState", "teal.slice")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">15</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">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param input_id (`character(1)`) (name-spaced) id of the button</pre>
+                      <pre class="language-r">#' library(shiny)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param icons,titles (`character(2)`) vector specifying values between which to toggle</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param one_way (`logical(1)`) flag specifying whether to keep toggling;</pre>
+                      <pre class="language-r">#' filter_state &lt;- LogicalFilterState$new(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'                if TRUE, the target will be changed</pre>
+                      <pre class="language-r">#'   x = sample(c(TRUE, FALSE, NA), 10, replace = TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'                from the first element of `icons`/`titles` to the second</pre>
+                      <pre class="language-r">#'   slice = teal_slice(varname = "x", dataname = "data")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</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">84</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `NULL`, invisibly.</pre>
+                      <pre class="language-r">#' isolate(filter_state$get_call())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' filter_state$set_state(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'   teal_slice(dataname = "data", varname = "x", selected = TRUE, keep_na = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # use non-exported function from teal.slice</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' toggle_icon &lt;- getFromNamespace("toggle_icon", "teal.slice")</pre>
+                      <pre class="language-r">#' isolate(filter_state$get_call())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">27</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="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(shiny)</pre>
+                      <pre class="language-r">#' # working filter in an app</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' library(shinyjs)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
+                      <pre class="language-r">#' data_logical &lt;- c(sample(c(TRUE, FALSE), 10, replace = TRUE), NA)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   useShinyjs(),</pre>
+                      <pre class="language-r">#' fs &lt;- LogicalFilterState$new(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   actionButton("hide_content", label = "hide", icon = icon("xmark")),</pre>
+                      <pre class="language-r">#'   x = data_logical,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   actionButton("show_content", label = "show", icon = icon("check")),</pre>
+                      <pre class="language-r">#'   slice = teal_slice(dataname = "data", varname = "x", selected = FALSE, keep_na = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   actionButton("toggle_content", label = "toggle", icon = icon("angle-down")),</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   tags$br(),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   tags$div(</pre>
+                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     id = "content",</pre>
+                      <pre class="language-r">#'   useShinyjs(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     verbatimTextOutput("printout")</pre>
+                      <pre class="language-r">#'   include_css_files(pattern = "filter-panel"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#'   include_js_files(pattern = "count-bar-labels"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'   column(4, tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     tags$h4("LogicalFilterState"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">43</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">#'     fs$ui("fs")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   observeEvent(input$hide_content,</pre>
+                      <pre class="language-r">#'   )),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     {</pre>
+                      <pre class="language-r">#'   column(4, tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       hide("content")</pre>
+                      <pre class="language-r">#'     id = "outputs", # div id is needed for toggling the element</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       toggle_icon("toggle_content", c("fa-angle-down", "fa-angle-right"), one_way = TRUE)</pre>
+                      <pre class="language-r">#'     tags$h4("Condition (i.e. call)"), # display the condition call generated by this FilterState</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     },</pre>
+                      <pre class="language-r">#'     textOutput("condition_logical"), tags$br(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ignoreInit = TRUE</pre>
+                      <pre class="language-r">#'     tags$h4("Unformatted state"), # display raw filter state</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#'     textOutput("unformatted_logical"), tags$br(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     tags$h4("Formatted state"), # display human readable filter state</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   observeEvent(input$show_content,</pre>
+                      <pre class="language-r">#'     textOutput("formatted_logical"), tags$br()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</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">116</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       show("content")</pre>
+                      <pre class="language-r">#'   column(4, tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       toggle_icon("toggle_content", c("fa-angle-right", "fa-angle-down"), one_way = TRUE)</pre>
+                      <pre class="language-r">#'     tags$h4("Programmatic filter control"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     },</pre>
+                      <pre class="language-r">#'     actionButton("button1_logical", "set drop NA", width = "100%"), tags$br(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ignoreInit = TRUE</pre>
+                      <pre class="language-r">#'     actionButton("button2_logical", "set keep NA", width = "100%"), tags$br(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#'     actionButton("button3_logical", "set a selection", width = "100%"), tags$br(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">59</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'     actionButton("button0_logical", "set initial state", width = "100%"), tags$br()</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="never">
+                    <td class="num">62</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="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   observeEvent(input$toggle_content,</pre>
+                      <pre class="language-r">#' server &lt;- function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     {</pre>
+                      <pre class="language-r">#'   fs$server("fs")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       toggle("content")</pre>
+                      <pre class="language-r">#'   output$condition_logical &lt;- renderPrint(fs$get_call())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       toggle_icon("toggle_content", c("fa-angle-right", "fa-angle-down"))</pre>
+                      <pre class="language-r">#'   output$formatted_logical &lt;- renderText(fs$format())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     },</pre>
+                      <pre class="language-r">#'   output$unformatted_logical &lt;- renderPrint(fs$get_state())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ignoreInit = TRUE</pre>
+                      <pre class="language-r">#'   # modify filter state programmatically</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#'   observeEvent(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     input$button1_logical,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   output$printout &lt;- renderPrint({</pre>
+                      <pre class="language-r">#'     fs$set_state(teal_slice(dataname = "data", varname = "x", keep_na = FALSE))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     head(faithful, 10)</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   })</pre>
+                      <pre class="language-r">#'   observeEvent(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#'     input$button2_logical,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">#'     fs$set_state(teal_slice(dataname = "data", varname = "x", keep_na = TRUE))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">76</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">136</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#'   observeEvent(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     input$button3_logical,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">79</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'     fs$set_state(teal_slice(dataname = "data", varname = "x", selected = TRUE))</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>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name toggle_button</pre>
+                      <pre class="language-r">#'   observeEvent(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname toggle_button</pre>
+                      <pre class="language-r">#'     input$button0_logical,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'     fs$set_state(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">toggle_icon &lt;- function(input_id, icons, one_way = FALSE) {</pre>
+                      <pre class="language-r">#'       teal_slice(dataname = "data", varname = "x", selected = FALSE, keep_na = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">3<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">  checkmate::assert_string(input_id)</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">143</td>
-                    <td class="coverage">3<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">  checkmate::assert_character(icons, len = 2L)</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">144</td>
-                    <td class="coverage">3<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">  checkmate::assert_flag(one_way)</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">88</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">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">89</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  expr &lt;-</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">147</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">90</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (one_way) {</pre>
+                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">148</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">91</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">149</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">92</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "$('#%s i').removeClass('%s').addClass('%s');",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">150</td>
-                    <td class="coverage">3<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">        input_id, icons[1], icons[2]</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</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">152</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">LogicalFilterState &lt;- R6::R6Class( # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">153</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">      sprintf("$('#%s i').toggleClass('%s');", input_id, paste(icons, collapse = " "))</pre>
+                      <pre class="language-r">  "LogicalFilterState",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  inherit = FilterState,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">156</td>
-                    <td class="coverage">3<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">  shinyjs::runjs(expr)</pre>
+                      <pre class="language-r">  # public methods ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">100</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="covered">
-                    <td class="num">158</td>
-                    <td class="coverage">3<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">  invisible(NULL)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">102</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">160</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' Initialize a `FilterState` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname toggle_button</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">    #' @param x (`logical`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">toggle_title &lt;- function(input_id, titles, one_way = FALSE) {</pre>
+                      <pre class="language-r">    #'   variable to be filtered.</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">107</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(input_id)</pre>
+                      <pre class="language-r">    #' @param x_reactive (`reactive`)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">3<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">  checkmate::assert_character(titles, len = 2L)</pre>
+                      <pre class="language-r">    #'   returning vector of the same type as `x`. Is used to update</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">166</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">109</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(one_way)</pre>
+                      <pre class="language-r">    #'   counts following the change in values of the filtered dataset.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #'   If it is set to `reactive(NULL)` then counts based on filtered</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">111</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  expr &lt;-</pre>
+                      <pre class="language-r">    #'   dataset are not shown.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">112</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (one_way) {</pre>
+                      <pre class="language-r">    #' @param slice (`teal_slice`)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">170</td>
-                    <td class="coverage">3<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">      sprintf(</pre>
+                      <pre class="language-r">    #'   specification of this filter state.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">3<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">        "$('a#%s').attr('title', '%s');",</pre>
+                      <pre class="language-r">    #'   `teal_slice` is stored in the object and `set_state` directly manipulates values within `teal_slice`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">172</td>
-                    <td class="coverage">3<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">        input_id, titles[2]</pre>
+                      <pre class="language-r">    #'   `get_state` returns `teal_slice` object which can be reused in other places.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    #'   Note that `teal_slice` is a `reactiveValues`, which means it has reference semantics, i.e.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">    #'   changes made to an object are automatically reflected in all places that refer to the same `teal_slice`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">175</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">      sprintf(</pre>
+                      <pre class="language-r">    #' @param extract_type (`character`)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">176</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">        paste0(</pre>
+                      <pre class="language-r">    #'   specifying whether condition calls should be prefixed by `dataname`. Possible values:</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">177</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">          "var button_id = 'a#%1$s';",</pre>
+                      <pre class="language-r">    #' - `character(0)` (default) `varname` in the condition call will not be prefixed</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">178</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">          "var curr = $(button_id).attr('title');",</pre>
+                      <pre class="language-r">    #' - `"list"` `varname` in the condition call will be returned as `&lt;dataname&gt;$&lt;varname&gt;`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">179</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">          "if (curr == '%2$s') { $(button_id).attr('title', '%3$s');",</pre>
+                      <pre class="language-r">    #' - `"matrix"` `varname` in the condition call will be returned as `&lt;dataname&gt;[, &lt;varname&gt;]`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">180</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">          "} else { $(button_id).attr('title', '%2$s');",</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "}"</pre>
+                      <pre class="language-r">    #' @return Object of class `LogicalFilterState`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">125</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">183</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">126</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        input_id, titles[1], titles[2]</pre>
+                      <pre class="language-r">    initialize = function(x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">                          x_reactive = reactive(NULL),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">                          extract_type = character(0),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                          slice) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">187</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">130</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  shinyjs::runjs(expr)</pre>
+                      <pre class="language-r">      isolate({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">188</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">131</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        checkmate::assert_logical(x)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">189</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">132</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  invisible(NULL)</pre>
+                      <pre class="language-r">        checkmate::assert_logical(slice$selected, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">190</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">133</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        super$initialize(x = x, x_reactive = x_reactive, slice = slice, extract_type = extract_type)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">191</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">192</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">135</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inherit teal.data::topological_sort description details params title</pre>
+                      <pre class="language-r">        private$set_choices(slice$choices)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">193</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">136</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">        if (is.null(slice$multiple)) slice$multiple &lt;- FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">194</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">137</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # use non-exported function from teal.slice</pre>
+                      <pre class="language-r">        if (is.null(slice$selected) &amp;&amp; slice$multiple) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">195</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">138</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' topological_sort &lt;- getFromNamespace("topological_sort", "teal.slice")</pre>
+                      <pre class="language-r">          slice$selected &lt;- private$get_choices()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">196</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">139</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        } else if (length(slice$selected) != 1 &amp;&amp; !slice$multiple) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">197</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">140</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' topological_sort(list(A = c(), B = c("A"), C = c("B"), D = c("A")))</pre>
+                      <pre class="language-r">          slice$selected &lt;- TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' topological_sort(list(D = c("A"), A = c(), B = c("A"), C = c("B")))</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">199</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">142</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' topological_sort(list(D = c("A"), B = c("A"), C = c("B"), A = c()))</pre>
+                      <pre class="language-r">        private$set_selected(slice$selected)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">200</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">143</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">        df &lt;- factor(x, levels = c(TRUE, FALSE))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">201</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">144</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">topological_sort &lt;- function(graph) {</pre>
+                      <pre class="language-r">        tbl &lt;- table(df)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">202</td>
-                    <td class="coverage">66<em>x</em></td>
+                    <td class="num">145</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  utils::getFromNamespace("topological_sort", ns = "teal.data")(graph)</pre>
+                      <pre class="language-r">        private$set_choices_counts(tbl)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">146</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/FilterStateDate.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">147</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># DateFilterState ------</pre>
+                      <pre class="language-r">      invisible(self)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</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">3</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name DateFilterState</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @docType class</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' Returns reproducible condition call for current selection.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @title `FilterState` object for `Date` data</pre>
+                      <pre class="language-r">    #' For `LogicalFilterState` it's a `!&lt;varname&gt;` or `&lt;varname&gt;` and optionally `is.na(&lt;varname&gt;)`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' @param dataname name of data set; defaults to `private$get_dataname()`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description Manages choosing a range of `Date`s.</pre>
+                      <pre class="language-r">    #' @return `call`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</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">10</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">    get_call = function(dataname) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">157</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # use non-exported function from teal.slice</pre>
+                      <pre class="language-r">      if (isFALSE(private$is_any_filtered())) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</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">#' include_css_files &lt;- getFromNamespace("include_css_files", "teal.slice")</pre>
+                      <pre class="language-r">        return(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' include_js_files &lt;- getFromNamespace("include_js_files", "teal.slice")</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">160</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' DateFilterState &lt;- getFromNamespace("DateFilterState", "teal.slice")</pre>
+                      <pre class="language-r">      if (missing(dataname)) dataname &lt;- private$get_dataname()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">161</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      varname &lt;- private$get_varname_prefixed(dataname)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">162</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(shiny)</pre>
+                      <pre class="language-r">      choices &lt;- private$get_selected()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">163</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      n_choices &lt;- length(choices)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' filter_state &lt;- DateFilterState$new(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">165</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   x = c(Sys.Date() + seq(1:10), NA),</pre>
+                      <pre class="language-r">      filter_call &lt;-</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">166</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   slice = teal_slice(varname = "x", dataname = "data"),</pre>
+                      <pre class="language-r">        if (n_choices == 1 &amp;&amp; choices) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">167</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   extract_type = character(0)</pre>
+                      <pre class="language-r">          varname</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">168</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">        } else if (n_choices == 1 &amp;&amp; !choices) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">169</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' isolate(filter_state$get_call())</pre>
+                      <pre class="language-r">          call("!", varname)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' filter_state$set_state(</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">171</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   teal_slice(</pre>
+                      <pre class="language-r">          call("%in%", varname, make_c_call(choices))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     dataname = "data",</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">173</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     varname = "x",</pre>
+                      <pre class="language-r">      private$add_keep_na_call(filter_call, varname)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     selected = c(Sys.Date() + 3L, Sys.Date() + 8L),</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     keep_na = TRUE</pre>
+                      <pre class="language-r">  ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</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">31</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  # private members ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' isolate(filter_state$get_call())</pre>
+                      <pre class="language-r">  private = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    choices_counts = integer(0),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # working filter in an app</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(shinyjs)</pre>
+                      <pre class="language-r">    # private methods ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    set_choices = function(choices) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">183</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' dates &lt;- c(Sys.Date() - 100, Sys.Date())</pre>
+                      <pre class="language-r">      private$teal_slice$choices &lt;- c(TRUE, FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">184</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data_date &lt;- c(seq(from = dates[1], to = dates[2], length.out = 100), NA)</pre>
+                      <pre class="language-r">      invisible(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' fs &lt;- DateFilterState$new(</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   x = data_date,</pre>
+                      <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   slice = teal_slice(</pre>
+                      <pre class="language-r">    # Sets choices_counts private field</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     dataname = "data", varname = "x", selected = data_date[c(47, 98)], keep_na = TRUE</pre>
+                      <pre class="language-r">    set_choices_counts = function(choices_counts) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">43</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">189</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">      private$choices_counts &lt;- choices_counts</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">190</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">      invisible(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">191</td>
                     <td class="coverage"></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">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
+                      <pre class="language-r">    cast_and_validate = function(values) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">47</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">193</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   useShinyjs(),</pre>
+                      <pre class="language-r">      tryCatch(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">48</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">194</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   include_css_files(pattern = "filter-panel"),</pre>
+                      <pre class="language-r">        expr = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">195</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   include_js_files(pattern = "count-bar-labels"),</pre>
+                      <pre class="language-r">          values &lt;- as.logical(values)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">196</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   column(4, tags$div(</pre>
+                      <pre class="language-r">          if (anyNA(values)) stop()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">51</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">197</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tags$h4("DateFilterState"),</pre>
+                      <pre class="language-r">          values</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     fs$ui("fs")</pre>
+                      <pre class="language-r">        },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">199</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )),</pre>
+                      <pre class="language-r">        error = function(e) stop("Vector of set values must contain values coercible to logical.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   column(4, tags$div(</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     id = "outputs", # div id is needed for toggling the element</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">202</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tags$h4("Condition (i.e. call)"), # display the condition call generated by this FilterState</pre>
+                      <pre class="language-r">    # If multiple forbidden but selected, restores previous selection with warning.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     textOutput("condition_date"), tags$br(),</pre>
+                      <pre class="language-r">    check_length = function(values) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">58</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">204</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tags$h4("Unformatted state"), # display raw filter state</pre>
+                      <pre class="language-r">      if (!private$is_multiple() &amp;&amp; length(values) &gt; 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">59</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">205</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     textOutput("unformatted_date"), tags$br(),</pre>
+                      <pre class="language-r">        warning(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">60</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">206</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tags$h4("Formatted state"), # display human readable filter state</pre>
+                      <pre class="language-r">          sprintf("Selection: %s is not a vector of length one. ", toString(values, width = 360)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">61</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">207</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     textOutput("formatted_date"), tags$br()</pre>
+                      <pre class="language-r">          "Maintaining previous selection."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</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">63</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">#'   column(4, tags$div(</pre>
+                      <pre class="language-r">        values &lt;- isolate(private$get_selected())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">210</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tags$h4("Programmatic filter control"),</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">65</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">211</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     actionButton("button1_date", "set drop NA", width = "100%"), tags$br(),</pre>
+                      <pre class="language-r">      values</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     actionButton("button2_date", "set keep NA", width = "100%"), tags$br(),</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     actionButton("button3_date", "set a range", width = "100%"), tags$br(),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     actionButton("button4_date", "set full range", width = "100%"), tags$br(),</pre>
+                      <pre class="language-r">    # Answers the question of whether the current settings and values selected actually filters out any values.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     actionButton("button0_date", "set initial state", width = "100%"), tags$br()</pre>
+                      <pre class="language-r">    # @return logical scalar</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ))</pre>
+                      <pre class="language-r">    is_any_filtered = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">71</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">217</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">      if (private$is_choice_limited) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">72</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">218</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">73</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">219</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' server &lt;- function(input, output, session) {</pre>
+                      <pre class="language-r">      } else if (all(private$choices_counts &gt; 0)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">74</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">220</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   fs$server("fs")</pre>
+                      <pre class="language-r">        TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">221</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   output$condition_date &lt;- renderPrint(fs$get_call())</pre>
+                      <pre class="language-r">      } else if (</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">76</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">222</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   output$formatted_date &lt;- renderText(fs$format())</pre>
+                      <pre class="language-r">        setequal(private$get_selected(), private$get_choices()) &amp;&amp;</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">77</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">#'   output$unformatted_date &lt;- renderPrint(fs$get_state())</pre>
+                      <pre class="language-r">          !anyNA(private$get_selected(), private$get_choices())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">224</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   # modify filter state programmatically</pre>
+                      <pre class="language-r">      ) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">79</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">225</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   observeEvent(</pre>
+                      <pre class="language-r">        TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">80</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">#'     input$button1_date,</pre>
+                      <pre class="language-r">      } else if (!isTRUE(private$get_keep_na()) &amp;&amp; private$na_count &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">81</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">#'     fs$set_state(teal_slice(dataname = "data", varname = "x", keep_na = FALSE))</pre>
+                      <pre class="language-r">        TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">228</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">83</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">229</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   observeEvent(</pre>
+                      <pre class="language-r">        FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">230</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     input$button2_date,</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     fs$set_state(teal_slice(dataname = "data", varname = "x", keep_na = TRUE))</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">232</td>
                     <td class="coverage"></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">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   observeEvent(</pre>
+                      <pre class="language-r">    # shiny modules ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">234</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     input$button3_date,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     fs$set_state(teal_slice(dataname = "data", varname = "x", selected = data_date[c(34, 56)]))</pre>
+                      <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">    # UI Module for `EmptyFilterState`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">237</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   observeEvent(</pre>
+                      <pre class="language-r">    # This UI element contains available choices selection and</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">238</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     input$button4_date,</pre>
+                      <pre class="language-r">    # checkbox whether to keep or not keep the `NA` values.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">239</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     fs$set_state(teal_slice(dataname = "data", varname = "x", selected = dates))</pre>
+                      <pre class="language-r">    # @param id (`character(1)`) `shiny` module instance id.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">    ui_inputs = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">95</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">#'   observeEvent(</pre>
+                      <pre class="language-r">      ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">96</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">242</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     input$button0_date,</pre>
+                      <pre class="language-r">      isolate({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">97</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">#'     fs$set_state(</pre>
+                      <pre class="language-r">        countsmax &lt;- private$choices_counts</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">98</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">#'       teal_slice("data", "variable", selected = data_date[c(47, 98)], keep_na = TRUE)</pre>
+                      <pre class="language-r">        countsnow &lt;- if (!is.null(private$x_reactive())) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">99</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">          unname(table(factor(private$x_reactive(), levels = private$get_choices())))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">246</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">101</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">#' }</pre>
+                      <pre class="language-r">          NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</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">103</td>
+                    <td class="num">249</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">104</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">#'   shinyApp(ui, server)</pre>
+                      <pre class="language-r">        labels &lt;- countBars(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">105</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">          inputId = ns("labels"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">106</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">252</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          choices = as.character(private$get_choices()),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">107</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">253</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">          countsnow = countsnow,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">108</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">254</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          countsmax = countsmax</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">255</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">DateFilterState &lt;- R6::R6Class( # nolint</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">110</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">256</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  "DateFilterState",</pre>
+                      <pre class="language-r">        ui_input &lt;- if (private$is_multiple()) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">111</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">257</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  inherit = FilterState,</pre>
+                      <pre class="language-r">          checkboxGroupInput(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">112</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">258</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            inputId = ns("selection"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">113</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">259</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # public methods ----</pre>
+                      <pre class="language-r">            label = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">114</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">260</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            selected = isolate(as.character(private$get_selected())),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">115</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">261</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  public = list(</pre>
+                      <pre class="language-r">            choiceNames = labels,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">116</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">262</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            choiceValues = factor(as.character(private$get_choices()), levels = c("TRUE", "FALSE")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">117</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">263</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">            width = "100%"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">264</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Initialize a `FilterState` object.</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">265</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">120</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">    #' @param x (`Date`)</pre>
+                      <pre class="language-r">          radioButtons(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">121</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">    #'   variable to be filtered.</pre>
+                      <pre class="language-r">            inputId = ns("selection"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">122</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">268</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param x_reactive (`reactive`)</pre>
+                      <pre class="language-r">            label = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">123</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">269</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   returning vector of the same type as `x`. Is used to update</pre>
+                      <pre class="language-r">            selected = isolate(as.character(private$get_selected())),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">124</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">    #'   counts following the change in values of the filtered dataset.</pre>
+                      <pre class="language-r">            choiceNames = labels,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">125</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">    #'   If it is set to `reactive(NULL)` then counts based on filtered</pre>
+                      <pre class="language-r">            choiceValues = factor(as.character(private$get_choices()), levels = c("TRUE", "FALSE")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">126</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">272</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   dataset are not shown.</pre>
+                      <pre class="language-r">            width = "100%"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">273</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param slice (`teal_slice`)</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">274</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   specification of this filter state.</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">129</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">275</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   `teal_slice` is stored in the object and `set_state` directly manipulates values within `teal_slice`.</pre>
+                      <pre class="language-r">        tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">130</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">    #'   `get_state` returns `teal_slice` object which can be reused in other places.</pre>
+                      <pre class="language-r">          tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">131</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">277</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   Note that `teal_slice` is a `reactiveValues`, which means it has reference semantics, i.e.</pre>
+                      <pre class="language-r">            class = "choices_state",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">132</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">    #'   changes made to an object are automatically reflected in all places that refer to the same `teal_slice`.</pre>
+                      <pre class="language-r">            uiOutput(ns("trigger_visible"), inline = TRUE),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">133</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">    #' @param extract_type (`character`)</pre>
+                      <pre class="language-r">            ui_input</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">280</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   specifying whether condition calls should be prefixed by `dataname`. Possible values:</pre>
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">135</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">281</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' - `character(0)` (default) `varname` in the condition call will not be prefixed</pre>
+                      <pre class="language-r">          private$keep_na_ui(ns("keep_na"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">282</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' - `"list"` `varname` in the condition call will be returned as `&lt;dataname&gt;$&lt;varname&gt;`</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">283</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' - `"matrix"` `varname` in the condition call will be returned as `&lt;dataname&gt;[, &lt;varname&gt;]`</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</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">139</td>
+                    <td class="num">285</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return Object of class `DateFilterState`, invisibly.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">286</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">141</td>
+                    <td class="num">287</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    initialize = function(x,</pre>
+                      <pre class="language-r">    # Server module</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">288</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          x_reactive = reactive(NULL),</pre>
+                      <pre class="language-r">    # @param id (`character(1)`) `shiny` module instance id.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">289</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          slice,</pre>
+                      <pre class="language-r">    # @return `NULL`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">290</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          extract_type = character(0)) {</pre>
+                      <pre class="language-r">    server_inputs = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">145</td>
-                    <td class="coverage">24<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">291</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      isolate({</pre>
+                      <pre class="language-r">      moduleServer(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">146</td>
-                    <td class="coverage">24<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">292</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        checkmate::assert_date(x)</pre>
+                      <pre class="language-r">        id = id,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">147</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">293</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        checkmate::assert_class(x_reactive, "reactive")</pre>
+                      <pre class="language-r">        function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">294</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          # this observer is needed in the situation when teal_slice$selected has been</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">149</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">295</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        super$initialize(</pre>
+                      <pre class="language-r">          # changed directly by the api - then it's needed to rerender UI element</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">150</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">296</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x = x,</pre>
+                      <pre class="language-r">          # to show relevant values</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">151</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">297</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x_reactive = x_reactive,</pre>
+                      <pre class="language-r">          non_missing_values &lt;- reactive(Filter(Negate(is.na), private$x_reactive()))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">152</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">298</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          slice = slice,</pre>
+                      <pre class="language-r">          output$trigger_visible &lt;- renderUI({</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">153</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">299</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          extract_type = extract_type</pre>
+                      <pre class="language-r">            logger::log_trace("LogicalFilterState$server@1 updating count labels, id: { private$get_id() }")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</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="covered">
-                    <td class="num">155</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">301</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        checkmate::assert_date(slice$choices, null.ok = TRUE)</pre>
+                      <pre class="language-r">            countsnow &lt;- if (!is.null(private$x_reactive())) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">156</td>
-                    <td class="coverage">22<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">302</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$set_choices(slice$choices)</pre>
+                      <pre class="language-r">              unname(table(factor(non_missing_values(), levels = private$get_choices())))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">157</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">303</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (is.null(slice$selected)) slice$selected &lt;- slice$choices</pre>
+                      <pre class="language-r">            } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">158</td>
-                    <td class="coverage">22<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">304</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$set_selected(slice$selected)</pre>
+                      <pre class="language-r">              NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">305</td>
                     <td class="coverage"></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">306</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">161</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">307</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(self)</pre>
+                      <pre class="language-r">            updateCountBars(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">162</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">              inputId = "labels",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">163</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"></pre>
+                      <pre class="language-r">              choices = as.character(private$get_choices()),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">164</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">    #' @description</pre>
+                      <pre class="language-r">              countsmax = private$choices_counts,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">165</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">311</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Returns reproducible condition call for current selection.</pre>
+                      <pre class="language-r">              countsnow = countsnow</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">312</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' For this class returned call looks like</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">167</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">313</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' `&lt;varname&gt; &gt;= &lt;min value&gt; &amp; &lt;varname&gt; &lt;= &lt;max value&gt;` with optional `is.na(&lt;varname&gt;)`.</pre>
+                      <pre class="language-r">            NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <td class="num">314</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param dataname (`character(1)`) containing possibly prefixed name of data set</pre>
+                      <pre class="language-r">          })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">315</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `call` or `NULL`</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">170</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">316</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">          private$observers$seleted_api &lt;- observeEvent(</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">    get_call = function(dataname) {</pre>
+                      <pre class="language-r">            ignoreNULL = !private$is_multiple(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">172</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">318</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (isFALSE(private$is_any_filtered())) {</pre>
+                      <pre class="language-r">            ignoreInit = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">173</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">319</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        return(NULL)</pre>
+                      <pre class="language-r">            eventExpr = private$get_selected(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">174</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">320</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">            handlerExpr = {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">175</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">321</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      choices &lt;- as.character(private$get_selected())</pre>
+                      <pre class="language-r">              if (!setequal(private$get_selected(), input$selection)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">176</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">322</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      varname &lt;- private$get_varname_prefixed(dataname)</pre>
+                      <pre class="language-r">                logger::log_trace("LogicalFilterState$server@1 state changed, id: { private$get_id() }")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">177</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">323</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      filter_call &lt;-</pre>
+                      <pre class="language-r">                if (private$is_multiple()) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">178</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">324</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                  updateCheckboxGroupInput(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">325</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                    inputId = "selection",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">326</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        call(</pre>
+                      <pre class="language-r">                    selected = private$get_selected()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">327</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "&amp;",</pre>
+                      <pre class="language-r">                  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">180</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">328</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          call("&gt;=", varname, call("as.Date", choices[1L])),</pre>
+                      <pre class="language-r">                } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">181</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">329</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          call("&lt;=", varname, call("as.Date", choices[2L]))</pre>
+                      <pre class="language-r">                  updateRadioButtons(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">182</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">                    inputId = "selection",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">183</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">331</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$add_keep_na_call(filter_call, varname)</pre>
+                      <pre class="language-r">                    selected = private$get_selected()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">332</td>
                     <td class="coverage"></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">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">186</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">187</td>
+                    <td class="num">335</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # private methods ----</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</td>
+                    <td class="num">336</td>
                     <td class="coverage"></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">337</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">190</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">338</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set_choices = function(choices) {</pre>
+                      <pre class="language-r">          private$observers$selection &lt;- observeEvent(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">191</td>
-                    <td class="coverage">22<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">339</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (is.null(choices)) {</pre>
+                      <pre class="language-r">            ignoreNULL = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">192</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">340</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        choices &lt;- range(private$x, na.rm = TRUE)</pre>
+                      <pre class="language-r">            ignoreInit = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">193</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">341</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">            eventExpr = input$selection,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">194</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">342</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        choices_adjusted &lt;- c(max(choices[1L], min(private$x)), min(choices[2L], max(private$x)))</pre>
+                      <pre class="language-r">            handlerExpr = {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">195</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">343</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (any(choices != choices_adjusted)) {</pre>
+                      <pre class="language-r">              logger::log_trace("LogicalFilterState$server@2 selection changed, id: { private$get_id() }")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">196</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">344</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          warning(sprintf(</pre>
+                      <pre class="language-r">              # for private$is_multiple() == TRUE input$selection will always have value</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">197</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">345</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "Choices adjusted (some values outside of variable range). Varname: %s, dataname: %s.",</pre>
+                      <pre class="language-r">              if (is.null(input$selection) &amp;&amp; isFALSE(private$is_multiple())) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">198</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">346</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            private$get_varname(), private$get_dataname()</pre>
+                      <pre class="language-r">                selection_state &lt;- private$get_selected()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">199</td>
+                    <td class="num">347</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">200</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">348</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          choices &lt;- choices_adjusted</pre>
+                      <pre class="language-r">                selection_state &lt;- as.logical(input$selection)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">349</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">202</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">350</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (choices[1L] &gt;= choices[2L]) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">203</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">351</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          warning(sprintf(</pre>
+                      <pre class="language-r">              if (is.null(selection_state)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">204</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">352</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "Invalid choices: lower is higher / equal to upper, or not in range of variable values.</pre>
+                      <pre class="language-r">                selection_state &lt;- logical(0)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">205</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">353</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            Setting defaults. Varname: %s, dataname: %s.",</pre>
+                      <pre class="language-r">              }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">206</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">354</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            private$get_varname(), private$get_dataname()</pre>
+                      <pre class="language-r">              private$set_selected(selection_state)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">355</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ))</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">208</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          choices &lt;- range(private$x, na.rm = TRUE)</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</td>
+                    <td class="num">356</td>
                     <td class="coverage"></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">357</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">211</td>
-                    <td class="coverage">22<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">358</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$set_is_choice_limited(private$x, choices)</pre>
+                      <pre class="language-r">          private$keep_na_srv("keep_na")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">212</td>
-                    <td class="coverage">22<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">359</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$x &lt;- private$x[(private$x &gt;= choices[1L] &amp; private$x &lt;= choices[2L]) | is.na(private$x)]</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">213</td>
-                    <td class="coverage">22<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">360</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$teal_slice$choices &lt;- choices</pre>
+                      <pre class="language-r">          logger::log_trace("LogicalFilterState$server initialized, id: { private$get_id() }")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">214</td>
-                    <td class="coverage">22<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">361</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(NULL)</pre>
+                      <pre class="language-r">          NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">215</td>
+                    <td class="num">362</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">363</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">217</td>
+                    <td class="num">364</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">218</td>
+                    <td class="num">365</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Check whether the initial choices filter out some values of x and set the flag in case.</pre>
+                      <pre class="language-r">    server_inputs_fixed = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">219</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">366</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set_is_choice_limited = function(xl, choices) {</pre>
+                      <pre class="language-r">      moduleServer(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">220</td>
-                    <td class="coverage">22<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">367</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$is_choice_limited &lt;- (any(xl &lt; choices[1L], na.rm = TRUE) | any(xl &gt; choices[2L], na.rm = TRUE))</pre>
+                      <pre class="language-r">        id = id,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">221</td>
-                    <td class="coverage">22<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">368</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(NULL)</pre>
+                      <pre class="language-r">        function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">222</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">          logger::log_trace("LogicalFilterState$server initializing, id: { private$get_id() }")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">223</td>
+                    <td class="num">370</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    cast_and_validate = function(values) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">224</td>
-                    <td class="coverage">33<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">371</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tryCatch(</pre>
+                      <pre class="language-r">          output$selection &lt;- renderUI({</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">225</td>
-                    <td class="coverage">33<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">372</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        expr = {</pre>
+                      <pre class="language-r">            countsnow &lt;- unname(table(factor(private$x_reactive(), levels = private$get_choices())))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">226</td>
-                    <td class="coverage">33<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">373</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          values &lt;- as.Date(values, origin = "1970-01-01")</pre>
+                      <pre class="language-r">            countsmax &lt;- private$choices_counts</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">374</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">227</td>
+                    <td class="num">375</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (anyNA(values)) stop()</pre>
+                      <pre class="language-r">            ind &lt;- private$get_choices() %in% private$get_selected()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">228</td>
-                    <td class="coverage">30<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">376</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          values</pre>
+                      <pre class="language-r">            countBars(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">229</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">377</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        },</pre>
+                      <pre class="language-r">              inputId = session$ns("labels"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">230</td>
-                    <td class="coverage">33<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">378</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        error = function(e) stop("Vector of set values must contain values coercible to Date.")</pre>
+                      <pre class="language-r">              choices = private$get_selected(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">231</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">379</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">              countsnow = countsnow[ind],</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">380</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              countsmax = countsmax[ind]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">232</td>
+                    <td class="num">381</td>
                     <td class="coverage"></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="num">382</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    check_length = function(values) {</pre>
+                      <pre class="language-r">          })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">234</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">383</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(values) != 2) stop("Vector of set values must have length two.")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">235</td>
-                    <td class="coverage">29<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">384</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (values[1] &gt; values[2]) {</pre>
+                      <pre class="language-r">          logger::log_trace("LogicalFilterState$server initialized, id: { private$get_id() }")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">236</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">385</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        warning(</pre>
+                      <pre class="language-r">          NULL</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">386</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">238</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">387</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "Start date %s is set after the end date %s, the values will be replaced with a default date range.",</pre>
+                      <pre class="language-r">      )</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">388</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            values[1], values[2]</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">240</td>
+                    <td class="num">389</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">241</td>
+                    <td class="num">390</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">242</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">391</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        values &lt;- isolate(private$get_choices())</pre>
+                      <pre class="language-r">    # Server module to display filter summary</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">243</td>
+                    <td class="num">392</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">    #  renders text describing whether TRUE or FALSE is selected</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">244</td>
-                    <td class="coverage">29<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">393</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      values</pre>
+                      <pre class="language-r">    #  and if NA are included also</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">245</td>
+                    <td class="num">394</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">    content_summary = function(id) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">395</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      tagList(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">396</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        tags$span(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">397</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          class = "filter-card-summary-value",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">398</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          toString(private$get_selected())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">246</td>
+                    <td class="num">399</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    remove_out_of_bounds_values = function(values) {</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">247</td>
-                    <td class="coverage">29<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">400</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      choices &lt;- private$get_choices()</pre>
+                      <pre class="language-r">        tags$span(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">248</td>
-                    <td class="coverage">29<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">401</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (values[1] &lt; choices[1L] | values[1] &gt; choices[2L]) {</pre>
+                      <pre class="language-r">          class = "filter-card-summary-controls",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">402</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          if (private$na_count &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">249</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">403</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        warning(</pre>
+                      <pre class="language-r">            tags$span("NA", if (isTRUE(private$get_keep_na())) icon("check") else icon("xmark"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">250</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">404</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">251</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">405</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "Value: %s is outside of the possible range for column %s of dataset %s, setting minimum possible value.",</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">252</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">406</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            values[1], private$get_varname(), private$get_dataname()</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">253</td>
+                    <td class="num">407</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">254</td>
+                    <td class="num">408</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">255</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">409</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        values[1] &lt;- choices[1L]</pre>
+                      <pre class="language-r">)</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/FilterStateEmpty.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">256</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r"># EmptyFilterState ------</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">257</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">258</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">      if (values[2] &gt; choices[2L] | values[2] &lt; choices[1L]) {</pre>
+                      <pre class="language-r">#' @name EmptyFilterState</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">259</td>
-                    <td class="coverage">5<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">        warning(</pre>
+                      <pre class="language-r">#' @docType class</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">260</td>
-                    <td class="coverage">5<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">          sprintf(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">261</td>
-                    <td class="coverage">5<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">            "Value: %s is outside of the possible range for column %s of dataset %s, setting maximum possible value.",</pre>
+                      <pre class="language-r">#' @title `FilterState` object for empty variables</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">262</td>
-                    <td class="coverage">5<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">            values[2], private$get_varname(), private$get_dataname()</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">263</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#' @description `FilterState` subclass representing an empty variable.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">264</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="covered">
-                    <td class="num">265</td>
-                    <td class="coverage">5<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">        values[2] &lt;- choices[2L]</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">266</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' # use non-exported function from teal.slice</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">267</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' include_js_files &lt;- getFromNamespace("include_js_files", "teal.slice")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">268</td>
-                    <td class="coverage">29<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">      values</pre>
+                      <pre class="language-r">#' EmptyFilterState &lt;- getFromNamespace("EmptyFilterState", "teal.slice")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">269</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">270</td>
+                    <td class="num">15</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="never">
-                    <td class="num">271</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # shiny modules ----</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">272</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' filter_state &lt;- EmptyFilterState$new(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">273</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @description</pre>
+                      <pre class="language-r">#'   x = NA,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">274</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # UI Module for `DateFilterState`.</pre>
+                      <pre class="language-r">#'   slice = teal_slice(varname = "x", dataname = "data"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">275</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # This UI element contains two date selections for `min` and `max`</pre>
+                      <pre class="language-r">#'   extract_type = character(0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">276</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # of the range and a checkbox whether to keep the `NA` values.</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">277</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @param id (`character(1)`) `shiny` module instance id.</pre>
+                      <pre class="language-r">#' isolate(filter_state$get_call())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">278</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_inputs = function(id) {</pre>
+                      <pre class="language-r">#' filter_state$set_state(teal_slice(dataname = "data", varname = "x", keep_na = TRUE))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">279</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">24</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ns &lt;- NS(id)</pre>
+                      <pre class="language-r">#' isolate(filter_state$get_call())</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">280</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">      isolate({</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">281</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">        tags$div(</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">282</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">          tags$div(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">283</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">            class = "flex",</pre>
+                      <pre class="language-r">EmptyFilterState &lt;- R6::R6Class( # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">284</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">            actionButton(</pre>
+                      <pre class="language-r">  "EmptyFilterState",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">285</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">              class = "date_reset_button",</pre>
+                      <pre class="language-r">  inherit = FilterState,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">286</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">              inputId = ns("start_date_reset"),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">287</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">              label = NULL,</pre>
+                      <pre class="language-r">  # public methods ----</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">288</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">              icon = icon("fas fa-undo")</pre>
+                      <pre class="language-r">  public = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">289</td>
+                    <td class="num">34</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">290</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">35</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            tags$div(</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">291</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">              class = "w-80 filter_datelike_input",</pre>
+                      <pre class="language-r">    #' Initialize `EmptyFilterState` object.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">292</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">              dateRangeInput(</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">38</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                inputId = ns("selection"),</pre>
+                      <pre class="language-r">    #' @param x (`vector`)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">294</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">39</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                label = NULL,</pre>
+                      <pre class="language-r">    #'   variable to be filtered,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">295</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">                start = private$get_selected()[1],</pre>
+                      <pre class="language-r">    #' @param x_reactive (`reactive`)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">296</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">41</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                end = private$get_selected()[2],</pre>
+                      <pre class="language-r">    #'   returning vector of the same type as `x`. Is used to update</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">297</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">42</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                min = private$get_choices()[1L],</pre>
+                      <pre class="language-r">    #'   counts following the change in values of the filtered dataset.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">298</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">                max = private$get_choices()[2L],</pre>
+                      <pre class="language-r">    #'   If it is set to `reactive(NULL)` then counts based on filtered</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">299</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">                width = "100%"</pre>
+                      <pre class="language-r">    #'   dataset are not shown.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">300</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r">    #' @param slice (`teal_slice`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">301</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ),</pre>
+                      <pre class="language-r">    #'   specification of this filter state.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">302</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">            actionButton(</pre>
+                      <pre class="language-r">    #'   `teal_slice` is stored in the object and `set_state` directly manipulates values within `teal_slice`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">303</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">              class = "date_reset_button",</pre>
+                      <pre class="language-r">    #'   `get_state` returns `teal_slice` object which can be reused in other places.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">304</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">              inputId = ns("end_date_reset"),</pre>
+                      <pre class="language-r">    #'   Note that `teal_slice` is a `reactiveValues`, which means it has reference semantics, i.e.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">305</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">              label = NULL,</pre>
+                      <pre class="language-r">    #'   changes made to an object are automatically reflected in all places that refer to the same `teal_slice`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">306</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">              icon = icon("fas fa-undo")</pre>
+                      <pre class="language-r">    #' @param extract_type (`character`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">307</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">    #'   specifying whether condition calls should be prefixed by `dataname`. Possible values:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">308</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">    #' - `character(0)` (default) `varname` in the condition call will not be prefixed</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">309</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">54</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          private$keep_na_ui(ns("keep_na"))</pre>
+                      <pre class="language-r">    #' - `"list"` `varname` in the condition call will be returned as `&lt;dataname&gt;$&lt;varname&gt;`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">310</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    #' - `"matrix"` `varname` in the condition call will be returned as `&lt;dataname&gt;[, &lt;varname&gt;]`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">311</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">312</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">    #' @return Object of class `EmptyFilterState`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">313</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">314</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @description</pre>
+                      <pre class="language-r">    initialize = function(x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">315</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Server module</pre>
+                      <pre class="language-r">                          x_reactive = reactive(NULL),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">316</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @param id (`character(1)`) `shiny` module instance id.</pre>
+                      <pre class="language-r">                          extract_type = character(0),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">317</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @return `NULL`.</pre>
+                      <pre class="language-r">                          slice) {</pre>
+                    </td>
+                  </tr>
+                  <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">      isolate({</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">64</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        super$initialize(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">65</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          x = x,</pre>
+                    </td>
+                  </tr>
+                  <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">          x_reactive = x_reactive,</pre>
+                    </td>
+                  </tr>
+                  <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">          slice = slice,</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">          extract_type = extract_type</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">318</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server_inputs = function(id) {</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">319</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">70</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      moduleServer(</pre>
+                      <pre class="language-r">        private$set_choices(slice$choices)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">320</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">71</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = id,</pre>
+                      <pre class="language-r">        private$set_selected(slice$selected)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">321</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">      })</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">73</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">74</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        function(input, output, session) {</pre>
+                      <pre class="language-r">      invisible(self)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">322</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">          logger::log_trace("DateFilterState$server initializing, id: { private$get_id() }")</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">323</td>
+                    <td class="num">76</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="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # this observer is needed in the situation when teal_slice$selected has been</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">325</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # changed directly by the api - then it's needed to rerender UI element</pre>
+                      <pre class="language-r">    #' Returns reproducible condition call for current selection relevant for selected variable type.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">326</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # to show relevant values</pre>
+                      <pre class="language-r">    #' Uses internal reactive values, hence must be called in reactive or isolated context.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">327</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">80</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          private$observers$seletion_api &lt;- observeEvent(</pre>
+                      <pre class="language-r">    #' @param dataname name of data set; defaults to `private$get_dataname()`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">328</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">81</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ignoreNULL = TRUE, # dates needs to be selected</pre>
+                      <pre class="language-r">    #' @return `logical(1)`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">329</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">82</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ignoreInit = TRUE,</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">330</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">83</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            eventExpr = private$get_selected(),</pre>
+                      <pre class="language-r">    get_call = function(dataname) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">331</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">84</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            handlerExpr = {</pre>
+                      <pre class="language-r">      if (isFALSE(private$is_any_filtered())) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">332</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">85</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              if (!setequal(private$get_selected(), input$selection)) {</pre>
+                      <pre class="language-r">        return(NULL)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">333</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">                logger::log_trace("DateFilterState$server@1 state changed, id: { private$get_id() }")</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">334</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">87</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                updateDateRangeInput(</pre>
+                      <pre class="language-r">      if (missing(dataname)) dataname &lt;- private$get_dataname()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">335</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">88</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  session = session,</pre>
+                      <pre class="language-r">      filter_call &lt;- if (isTRUE(private$get_keep_na())) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">336</td>
+                    <td class="num">89</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  inputId = "selection",</pre>
+                      <pre class="language-r">        call("is.na", private$get_varname_prefixed(dataname))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">337</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">                  start = private$get_selected()[1],</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">338</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">91</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  end = private$get_selected()[2]</pre>
+                      <pre class="language-r">        substitute(!is.na(varname), list(varname = private$get_varname_prefixed(dataname)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">339</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">340</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              }</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">341</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">342</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">343</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">344</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          private$observers$selection &lt;- observeEvent(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">345</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            ignoreNULL = TRUE, # dates needs to be selected</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">346</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            ignoreInit = TRUE, # ignoreInit: should not matter because we set the UI with the desired initial state</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">347</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            eventExpr = input$selection,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">348</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            handlerExpr = {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">349</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              logger::log_trace("DateFilterState$server@2 selection changed, id: { private$get_id() }")</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">350</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              start_date &lt;- input$selection[1]</pre>
+                      <pre class="language-r">  # private members ----</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">351</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">97</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              end_date &lt;- input$selection[2]</pre>
+                      <pre class="language-r">  private = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">352</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    cache_state = function() {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">353</td>
+                    <td class="num">99</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              if (is.na(start_date) || is.na(end_date) || start_date &gt; end_date) {</pre>
+                      <pre class="language-r">      private$cache &lt;- private$get_state()</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">354</td>
+                    <td class="num">100</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                updateDateRangeInput(</pre>
+                      <pre class="language-r">      self$set_state(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">355</td>
+                    <td class="num">101</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  session = session,</pre>
+                      <pre class="language-r">        list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">356</td>
+                    <td class="num">102</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  inputId = "selection",</pre>
+                      <pre class="language-r">          keep_na = NULL</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">357</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">                  start = private$get_selected()[1],</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">358</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">                  end = private$get_selected()[2]</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">359</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="missed">
-                    <td class="num">360</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">106</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                showNotification(</pre>
+                      <pre class="language-r">    set_choices = function(choices) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">361</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">107</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  "Start date must not be greater than the end date. Setting back to previous value.",</pre>
+                      <pre class="language-r">      private$teal_slice$choices &lt;- choices</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">362</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">108</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  type = "warning"</pre>
+                      <pre class="language-r">      invisible(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">363</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                )</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">364</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">365</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="never">
-                    <td class="num">366</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">367</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">112</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              private$set_selected(c(start_date, end_date))</pre>
+                      <pre class="language-r">    # Reports whether the current state filters out any values.(?)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">368</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">    # @return `logical(1)`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">369</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">370</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    is_any_filtered = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">371</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"></pre>
+                      <pre class="language-r">      if (private$is_choice_limited) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">372</td>
+                    <td class="num">117</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          private$keep_na_srv("keep_na")</pre>
+                      <pre class="language-r">        TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">373</td>
+                    <td class="num">118</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">374</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">119</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          private$observers$reset1 &lt;- observeEvent(input$start_date_reset, {</pre>
+                      <pre class="language-r">        !isTRUE(private$get_keep_na())</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">375</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">            logger::log_trace("DateFilterState$server@3 reset start date, id: { private$get_id() }")</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">376</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">            updateDateRangeInput(</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">377</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">              session = session,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">378</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">              inputId = "selection",</pre>
+                      <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">379</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">124</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              start = private$get_choices()[1L]</pre>
+                      <pre class="language-r">    # UI Module for `EmptyFilterState`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">380</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">    # This UI element contains a checkbox input to filter or keep missing values.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">381</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          })</pre>
+                      <pre class="language-r">    # @param id (`character(1)`) `shiny` module instance id.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">382</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="missed">
-                    <td class="num">383</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">          private$observers$reset2 &lt;- observeEvent(input$end_date_reset, {</pre>
+                      <pre class="language-r">    ui_inputs = function(id) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">384</td>
+                    <td class="num">129</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            logger::log_trace("DateFilterState$server@4 reset end date, id: { private$get_id() }")</pre>
+                      <pre class="language-r">      ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">385</td>
+                    <td class="num">130</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            updateDateRangeInput(</pre>
+                      <pre class="language-r">      isolate({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">386</td>
+                    <td class="num">131</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              session = session,</pre>
+                      <pre class="language-r">        tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">387</td>
+                    <td class="num">132</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              inputId = "selection",</pre>
+                      <pre class="language-r">          tags$span("Variable contains missing values only"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">388</td>
+                    <td class="num">133</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              end = private$get_choices()[2L]</pre>
+                      <pre class="language-r">          private$keep_na_ui(ns("keep_na"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">389</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">390</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">391</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">392</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_trace("DateFilterState$server initialized, id: { private$get_id() }")</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">393</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">394</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">395</td>
+                    <td class="num">138</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">396</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">    # Controls state of the `keep_na` checkbox input.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">397</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server_inputs_fixed = function(id) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">398</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      moduleServer(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">399</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        id = id,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">400</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        function(input, output, session) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">401</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_trace("DateFilterState$server initializing, id: { private$get_id() }")</pre>
+                      <pre class="language-r">    #</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">402</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">403</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          output$selection &lt;- renderUI({</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">404</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            vals &lt;- format(private$get_selected(), nsmall = 3)</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">405</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">406</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              tags$div(icon("calendar-days"), vals[1]),</pre>
+                      <pre class="language-r">    # @param id (`character(1)`) `shiny` module instance id.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">407</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">142</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              tags$div(span(" - "), icon("calendar-days"), vals[2])</pre>
+                      <pre class="language-r">    #</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">408</td>
+                    <td class="num">143</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">409</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">410</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    server_inputs = function(id) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">411</td>
+                    <td class="num">146</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          logger::log_trace("DateFilterState$server initialized, id: { private$get_id() }")</pre>
+                      <pre class="language-r">      moduleServer(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">412</td>
+                    <td class="num">147</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          NULL</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">413</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">414</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">415</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">        id = id,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">416</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">        function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">417</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">149</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @description</pre>
+                      <pre class="language-r">          private$keep_na_srv("keep_na")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">418</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Server module to display filter summary</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">419</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #  renders text describing selected date range and</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">420</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #  if NA are included also</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">421</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    content_summary = function(id) {</pre>
+                      <pre class="language-r">    server_inputs_fixed = function(id) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">422</td>
+                    <td class="num">154</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      selected &lt;- as.character(private$get_selected())</pre>
+                      <pre class="language-r">      moduleServer(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">423</td>
+                    <td class="num">155</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      min &lt;- selected[1]</pre>
+                      <pre class="language-r">        id = id,</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">424</td>
+                    <td class="num">156</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      max &lt;- selected[2]</pre>
+                      <pre class="language-r">        function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">425</td>
+                    <td class="num">157</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tagList(</pre>
+                      <pre class="language-r">          output$selection &lt;- renderUI({</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">426</td>
+                    <td class="num">158</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$span(</pre>
+                      <pre class="language-r">            tags$span("Variable contains missing values only")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">427</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">159</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          class = "filter-card-summary-value",</pre>
+                      <pre class="language-r">          })</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">428</td>
+                    <td class="num">160</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          HTML(min, "&amp;ndash;", max)</pre>
+                      <pre class="language-r">          NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">429</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="missed">
-                    <td class="num">430</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">162</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tags$span(</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">431</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">163</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          class = "filter-card-summary-controls",</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">432</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">164</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (private$na_count &gt; 0) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">433</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">165</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            tags$span("NA", if (isTRUE(private$get_keep_na())) icon("check") else icon("xmark"))</pre>
+                      <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">434</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">    # Server module to display filter summary</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">435</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    # Doesn't render anything</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">436</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    content_summary = function(id) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">169</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      tags$span("All empty")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">437</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">438</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">439</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">)</pre>
@@ -59214,14 +58807,14 @@ <h2>teal.slice coverage - 65.89%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/FilterPanelAPI.R" class="hidden">
+            <div id="R/FilterStateExpr.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"># FilterPanelAPI ------</pre>
+                      <pre class="language-r"># FilterStateExpr ------</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -59235,7 +58828,7 @@ <h2>teal.slice coverage - 65.89%</h2>
                     <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name FilterPanelAPI</pre>
+                      <pre class="language-r">#' @name FilterStateExpr</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -59256,7 +58849,7 @@ <h2>teal.slice coverage - 65.89%</h2>
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @title Class to encapsulate the API of the filter panel of a teal app</pre>
+                      <pre class="language-r">#' @title `FilterStateExpr` `R6` class</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -59270,1825 +58863,1889 @@ <h2>teal.slice coverage - 65.89%</h2>
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description</pre>
+                      <pre class="language-r">#' @description Sister class to `FilterState` that handles arbitrary filter expressions.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' An API class for managing filter states in a teal application's filter panel.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</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">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details</pre>
+                      <pre class="language-r">#' Creates a filter state around a predefined condition call (logical predicate).</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The purpose of this class is to encapsulate the API of the filter panel in a</pre>
+                      <pre class="language-r">#' The condition call is independent of the data</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' new class `FilterPanelAPI` so that it can be passed and used in the server</pre>
+                      <pre class="language-r">#' and the filter card allows no interaction (the filter is always fixed).</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' call of any module instead of passing the whole `FilteredData` object.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This class is supported by methods to set, get, remove filter states in the</pre>
+                      <pre class="language-r">#' # use non-exported function from teal.slice</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' filter panel API.</pre>
+                      <pre class="language-r">#' include_js_files &lt;- getFromNamespace("include_js_files", "teal.slice")</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">#' include_css_files &lt;- getFromNamespace("include_css_files", "teal.slice")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' FilterStateExpr &lt;- getFromNamespace("FilterStateExpr", "teal.slice")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(shiny)</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">#'</pre>
+                      <pre class="language-r">#' filter_state &lt;- FilterStateExpr$new(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' fd &lt;- init_filtered_data(list(iris = iris))</pre>
+                      <pre class="language-r">#'   slice = teal_slice(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' fpa &lt;- FilterPanelAPI$new(fd)</pre>
+                      <pre class="language-r">#'     dataname = "x",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     id = "FA",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # get the actual filter state --&gt; empty named list</pre>
+                      <pre class="language-r">#'     title = "Adult females",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' isolate(fpa$get_filter_state())</pre>
+                      <pre class="language-r">#'     expr = "sex == 'F' &amp; age &gt;= 18"</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">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # set a filter state</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' set_filter_state(</pre>
+                      <pre class="language-r">#' filter_state$get_call()</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   fpa,</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">#'   teal_slices(</pre>
+                      <pre class="language-r">#' # working filter in an app</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     teal_slice(dataname = "iris", varname = "Species", selected = "setosa", keep_na = TRUE)</pre>
+                      <pre class="language-r">#' library(shiny)</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">#' library(shinyjs)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">34</td>
                     <td class="coverage"></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="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">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # get the actual filter state --&gt; named list with filters</pre>
+                      <pre class="language-r">#'   useShinyjs(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' isolate(fpa$get_filter_state())</pre>
+                      <pre class="language-r">#'   include_css_files(pattern = "filter-panel"),</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">#'   include_js_files(pattern = "count-bar-labels"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # remove all_filter_states</pre>
+                      <pre class="language-r">#'   column(4, tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' fpa$clear_filter_states()</pre>
+                      <pre class="language-r">#'     tags$h4("ChoicesFilterState"),</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">#'     filter_state$ui("fs")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # get the actual filter state --&gt; empty named list</pre>
+                      <pre class="language-r">#'   )),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' isolate(fpa$get_filter_state())</pre>
+                      <pre class="language-r">#'   column(8, tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     tags$h4("Condition (i.e. call)"), # display the condition call generated by this FilterState</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'     textOutput("condition_choices"), tags$br(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     tags$h4("Unformatted state"), # display raw filter state</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">FilterPanelAPI &lt;- R6::R6Class( # nolint</pre>
+                      <pre class="language-r">#'     textOutput("unformatted_choices"), tags$br(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  "FilterPanelAPI",</pre>
+                      <pre class="language-r">#'     tags$h4("Formatted state"), # display human readable filter state</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # public methods ----</pre>
+                      <pre class="language-r">#'     textOutput("formatted_choices"), tags$br()</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  public = list(</pre>
+                      <pre class="language-r">#'   ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">51</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">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Initialize a `FilterPanelAPI` object.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param datasets (`FilteredData`)</pre>
+                      <pre class="language-r">#' server &lt;- function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#'   filter_state$server("fs")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    initialize = function(datasets) {</pre>
+                      <pre class="language-r">#'   output$condition_choices &lt;- renderPrint(filter_state$get_call())</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">56</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_class(datasets, "FilteredData")</pre>
+                      <pre class="language-r">#'   output$formatted_choices &lt;- renderText(filter_state$format())</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">57</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$filtered_data &lt;- datasets</pre>
+                      <pre class="language-r">#'   output$unformatted_choices &lt;- renderPrint(filter_state$get_state())</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>
+                      <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"></pre>
+                      <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">    #' @description</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Gets the reactive values from the active `FilterState` objects of the `FilteredData` object.</pre>
+                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Gets all active filters in the form of a nested list.</pre>
+                      <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">    #' The output list is a compatible input to `set_filter_state`.</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `list` with named elements corresponding to `FilteredDataset` objects with active filters.</pre>
+                      <pre class="language-r">FilterStateExpr &lt;- R6::R6Class( # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">  classname = "FilterStateExpr",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_filter_state = function() {</pre>
+                      <pre class="language-r">  # public methods ----</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">69</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$filtered_data$get_filter_state()</pre>
+                      <pre class="language-r">  public = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">70</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">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' Initialize a `FilterStateExpr` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">    #' @param slice (`teal_slice_expr`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Sets active filter states.</pre>
+                      <pre class="language-r">    #' @return Object of class `FilterStateExpr`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param filter (`teal_slices`)</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">    initialize = function(slice) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">76</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `NULL`, invisibly.</pre>
+                      <pre class="language-r">      checkmate::assert_class(slice, "teal_slice_expr")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">77</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">      private$teal_slice &lt;- slice</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">78</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set_filter_state = function(filter) {</pre>
+                      <pre class="language-r">      invisible(self)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">79</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$filtered_data$set_filter_state(filter)</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">80</td>
-                    <td class="coverage">5<em>x</em></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">81</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">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' Returns a formatted string representing this `FilterStateExpr` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">83</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">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Remove one or more `FilterState` of a `FilteredDataset` in the `FilteredData` object.</pre>
+                      <pre class="language-r">    #' @param show_all (`logical(1)`) passed to `format.teal_slice`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">    #' @param trim_lines (`logical(1)`) passed to `format.teal_slice`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param filter (`teal_slices`)</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   specifying `FilterState` objects to remove;</pre>
+                      <pre class="language-r">    #' @return `character(1)` the formatted string</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   `teal_slice`s may contain only `dataname` and `varname`, other elements are ignored</pre>
+                      <pre class="language-r">    #'</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">    format = function(show_all = FALSE, trim_lines = TRUE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">90</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      sprintf(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">91</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        "%s:\n%s",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">92</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        class(self)[1],</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">93</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        format(self$get_state(), show_all = show_all, trim_lines = trim_lines)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <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">95</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="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">97</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    #' @description</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">98</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    #' Prints this `FilterStateExpr` object.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">99</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    #' @param ... arguments passed to the `format` method</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    #' @return `NULL`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</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">92</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    remove_filter_state = function(filter) {</pre>
+                      <pre class="language-r">    print = function(...) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">93</td>
+                    <td class="num">103</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$filtered_data$remove_filter_state(filter)</pre>
+                      <pre class="language-r">      cat(isolate(self$format(...)))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <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">105</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">106</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    #' @description</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">107</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    #' Returns a complete description of this filter state.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">108</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    #'</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">109</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    #' @return A `teal_slice` object.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">110</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <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">    get_state = function() {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">94</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">112</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(NULL)</pre>
+                      <pre class="language-r">      private$teal_slice</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <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">96</td>
+                    <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">97</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Remove all `FilterStates` of the `FilteredData` object.</pre>
+                      <pre class="language-r">    #' Does nothing. Exists for compatibility.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    #' @param datanames (`character`)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">101</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    #'  `datanames` to remove their `FilterStates`;</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'  omit to remove all `FilterStates` in the `FilteredData` object</pre>
+                      <pre class="language-r">    #' @param state (`teal_slice`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `NULL`, invisibly.</pre>
+                      <pre class="language-r">    #' @return `self`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</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">106</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    clear_filter_states = function(datanames) {</pre>
+                      <pre class="language-r">    set_state = function(state) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">107</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">123</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      datanames_to_remove &lt;- if (missing(datanames)) private$filtered_data$datanames() else datanames</pre>
+                      <pre class="language-r">      checkmate::assert_class(state, "teal_slice_expr")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">108</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">124</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$filtered_data$clear_filter_states(datanames = datanames_to_remove)</pre>
+                      <pre class="language-r">      invisible(self)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">109</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">125</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">110</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">127</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">112</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # private methods ----</pre>
+                      <pre class="language-r">    #' Get reproducible call.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">129</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">114</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    filtered_data = NULL</pre>
+                      <pre class="language-r">    #' @param dataname (`ignored`) for a consistency with `FilterState`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</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">116</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">    #' Returns reproducible condition call for current selection relevant</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/FilteredDataset-utils.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Initialize `FilteredDataset`</pre>
+                      <pre class="language-r">    #' for selected variable type.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' Method is using internal reactive values which makes it reactive</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Initializes a `FilteredDataset` object corresponding to the class of the filtered dataset.</pre>
+                      <pre class="language-r">    #' and must be executed in reactive or isolated context.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <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">
-                    <td class="num">5</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param dataset any object</pre>
+                      <pre class="language-r">    #' @return `call` or `NULL`</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">#' @param dataname (`character(1)`)</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">#'   syntactically valid name given to the dataset.</pre>
+                      <pre class="language-r">    get_call = function(dataname) {</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">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param keys (`character`) optional</pre>
+                      <pre class="language-r">      isolate(str2lang(private$teal_slice$expr))</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">#'   vector of primary key column names.</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">#' @param parent_name (`character(1)`)</pre>
+                      <pre class="language-r"></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">#'   name of the parent dataset.</pre>
+                      <pre class="language-r">    #' @description</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">#' @param parent (`reactive`)</pre>
+                      <pre class="language-r">    #' Destroy observers stored in `private$observers`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   that returns a filtered `data.frame` from other `FilteredDataset` named `parent_name`.</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Passing `parent` results in a `reactive` link that causes re-filtering of this `dataset`</pre>
+                      <pre class="language-r">    #' @return `NULL`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   based on the changes in `parent`.</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param join_keys (`character`)</pre>
+                      <pre class="language-r">    destroy_observers = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">149</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   vector of names of columns in this dataset to join with `parent` dataset.</pre>
+                      <pre class="language-r">      lapply(private$observers, function(x) x$destroy())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   If column names in the parent do not match these, they should be given as the names of this vector.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">151</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param label (`character(1)`)</pre>
+                      <pre class="language-r">      if (!is.null(private$destroy_shiny)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">152</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   label to describe the dataset.</pre>
+                      <pre class="language-r">        private$destroy_shiny()</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="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">154</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Object of class `FilteredDataset`.</pre>
+                      <pre class="language-r">      invisible(NULL)</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">#'</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">#' @section Warning:</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">#' This function is exported to allow other packages to extend `teal.slice` but it is treated as internal.</pre>
+                      <pre class="language-r">    # public shiny modules ----</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">#' Breaking changes may occur without warning.</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">#' We recommend consulting the package maintainer before using it.</pre>
+                      <pre class="language-r">    #' @description</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>
+                      <pre class="language-r">    #' `shiny` module server.</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">#' @examples</pre>
+                      <pre class="language-r">    #'</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">#' # DataframeFilteredDataset example</pre>
+                      <pre class="language-r">    #' @param id (`character(1)`)</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">#' library(shiny)</pre>
+                      <pre class="language-r">    #'   `shiny` module instance id.</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">#'</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">#' iris_fd &lt;- init_filtered_dataset(iris, dataname = "iris")</pre>
+                      <pre class="language-r">    #' @return Reactive expression signaling that the remove button has been clicked.</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">#' ui &lt;- fluidPage(</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">#'   iris_fd$ui_add(id = "add"),</pre>
+                      <pre class="language-r">    server = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</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">#'   iris_fd$ui_active("dataset"),</pre>
+                      <pre class="language-r">      moduleServer(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</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">#'   verbatimTextOutput("call")</pre>
+                      <pre class="language-r">        id = id,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</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">#' )</pre>
+                      <pre class="language-r">        function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">39</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <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">          private$server_summary("summary")</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">#'   iris_fd$srv_add(id = "add")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">41</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">173</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   iris_fd$srv_active(id = "dataset")</pre>
+                      <pre class="language-r">          private$destroy_shiny &lt;- function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">42</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">174</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            logger::log_trace("Destroying FilterStateExpr inputs; id: { private$get_id() }")</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">#'   output$call &lt;- renderText({</pre>
+                      <pre class="language-r">            # remove values from the input list</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">176</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     paste(</pre>
+                      <pre class="language-r">            lapply(session$ns(names(input)), .subset2(input, "impl")$.values$remove)</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">#'       vapply(iris_fd$get_call(), deparse1, character(1), collapse = "\n"),</pre>
+                      <pre class="language-r">          }</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">#'       collapse = "\n"</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">47</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">          reactive(input$remove) # back to parent to remove self</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">#'   })</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">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">182</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">51</td>
+                    <td class="num">183</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">52</td>
+                    <td class="num">184</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">53</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' `shiny` module UI.</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">#' @examples</pre>
+                      <pre class="language-r">    #'  The UI for this class contains simple message stating that it is not supported.</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">#' \donttest{</pre>
+                      <pre class="language-r">    #' @param id (`character(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (requireNamespace("MultiAssayExperiment", quietly = TRUE)) {</pre>
+                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   # MAEFilteredDataset example</pre>
+                      <pre class="language-r">    #' @param parent_id (`character(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   library(shiny)</pre>
+                      <pre class="language-r">    #'   id of the `FilterStates` card container.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    ui = function(id, parent_id = "cards") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">60</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">192</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data(miniACC, package = "MultiAssayExperiment")</pre>
+                      <pre class="language-r">      ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">61</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">193</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      isolate({</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">62</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">194</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   MAE_fd &lt;- init_filtered_dataset(miniACC, "MAE")</pre>
+                      <pre class="language-r">        tags$div(</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">#'   ui &lt;- fluidPage(</pre>
+                      <pre class="language-r">          id = id,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">64</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">196</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     MAE_fd$ui_add(id = "add"),</pre>
+                      <pre class="language-r">          class = "panel filter-card",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">65</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">197</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     MAE_fd$ui_active("dataset"),</pre>
+                      <pre class="language-r">          include_js_files("count-bar-labels.js"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">66</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">198</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     verbatimTextOutput("call")</pre>
+                      <pre class="language-r">          tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">67</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">199</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">            class = "filter-card-header",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">68</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">#'   server &lt;- function(input, output, session) {</pre>
+                      <pre class="language-r">            tags$div(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">201</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              class = "filter-card-title",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">202</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              if (private$is_anchored()) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">203</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                icon("anchor-lock", class = "filter-card-icon")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">204</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     MAE_fd$srv_add(id = "add")</pre>
+                      <pre class="language-r">              } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">205</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                icon("lock", class = "filter-card-icon")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     MAE_fd$srv_active(id = "dataset")</pre>
+                      <pre class="language-r">              },</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">207</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              tags$div(class = "filter-card-varname", tags$strong(private$teal_slice$id)),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">208</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              tags$div(class = "filter-card-varlabel", private$teal_slice$title),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">209</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">              tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">71</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">210</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     output$call &lt;- renderText({</pre>
+                      <pre class="language-r">                class = "filter-card-controls",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">72</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">211</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       paste(</pre>
+                      <pre class="language-r">                if (isFALSE(private$is_anchored())) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">73</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">212</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         vapply(MAE_fd$get_call(), deparse1, character(1), collapse = "\n"),</pre>
+                      <pre class="language-r">                  actionLink(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">74</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">213</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         collapse = "\n"</pre>
+                      <pre class="language-r">                    inputId = ns("remove"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">75</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">214</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       )</pre>
+                      <pre class="language-r">                    label = icon("circle-xmark", lib = "font-awesome"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">76</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">215</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     })</pre>
+                      <pre class="language-r">                    title = "Remove filter",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">77</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">216</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   }</pre>
+                      <pre class="language-r">                    class = "filter-card-remove"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">217</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">79</td>
+                    <td class="num">218</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">80</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">81</td>
+                    <td class="num">220</td>
                     <td class="coverage"></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="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">            tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">83</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">222</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">              class = "filter-card-summary",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">84</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">#' @export</pre>
+                      <pre class="language-r">              private$ui_summary(ns("summary"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">224</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">init_filtered_dataset &lt;- function(dataset,</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">225</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  dataname,</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">226</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  keys = character(0),</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">227</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  parent_name = character(0),</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">228</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  parent = reactive(dataset),</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">229</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  join_keys = character(0),</pre>
+                      <pre class="language-r">  ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">230</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  label = attr(dataset, "label", exact = TRUE)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">92</td>
-                    <td class="coverage">107<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  UseMethod("init_filtered_dataset")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  # private members ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</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">95</td>
+                    <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">  private = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">234</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    observers = NULL, # stores observers</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">init_filtered_dataset.data.frame &lt;- function(dataset,</pre>
+                      <pre class="language-r">    teal_slice = NULL, # stores reactiveValues</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                             dataname,</pre>
+                      <pre class="language-r">    destroy_shiny = NULL, # function is set in server</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">237</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                             keys = character(0),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">238</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                             parent_name = character(0),</pre>
+                      <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">239</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                             parent = NULL,</pre>
+                      <pre class="language-r">    # Get id of the teal_slice.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                             join_keys = character(0),</pre>
+                      <pre class="language-r">    # @return `character(1)`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">241</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                             label = attr(dataset, "label", exact = TRUE)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">104</td>
-                    <td class="coverage">83<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  DataframeFilteredDataset$new(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">105</td>
-                    <td class="coverage">83<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    dataset = dataset,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">106</td>
-                    <td class="coverage">83<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    dataname = dataname,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">107</td>
-                    <td class="coverage">83<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    keys = keys,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">108</td>
-                    <td class="coverage">83<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    parent_name = parent_name,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">109</td>
-                    <td class="coverage">83<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    parent = parent,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">110</td>
-                    <td class="coverage">83<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    join_keys = join_keys,</pre>
+                      <pre class="language-r">    get_id = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">111</td>
-                    <td class="coverage">83<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">    label = label</pre>
+                      <pre class="language-r">      isolate(private$teal_slice$id)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">243</td>
                     <td class="coverage"></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">244</td>
                     <td class="coverage"></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">245</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # Check whether this filter is anchored (cannot be removed).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">246</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">    # @return `logical(1)`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">247</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    is_anchored = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">117</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">init_filtered_dataset.MultiAssayExperiment &lt;- function(dataset,</pre>
+                      <pre class="language-r">      isolate(isTRUE(private$teal_slice$anchored))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                       dataname,</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">250</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                       keys = character(0),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">251</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                       parent_name, # ignored</pre>
+                      <pre class="language-r">    # @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">252</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                       parent, # ignored</pre>
+                      <pre class="language-r">    # Server module to display filter summary</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">253</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                       join_keys, # ignored</pre>
+                      <pre class="language-r">    # @param id `shiny` id parameter</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                       label = attr(dataset, "label", exact = TRUE)) {</pre>
+                      <pre class="language-r">    ui_summary = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">124</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">255</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!requireNamespace("MultiAssayExperiment", quietly = TRUE)) {</pre>
+                      <pre class="language-r">      ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">125</td>
+                    <td class="num">256</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("Cannot load MultiAssayExperiment - please install the package or restart your session.")</pre>
+                      <pre class="language-r">      uiOutput(ns("summary"), class = "filter-card-summary")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</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">127</td>
-                    <td class="coverage">7<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  MAEFilteredDataset$new(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">128</td>
-                    <td class="coverage">7<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    dataset = dataset,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">129</td>
-                    <td class="coverage">7<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    dataname = dataname,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">130</td>
-                    <td class="coverage">7<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    keys = keys,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">131</td>
-                    <td class="coverage">7<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    label = label</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</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="never">
-                    <td class="num">133</td>
+                    <td class="num">259</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">134</td>
+                    <td class="num">260</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # UI module to display filter summary</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">261</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">    # @param shiny `id` parameter passed to moduleServer</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">262</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    #  renders text describing current state</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">263</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">init_filtered_dataset.default &lt;- function(dataset,</pre>
+                      <pre class="language-r">    server_summary = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">138</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">264</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          dataname,</pre>
+                      <pre class="language-r">      moduleServer(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">139</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">                                          keys, # ignored</pre>
+                      <pre class="language-r">        id = id,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">140</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">                                          parent_name, # ignored</pre>
+                      <pre class="language-r">        function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">141</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">                                          parent, # ignored</pre>
+                      <pre class="language-r">          output$summary &lt;- renderUI(private$content_summary())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">268</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          join_keys, # ignored</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">269</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          label = attr(dataset, "label", exact = TRUE)) {</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">144</td>
-                    <td class="coverage">17<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">270</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  DefaultFilteredDataset$new(</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">145</td>
-                    <td class="coverage">17<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">271</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataset = dataset,</pre>
+                      <pre class="language-r">    content_summary = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">146</td>
-                    <td class="coverage">17<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">272</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dataname = dataname,</pre>
+                      <pre class="language-r">      isolate(private$teal_slice$expr)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">147</td>
-                    <td class="coverage">17<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">273</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label = label</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">274</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</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>
                 </tbody>
               </table>
             </div>
-            <div id="R/FilterStateExpr.R" class="hidden">
+            <div id="R/FilteredDatasetDefault.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"># FilterStateExpr ------</pre>
+                      <pre class="language-r"># DefaultFilteredDataset ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -61102,7 +60759,7 @@ <h2>teal.slice coverage - 65.89%</h2>
                     <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name FilterStateExpr</pre>
+                      <pre class="language-r">#' @name DefaultFilteredDataset</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -61116,63 +60773,63 @@ <h2>teal.slice coverage - 65.89%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @title `DefaultFilteredDataset` `R6` class</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @title `FilterStateExpr` `R6` class</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @description Stores any object as inert entity. Filtering is not supported.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description Sister class to `FilterState` that handles arbitrary filter expressions.</pre>
+                      <pre class="language-r">#'</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">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details</pre>
+                      <pre class="language-r">#' # use non-exported function from teal.slice</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Creates a filter state around a predefined condition call (logical predicate).</pre>
+                      <pre class="language-r">#' DefaultFilteredDataset &lt;- getFromNamespace("DefaultFilteredDataset", "teal.slice")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The condition call is independent of the data</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' and the filter card allows no interaction (the filter is always fixed).</pre>
+                      <pre class="language-r">#' library(shiny)</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -61186,35 +60843,35 @@ <h2>teal.slice coverage - 65.89%</h2>
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' ds &lt;- DefaultFilteredDataset$new(letters, "letters")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # use non-exported function from teal.slice</pre>
+                      <pre class="language-r">#' isolate(ds$get_filter_state())</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' include_js_files &lt;- getFromNamespace("include_js_files", "teal.slice")</pre>
+                      <pre class="language-r">#' isolate(ds$get_call())</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' include_css_files &lt;- getFromNamespace("include_css_files", "teal.slice")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' FilterStateExpr &lt;- getFromNamespace("FilterStateExpr", "teal.slice")</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -61228,2438 +60885,2585 @@ <h2>teal.slice coverage - 65.89%</h2>
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' filter_state &lt;- FilterStateExpr$new(</pre>
+                      <pre class="language-r">DefaultFilteredDataset &lt;- R6::R6Class( # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   slice = teal_slice(</pre>
+                      <pre class="language-r">  classname = "DefaultFilteredDataset",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     dataname = "x",</pre>
+                      <pre class="language-r">  inherit = FilteredDataset,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     id = "FA",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     title = "Adult females",</pre>
+                      <pre class="language-r">  # public methods ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     expr = "sex == 'F' &amp; age &gt;= 18"</pre>
+                      <pre class="language-r">  public = list(</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"></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">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' filter_state$get_call()</pre>
+                      <pre class="language-r">    #' Initializes this `DefaultFilteredDataset` object.</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">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # working filter in an app</pre>
+                      <pre class="language-r">    #' @param dataset</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(shiny)</pre>
+                      <pre class="language-r">    #'  any type of object; will not be filtered.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(shinyjs)</pre>
+                      <pre class="language-r">    #' @param dataname (`character(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #'  syntactically valid name given to the dataset.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
+                      <pre class="language-r">    #' @param label (`character(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   useShinyjs(),</pre>
+                      <pre class="language-r">    #'   label to describe the dataset.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   include_css_files(pattern = "filter-panel"),</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   include_js_files(pattern = "count-bar-labels"),</pre>
+                      <pre class="language-r">    #' @return Object of class `DefaultFilteredDataset`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   column(4, tags$div(</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">#'     tags$h4("ChoicesFilterState"),</pre>
+                      <pre class="language-r">    initialize = function(dataset, dataname, label = character(0)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">41</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     filter_state$ui("fs")</pre>
+                      <pre class="language-r">      super$initialize(dataset = dataset, dataname = dataname, label = label)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   column(8, tags$div(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tags$h4("Condition (i.e. call)"), # display the condition call generated by this FilterState</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     textOutput("condition_choices"), tags$br(),</pre>
+                      <pre class="language-r">    #' Returns a formatted string representing this `DefaultFilteredDataset` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tags$h4("Unformatted state"), # display raw filter state</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     textOutput("unformatted_choices"), tags$br(),</pre>
+                      <pre class="language-r">    #' @param show_all (`logical(1)`) for method consistency, ignored.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tags$h4("Formatted state"), # display human readable filter state</pre>
+                      <pre class="language-r">    #' @param trim_lines (`logical(1)`) flag specifying whether to trim lines if class names are too long.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     textOutput("formatted_choices"), tags$br()</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">    #' @return The formatted string.</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">    #'</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">    format = function(show_all, trim_lines = FALSE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">53</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' server &lt;- function(input, output, session) {</pre>
+                      <pre class="language-r">      class_string &lt;- toString(class(private$dataset))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">54</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter_state$server("fs")</pre>
+                      <pre class="language-r">      if (trim_lines) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">55</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   output$condition_choices &lt;- renderPrint(filter_state$get_call())</pre>
+                      <pre class="language-r">        trim_position &lt;- 37L</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">56</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   output$formatted_choices &lt;- renderText(filter_state$format())</pre>
+                      <pre class="language-r">        class_string &lt;- strtrim(class_string, trim_position)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">57</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   output$unformatted_choices &lt;- renderPrint(filter_state$get_state())</pre>
+                      <pre class="language-r">        substr(class_string, 35L, 37L) &lt;- "..."</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>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">59</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">      sprintf(" - unfiltered dataset:\t\"%s\":   %s", private$dataname, class_string)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">60</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">61</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">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">    #' @param sid (`character(1)`) for method consistency, ignored.</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>
+                      <pre class="language-r">    #' @return `NULL`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">    get_call = function(sid) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">65</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      invisible(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">FilterStateExpr &lt;- R6::R6Class( # nolint</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  classname = "FilterStateExpr",</pre>
+                      <pre class="language-r">    #' @return `NULL`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # public methods ----</pre>
+                      <pre class="language-r">    get_filter_state = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">69</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  public = list(</pre>
+                      <pre class="language-r">      invisible(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">70</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">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Initialize a `FilterStateExpr` object.</pre>
+                      <pre class="language-r">    #' @param state (`teal_slices`) for method consistency, ignored.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param slice (`teal_slice_expr`)</pre>
+                      <pre class="language-r">    #' @return `NULL`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return Object of class `FilterStateExpr`, invisibly.</pre>
+                      <pre class="language-r">    set_filter_state = function(state) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">74</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">      if (length(state) != 0L) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">75</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    initialize = function(slice) {</pre>
+                      <pre class="language-r">        warning("DefaultFilterState cannot set state")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">76</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_class(slice, "teal_slice_expr")</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">77</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$teal_slice &lt;- slice</pre>
+                      <pre class="language-r">      invisible(NULL)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">78</td>
-                    <td class="coverage">14<em>x</em></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">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">    #' @param force (`logical(1)`) for method consistency, ignored.</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">    #' @return `NULL`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">    clear_filter_states = function(force) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">82</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Returns a formatted string representing this `FilterStateExpr` object.</pre>
+                      <pre class="language-r">      invisible(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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>
                   <tr class="never">
                     <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param show_all (`logical(1)`) passed to `format.teal_slice`</pre>
+                      <pre class="language-r"></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 trim_lines (`logical(1)`) passed to `format.teal_slice`</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">    #' Creates row for filter overview in the form of \cr</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `character(1)` the formatted string</pre>
+                      <pre class="language-r">    #' `dataname` - unsupported data class</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">    #' @return A `data.frame`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    format = function(show_all = FALSE, trim_lines = TRUE) {</pre>
+                      <pre class="language-r">    get_filter_overview = function() {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">90</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sprintf(</pre>
+                      <pre class="language-r">      data.frame(dataname = private$dataname, obs = NA, obs_filtered = NA)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">91</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "%s:\n%s",</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">92</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        class(self)[1],</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">93</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        format(self$get_state(), show_all = show_all, trim_lines = trim_lines)</pre>
+                      <pre class="language-r">    # shiny modules ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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">95</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">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' Overwrites parent method.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">    #' @details</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Prints this `FilterStateExpr` object.</pre>
+                      <pre class="language-r">    #' Blank UI module that would list active filter states for this dataset.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param ... arguments passed to the `format` method</pre>
+                      <pre class="language-r">    #' @param id (`character(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `NULL`, invisibly.</pre>
+                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">    #' @return An empty `div`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    print = function(...) {</pre>
+                      <pre class="language-r">    ui_active = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">103</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      cat(isolate(self$format(...)))</pre>
+                      <pre class="language-r">      ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">104</td>
-                    <td class="coverage"></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">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">106</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">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Returns a complete description of this filter state.</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">    #' Overwrites parent method.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return A `teal_slice` object.</pre>
+                      <pre class="language-r">    #' @details</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">    #' Blank UI module that would list active filter states for this dataset.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_state = function() {</pre>
+                      <pre class="language-r">    #' @param id (`character(1)`)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">112</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$teal_slice</pre>
+                      <pre class="language-r">    #'   `shiny` module instance id.</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>
+                      <pre class="language-r">    #' @return An empty `div`.</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>
+                      <pre class="language-r">    ui_add = function(id) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">115</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">      ns &lt;- NS(id)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">116</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Does nothing. Exists for compatibility.</pre>
+                      <pre class="language-r">      tags$div()</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param state (`teal_slice`)</pre>
+                      <pre class="language-r">  ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">  private = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `self`, invisibly.</pre>
+                      <pre class="language-r">    # private methods ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">    # private fields ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set_state = function(state) {</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">123</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_class(state, "teal_slice_expr")</pre>
+                      <pre class="language-r">)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">124</td>
-                    <td class="coverage">1<em>x</em></td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/FilterPanelAPI.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">      invisible(self)</pre>
+                      <pre class="language-r"># FilterPanelAPI ------</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</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">126</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @name FilterPanelAPI</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">#' @docType class</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Get reproducible call.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' @title Class to encapsulate the API of the filter panel of a teal app</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param dataname (`ignored`) for a consistency with `FilterState`</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">8</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">132</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Returns reproducible condition call for current selection relevant</pre>
+                      <pre class="language-r">#' An API class for managing filter states in a teal application's filter panel.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' for selected variable type.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Method is using internal reactive values which makes it reactive</pre>
+                      <pre class="language-r">#' @details</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' and must be executed in reactive or isolated context.</pre>
+                      <pre class="language-r">#' The purpose of this class is to encapsulate the API of the filter panel in a</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' new class `FilterPanelAPI` so that it can be passed and used in the server</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `call` or `NULL`</pre>
+                      <pre class="language-r">#' call of any module instead of passing the whole `FilteredData` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</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">139</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_call = function(dataname) {</pre>
+                      <pre class="language-r">#' This class is supported by methods to set, get, remove filter states in the</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">17</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      isolate(str2lang(private$teal_slice$expr))</pre>
+                      <pre class="language-r">#' filter panel API.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">18</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">19</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @examples</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">20</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' library(shiny)</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>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">22</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' fd &lt;- init_filtered_data(list(iris = iris))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">23</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' fpa &lt;- FilterPanelAPI$new(fd)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <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">25</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' # get the actual filter state --&gt; empty named list</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">26</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' isolate(fpa$get_filter_state())</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>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">28</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' # set a filter state</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">29</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' set_filter_state(</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">30</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   fpa,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">31</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   teal_slices(</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">32</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'     teal_slice(dataname = "iris", varname = "Species", selected = "setosa", keep_na = TRUE)</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>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">34</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' )</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>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">36</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' # get the actual filter state --&gt; named list with filters</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">37</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' isolate(fpa$get_filter_state())</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>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">39</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' # remove all_filter_states</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">40</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' fpa$clear_filter_states()</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>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#' # get the actual filter state --&gt; empty named list</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' isolate(fpa$get_filter_state())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">44</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">144</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Destroy observers stored in `private$observers`.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</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">146</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `NULL`, invisibly.</pre>
+                      <pre class="language-r">FilterPanelAPI &lt;- R6::R6Class( # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">  "FilterPanelAPI",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    destroy_observers = function() {</pre>
+                      <pre class="language-r">  # public methods ----</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">149</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">      lapply(private$observers, function(x) x$destroy())</pre>
+                      <pre class="language-r">  public = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</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</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">151</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">52</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!is.null(private$destroy_shiny)) {</pre>
+                      <pre class="language-r">    #' Initialize a `FilterPanelAPI` object.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">152</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">53</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$destroy_shiny()</pre>
+                      <pre class="language-r">    #' @param datasets (`FilteredData`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</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="missed">
-                    <td class="num">154</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">55</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(NULL)</pre>
+                      <pre class="language-r">    initialize = function(datasets) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">155</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">56</td>
+                    <td class="coverage">8<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="never">
-                    <td class="num">156</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">57</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      private$filtered_data &lt;- datasets</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # public shiny modules ----</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <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">159</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' `shiny` module server.</pre>
+                      <pre class="language-r">    #' Gets the reactive values from the active `FilterState` objects of the `FilteredData` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param id (`character(1)`)</pre>
+                      <pre class="language-r">    #' Gets all active filters in the form of a nested list.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
+                      <pre class="language-r">    #' The output list is a compatible input to `set_filter_state`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return Reactive expression signaling that the remove button has been clicked.</pre>
+                      <pre class="language-r">    #' @return `list` with named elements corresponding to `FilteredDataset` objects with active filters.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server = function(id) {</pre>
+                      <pre class="language-r">    get_filter_state = function() {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">168</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">69</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      moduleServer(</pre>
+                      <pre class="language-r">      private$filtered_data$get_filter_state()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">169</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">70</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = id,</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">71</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        function(input, output, session) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">171</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">          private$server_summary("summary")</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' Sets active filter states.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">173</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">          private$destroy_shiny &lt;- function() {</pre>
+                      <pre class="language-r">    #' @param filter (`teal_slices`)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">174</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">            logger::log_trace("Destroying FilterStateExpr inputs; id: { private$get_id() }")</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            # remove values from the input list</pre>
+                      <pre class="language-r">    #' @return `NULL`, invisibly.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">176</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">77</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            lapply(session$ns(names(input)), .subset2(input, "impl")$.values$remove)</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">    set_filter_state = function(filter) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">178</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">79</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      private$filtered_data$set_filter_state(filter)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">179</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">80</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          reactive(input$remove) # back to parent to remove self</pre>
+                      <pre class="language-r">      invisible(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</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">181</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">182</td>
+                    <td class="num">83</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">183</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #' Remove one or more `FilterState` of a `FilteredDataset` in the `FilteredData` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</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">185</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' `shiny` module UI.</pre>
+                      <pre class="language-r">    #' @param filter (`teal_slices`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'  The UI for this class contains simple message stating that it is not supported.</pre>
+                      <pre class="language-r">    #'   specifying `FilterState` objects to remove;</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param id (`character(1)`)</pre>
+                      <pre class="language-r">    #'   `teal_slice`s may contain only `dataname` and `varname`, other elements are ignored</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">189</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param parent_id (`character(1)`)</pre>
+                      <pre class="language-r">    #' @return `NULL`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   id of the `FilterStates` card container.</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">191</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui = function(id, parent_id = "cards") {</pre>
+                      <pre class="language-r">    remove_filter_state = function(filter) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">192</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">93</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ns &lt;- NS(id)</pre>
+                      <pre class="language-r">      private$filtered_data$remove_filter_state(filter)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">193</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">94</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      isolate({</pre>
+                      <pre class="language-r">      invisible(NULL)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">194</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">        tags$div(</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">195</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">          id = id,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">196</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">97</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          class = "panel filter-card",</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">197</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">98</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          include_js_files("count-bar-labels.js"),</pre>
+                      <pre class="language-r">    #' Remove all `FilterStates` of the `FilteredData` object.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">198</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">          tags$div(</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">199</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">            class = "filter-card-header",</pre>
+                      <pre class="language-r">    #' @param datanames (`character`)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">200</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">101</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            tags$div(</pre>
+                      <pre class="language-r">    #'  `datanames` to remove their `FilterStates`;</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">201</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">102</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              class = "filter-card-title",</pre>
+                      <pre class="language-r">    #'  omit to remove all `FilterStates` in the `FilteredData` object</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">202</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">              if (private$is_anchored()) {</pre>
+                      <pre class="language-r">    #'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">203</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">                icon("anchor-lock", class = "filter-card-icon")</pre>
+                      <pre class="language-r">    #' @return `NULL`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</td>
+                    <td class="num">105</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">205</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">106</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                icon("lock", class = "filter-card-icon")</pre>
+                      <pre class="language-r">    clear_filter_states = function(datanames) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">206</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">107</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              },</pre>
+                      <pre class="language-r">      datanames_to_remove &lt;- if (missing(datanames)) private$filtered_data$datanames() else datanames</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">207</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">108</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              tags$div(class = "filter-card-varname", tags$strong(private$teal_slice$id)),</pre>
+                      <pre class="language-r">      private$filtered_data$clear_filter_states(datanames = datanames_to_remove)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">208</td>
-                    <td class="coverage">!</td>
+                  <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">              tags$div(class = "filter-card-varlabel", private$teal_slice$title),</pre>
+                      <pre class="language-r">      invisible(NULL)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">209</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">              tags$div(</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">111</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                class = "filter-card-controls",</pre>
+                      <pre class="language-r">  ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">211</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">112</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                if (isFALSE(private$is_anchored())) {</pre>
+                      <pre class="language-r">  # private methods ----</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">212</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">113</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  actionLink(</pre>
+                      <pre class="language-r">  private = list(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">213</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">                    inputId = ns("remove"),</pre>
+                      <pre class="language-r">    filtered_data = NULL</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">214</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">                    label = icon("circle-xmark", lib = "font-awesome"),</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">215</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">                    title = "Remove filter",</pre>
+                      <pre class="language-r">)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">216</td>
-                    <td class="coverage">!</td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/FilteredDataset-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">                    class = "filter-card-remove"</pre>
+                      <pre class="language-r">#' Initialize `FilteredDataset`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">217</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">218</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                }</pre>
+                      <pre class="language-r">#' Initializes a `FilteredDataset` object corresponding to the class of the filtered dataset.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">219</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">220</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ),</pre>
+                      <pre class="language-r">#' @param dataset any object</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">221</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">            tags$div(</pre>
+                      <pre class="language-r">#' @param dataname (`character(1)`)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">222</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">              class = "filter-card-summary",</pre>
+                      <pre class="language-r">#'   syntactically valid name given to the dataset.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">223</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">              private$ui_summary(ns("summary"))</pre>
+                      <pre class="language-r">#' @param keys (`character`) optional</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">224</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">#'   vector of primary key column names.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">225</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 parent_name (`character(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">226</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'   name of the parent dataset.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">12</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @param parent (`reactive`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">227</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">#'   that returns a filtered `data.frame` from other `FilteredDataset` named `parent_name`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">228</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'   Passing `parent` results in a `reactive` link that causes re-filtering of this `dataset`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">229</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ),</pre>
+                      <pre class="language-r">#'   based on the changes in `parent`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">230</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param join_keys (`character`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">231</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # private members ----</pre>
+                      <pre class="language-r">#'   vector of names of columns in this dataset to join with `parent` dataset.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">232</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   If column names in the parent do not match these, they should be given as the names of this vector.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">233</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  private = list(</pre>
+                      <pre class="language-r">#' @param label (`character(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">234</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    observers = NULL, # stores observers</pre>
+                      <pre class="language-r">#'   label to describe the dataset.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">235</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    teal_slice = NULL, # stores reactiveValues</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">236</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    destroy_shiny = NULL, # function is set in server</pre>
+                      <pre class="language-r">#' @return Object of class `FilteredDataset`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">237</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">238</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @description</pre>
+                      <pre class="language-r">#' @section Warning:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">239</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Get id of the teal_slice.</pre>
+                      <pre class="language-r">#' This function is exported to allow other packages to extend `teal.slice` but it is treated as internal.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">240</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @return `character(1)`</pre>
+                      <pre class="language-r">#' Breaking changes may occur without warning.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">241</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_id = function() {</pre>
+                      <pre class="language-r">#' We recommend consulting the package maintainer before using it.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">242</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">      isolate(private$teal_slice$id)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">243</td>
+                    <td class="num">29</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">244</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' # DataframeFilteredDataset example</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">245</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Check whether this filter is anchored (cannot be removed).</pre>
+                      <pre class="language-r">#' library(shiny)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">246</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @return `logical(1)`</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">247</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    is_anchored = function() {</pre>
+                      <pre class="language-r">#' iris_fd &lt;- init_filtered_dataset(iris, dataname = "iris")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">248</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">34</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      isolate(isTRUE(private$teal_slice$anchored))</pre>
+                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">249</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#'   iris_fd$ui_add(id = "add"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">250</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   iris_fd$ui_active("dataset"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">251</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @description</pre>
+                      <pre class="language-r">#'   verbatimTextOutput("call")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">252</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Server module to display filter summary</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">253</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @param id `shiny` id parameter</pre>
+                      <pre class="language-r">#' server &lt;- function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">254</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_summary = function(id) {</pre>
+                      <pre class="language-r">#'   iris_fd$srv_add(id = "add")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">255</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">41</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ns &lt;- NS(id)</pre>
+                      <pre class="language-r">#'   iris_fd$srv_active(id = "dataset")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">256</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">42</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      uiOutput(ns("summary"), class = "filter-card-summary")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">257</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#'   output$call &lt;- renderText({</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">258</td>
+                    <td class="num">44</td>
                     <td class="coverage"></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">259</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @description</pre>
+                      <pre class="language-r">#'       vapply(iris_fd$get_call(), deparse1, character(1), collapse = "\n"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">260</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # UI module to display filter summary</pre>
+                      <pre class="language-r">#'       collapse = "\n"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">261</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @param shiny `id` parameter passed to moduleServer</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">262</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #  renders text describing current state</pre>
+                      <pre class="language-r">#'   })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">263</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server_summary = function(id) {</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">264</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">      moduleServer(</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">265</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">        id = id,</pre>
+                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">266</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">52</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        function(input, output, session) {</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">53</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          output$summary &lt;- renderUI(private$content_summary())</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">268</td>
+                    <td class="num">54</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">269</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' \donttest{</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">270</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#' if (requireNamespace("MultiAssayExperiment", quietly = TRUE)) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">271</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    content_summary = function() {</pre>
+                      <pre class="language-r">#'   # MAEFilteredDataset example</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">272</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">      isolate(private$teal_slice$expr)</pre>
+                      <pre class="language-r">#'   library(shiny)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">273</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">274</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'   data(miniACC, package = "MultiAssayExperiment")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">275</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>
-                </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">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">.onLoad &lt;- function(libname, pkgname) { # nolint</pre>
+                      <pre class="language-r">#'   MAE_fd &lt;- init_filtered_dataset(miniACC, "MAE")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">63</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">#'   ui &lt;- fluidPage(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">3</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">  teal_default_options &lt;- list(teal.threshold_slider_vs_checkboxgroup = 5)</pre>
+                      <pre class="language-r">#'     MAE_fd$ui_add(id = "add"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">4</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">  op &lt;- options()</pre>
+                      <pre class="language-r">#'     MAE_fd$ui_active("dataset"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">5</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">  toset &lt;- !(names(teal_default_options) %in% names(op))</pre>
+                      <pre class="language-r">#'     verbatimTextOutput("call")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">6</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">  if (any(toset)) options(teal_default_options[toset])</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">68</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">8</td>
+                    <td class="num">69</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">#'     MAE_fd$srv_add(id = "add")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">9</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">70</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  teal.logger::register_logger("teal.slice")</pre>
+                      <pre class="language-r">#'     MAE_fd$srv_active(id = "dataset")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">10</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">  teal.logger::register_handlers("teal.slice")</pre>
+                      <pre class="language-r">#'     output$call &lt;- renderText({</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'       paste(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">12</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">73</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  invisible()</pre>
+                      <pre class="language-r">#'         vapply(MAE_fd$get_call(), deparse1, character(1), collapse = "\n"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'         collapse = "\n"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</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">15</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">### GLOBAL VARIABLES ###</pre>
+                      <pre class="language-r">#'     })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</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">17</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">.filterable_class &lt;- c("logical", "integer", "numeric", "factor", "character", "Date", "POSIXct", "POSIXlt")</pre>
+                      <pre class="language-r">#'   if (interactive()) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">79</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">19</td>
+                    <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">20</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">### END GLOBAL VARIABLES ###</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</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">22</td>
+                    <td class="num">83</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">23</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">### ENSURE CHECK PASSES</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">init_filtered_dataset &lt;- function(dataset,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># This function is necessary for check to properly process code dependencies within R6 classes.</pre>
+                      <pre class="language-r">                                  dataname,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># If `package` is listed in `Imports` in `DESCRIPTION`,</pre>
+                      <pre class="language-r">                                  keys = character(0),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># (1) check goes through `NAMESPACE` looking for any `importFrom(package,&lt;foo&gt;)` statements</pre>
+                      <pre class="language-r">                                  parent_name = character(0),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># or an `import(package)` statement. If none are found,</pre>
+                      <pre class="language-r">                                  parent = reactive(dataset),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># (2) check looks for `package::*` calls in the code. If none are found again,</pre>
+                      <pre class="language-r">                                  join_keys = character(0),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># (3) check throws a NOTE;</pre>
+                      <pre class="language-r">                                  label = attr(dataset, "label", exact = TRUE)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">92</td>
+                    <td class="coverage">107<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># #  Namespaces in Imports field not imported from:</pre>
+                      <pre class="language-r">  UseMethod("init_filtered_dataset")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># #    'package'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># #  All declared Imports should be used.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># This note is banned by our CI.</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># When package::* statements are made within an R6 class, they are not registered.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># This function provides single references to the imported namespaces for check to notice.</pre>
+                      <pre class="language-r">init_filtered_dataset.data.frame &lt;- function(dataset,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">.rectify_dependencies_check &lt;- function() {</pre>
+                      <pre class="language-r">                                             dataname,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">38</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">  dplyr::filter</pre>
+                      <pre class="language-r">                                             keys = character(0),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">39</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">  grDevices::rgb</pre>
+                      <pre class="language-r">                                             parent_name = character(0),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">40</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">101</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  htmltools::tagInsertChildren</pre>
+                      <pre class="language-r">                                             parent = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">41</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">102</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lifecycle::badge</pre>
+                      <pre class="language-r">                                             join_keys = character(0),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">42</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">  logger::log_trace</pre>
+                      <pre class="language-r">                                             label = attr(dataset, "label", exact = TRUE)) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">43</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">104</td>
+                    <td class="coverage">83<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  plotly::plot_ly</pre>
+                      <pre class="language-r">  DataframeFilteredDataset$new(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">44</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">105</td>
+                    <td class="coverage">83<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  shinycssloaders::withSpinner</pre>
+                      <pre class="language-r">    dataset = dataset,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">45</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">106</td>
+                    <td class="coverage">83<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  shinyWidgets::pickerOptions</pre>
+                      <pre class="language-r">    dataname = dataname,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">46</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">107</td>
+                    <td class="coverage">83<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  teal.data::datanames</pre>
+                      <pre class="language-r">    keys = keys,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">47</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">108</td>
+                    <td class="coverage">83<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  teal.widgets::optionalSelectInput</pre>
+                      <pre class="language-r">    parent_name = parent_name,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">48</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">109</td>
+                    <td class="coverage">83<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">49</td>
-                    <td class="coverage"></td>
+                      <pre class="language-r">    parent = parent,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">110</td>
+                    <td class="coverage">83<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    join_keys = join_keys,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">111</td>
+                    <td class="coverage">83<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    label = label</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">### END ENSURE CHECK PASSES</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/test_utils.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># This file contains helper functions used in unit tests.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <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"># compares specified fields between two `teal_slice` objects</pre>
+                      <pre class="language-r">#' @keywords internal</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">#' @noRd</pre>
+                      <pre class="language-r">#' @export</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">#' @keywords internal</pre>
+                      <pre class="language-r">init_filtered_dataset.MultiAssayExperiment &lt;- function(dataset,</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">compare_slices &lt;- function(ts1, ts2, fields) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">7</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  isolate(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">8</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    all(vapply(fields, function(x) identical(ts1[[x]], ts2[[x]]), logical(1L)))</pre>
+                      <pre class="language-r">                                                       dataname,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">                                                       keys = character(0),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">                                                       parent_name, # ignored</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                                       parent, # ignored</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                                       join_keys, # ignored</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># compare two teal_slice</pre>
+                      <pre class="language-r">                                                       label = attr(dataset, "label", exact = TRUE)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">124</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">  if (!requireNamespace("MultiAssayExperiment", quietly = TRUE)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">125</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">    stop("Cannot load MultiAssayExperiment - please install the package or restart your session.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">expect_identical_slice &lt;- function(x, y) {</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">17</td>
-                    <td class="coverage">34<em>x</em></td>
+                    <td class="num">127</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  isolate({</pre>
+                      <pre class="language-r">  MAEFilteredDataset$new(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">18</td>
-                    <td class="coverage">34<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">    testthat::expect_true(</pre>
+                      <pre class="language-r">    dataset = dataset,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">19</td>
-                    <td class="coverage">34<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">      setequal(</pre>
+                      <pre class="language-r">    dataname = dataname,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">20</td>
-                    <td class="coverage">34<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">        reactiveValuesToList(x),</pre>
+                      <pre class="language-r">    keys = keys,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">21</td>
-                    <td class="coverage">34<em>x</em></td>
+                    <td class="num">131</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        reactiveValuesToList(y)</pre>
+                      <pre class="language-r">    label = label</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</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">23</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">24</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">25</td>
+                    <td class="num">135</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">26</td>
+                    <td class="num">136</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">27</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># compare two teal_slices</pre>
+                      <pre class="language-r">init_filtered_dataset.default &lt;- function(dataset,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">                                          dataname,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">                                          keys, # ignored</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">expect_identical_slices &lt;- function(x, y) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">31</td>
-                    <td class="coverage">12<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  isolate({</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">32</td>
-                    <td class="coverage">12<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    mapply(</pre>
+                      <pre class="language-r">                                          parent_name, # ignored</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">33</td>
-                    <td class="coverage">12<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">      function(x, y) {</pre>
+                      <pre class="language-r">                                          parent, # ignored</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">34</td>
-                    <td class="coverage">27<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">        expect_identical_slice(x, y)</pre>
+                      <pre class="language-r">                                          join_keys, # ignored</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">                                          label = attr(dataset, "label", exact = TRUE)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">36</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">144</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x = x,</pre>
+                      <pre class="language-r">  DefaultFilteredDataset$new(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">37</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">145</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y = y</pre>
+                      <pre class="language-r">    dataset = dataset,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">146</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    dataname = dataname,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">39</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">147</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    testthat::expect_identical(attributes(x), attributes(y))</pre>
+                      <pre class="language-r">    label = label</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</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">41</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -63668,63 +63472,63 @@ <h2>teal.slice coverage - 65.89%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/FilterStateEmpty.R" class="hidden">
+            <div id="R/FilteredData-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"># EmptyFilterState ------</pre>
+                      <pre class="language-r">#' Initialize `FilteredData`</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">#' @name EmptyFilterState</pre>
+                      <pre class="language-r">#' Function creates a `FilteredData` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @docType class</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">#'</pre>
+                      <pre class="language-r">#' @param x (`named list`) of datasets.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @title `FilterState` object for empty variables</pre>
+                      <pre class="language-r">#' @param join_keys (`join_keys`) see [`teal.data::join_keys()`].</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param code `r lifecycle::badge("deprecated")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `FilterState` subclass representing an empty variable.</pre>
+                      <pre class="language-r">#' @param check `r lifecycle::badge("deprecated")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -63738,168 +63542,168 @@ <h2>teal.slice coverage - 65.89%</h2>
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @return Object of class `FilteredData`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # use non-exported function from teal.slice</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' include_js_files &lt;- getFromNamespace("include_js_files", "teal.slice")</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' EmptyFilterState &lt;- getFromNamespace("EmptyFilterState", "teal.slice")</pre>
+                      <pre class="language-r">#' datasets &lt;- init_filtered_data(list(iris = iris, mtcars = mtcars))</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">#' datasets</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(shiny)</pre>
+                      <pre class="language-r">#'</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">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' filter_state &lt;- EmptyFilterState$new(</pre>
+                      <pre class="language-r">init_filtered_data &lt;- function(x, join_keys = teal.data::join_keys(), code, check) { # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">18</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   x = NA,</pre>
+                      <pre class="language-r">  checkmate::assert_list(x, any.missing = FALSE, names = "unique")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">19</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   slice = teal_slice(varname = "x", dataname = "data"),</pre>
+                      <pre class="language-r">  checkmate::assert_class(join_keys, "join_keys")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">20</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   extract_type = character(0)</pre>
+                      <pre class="language-r">  if (!missing(code)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">21</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">    lifecycle::deprecate_stop(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">22</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' isolate(filter_state$get_call())</pre>
+                      <pre class="language-r">      "0.5.0",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">23</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' filter_state$set_state(teal_slice(dataname = "data", varname = "x", keep_na = TRUE))</pre>
+                      <pre class="language-r">      "init_filtered_data(code = 'No longer supported')"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' isolate(filter_state$get_call())</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <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">26</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">  if (!missing(check)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">27</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    lifecycle::deprecate_stop(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">28</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">EmptyFilterState &lt;- R6::R6Class( # nolint</pre>
+                      <pre class="language-r">      "0.5.0",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">29</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  "EmptyFilterState",</pre>
+                      <pre class="language-r">      "init_filtered_data(check = 'No longer supported')"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  inherit = FilterState,</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">
+                  <tr class="covered">
                     <td class="num">32</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # public methods ----</pre>
+                      <pre class="language-r">  FilteredData$new(x, join_keys = join_keys)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  public = list(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -63913,812 +63717,812 @@ <h2>teal.slice coverage - 65.89%</h2>
                     <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">#' Evaluate expression with meaningful message</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Initialize `EmptyFilterState` object.</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">#' Method created for the `FilteredData` object to execute filter call with</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param x (`vector`)</pre>
+                      <pre class="language-r">#' meaningful message. After evaluation used environment should contain</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   variable to be filtered,</pre>
+                      <pre class="language-r">#' all necessary bindings.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param x_reactive (`reactive`)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   returning vector of the same type as `x`. Is used to update</pre>
+                      <pre class="language-r">#' @param expr (`language`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   counts following the change in values of the filtered dataset.</pre>
+                      <pre class="language-r">#' @param env (`environment`) where expression is evaluated.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   If it is set to `reactive(NULL)` then counts based on filtered</pre>
+                      <pre class="language-r">#' @return `NULL`, invisibly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   dataset are not shown.</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param slice (`teal_slice`)</pre>
+                      <pre class="language-r">eval_expr_with_msg &lt;- function(expr, env) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">46</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   specification of this filter state.</pre>
+                      <pre class="language-r">  lapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">47</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   `teal_slice` is stored in the object and `set_state` directly manipulates values within `teal_slice`.</pre>
+                      <pre class="language-r">    expr,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">48</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   `get_state` returns `teal_slice` object which can be reused in other places.</pre>
+                      <pre class="language-r">    function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">49</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   Note that `teal_slice` is a `reactiveValues`, which means it has reference semantics, i.e.</pre>
+                      <pre class="language-r">      tryCatch(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">50</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   changes made to an object are automatically reflected in all places that refer to the same `teal_slice`.</pre>
+                      <pre class="language-r">        eval(x, envir = env),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">51</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param extract_type (`character`)</pre>
+                      <pre class="language-r">        error = function(e) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">52</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   specifying whether condition calls should be prefixed by `dataname`. Possible values:</pre>
+                      <pre class="language-r">          stop(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">53</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' - `character(0)` (default) `varname` in the condition call will not be prefixed</pre>
+                      <pre class="language-r">            sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">54</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' - `"list"` `varname` in the condition call will be returned as `&lt;dataname&gt;$&lt;varname&gt;`</pre>
+                      <pre class="language-r">              "Call execution failed:\n - call:\n   %s\n - message:\n   %s ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">55</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' - `"matrix"` `varname` in the condition call will be returned as `&lt;dataname&gt;[, &lt;varname&gt;]`</pre>
+                      <pre class="language-r">              deparse1(x, collapse = "\n"), e</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>
+                      <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">    #' @return Object of class `EmptyFilterState`, invisibly.</pre>
+                      <pre class="language-r">          )</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>
+                      <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">    initialize = function(x,</pre>
+                      <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">                          x_reactive = reactive(NULL),</pre>
+                      <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">                          extract_type = character(0),</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">62</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          slice) {</pre>
+                      <pre class="language-r">  invisible(NULL)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">63</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      isolate({</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">64</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        super$initialize(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">65</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x = x,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">66</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x_reactive = x_reactive,</pre>
+                      <pre class="language-r">#' Toggle button properties.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">67</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          slice = slice,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">68</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          extract_type = extract_type</pre>
+                      <pre class="language-r">#' Switch between different icons or titles on a button.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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">
+                  <tr class="never">
                     <td class="num">70</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$set_choices(slice$choices)</pre>
+                      <pre class="language-r">#' Wrapper functions that use `shinyjs::runjs` to change button properties in response to events,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">71</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        private$set_selected(slice$selected)</pre>
+                      <pre class="language-r">#' typically clicking those very buttons.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">#' `shiny`'s `actionButton` and `actionLink` create `&lt;a&gt;` tags,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' which may contain a child `&lt;i&gt;` tag that specifies an icon to be displayed.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">74</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(self)</pre>
+                      <pre class="language-r">#' `toggle_icon` calls the `toggleClass` (when `one_way = FALSE`) or</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#' `removeClass` and `addClass` methods (when `one_way = TRUE`) to change icons.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' `toggle_title` calls the `attr` method to modify the `Title` attribute of the button.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">77</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">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Returns reproducible condition call for current selection relevant for selected variable type.</pre>
+                      <pre class="language-r">#' @param input_id (`character(1)`) (name-spaced) id of the button</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Uses internal reactive values, hence must be called in reactive or isolated context.</pre>
+                      <pre class="language-r">#' @param icons,titles (`character(2)`) vector specifying values between which to toggle</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param dataname name of data set; defaults to `private$get_dataname()`</pre>
+                      <pre class="language-r">#' @param one_way (`logical(1)`) flag specifying whether to keep toggling;</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `logical(1)`</pre>
+                      <pre class="language-r">#'                if TRUE, the target will be changed</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">#'                from the first element of `icons`/`titles` to the second</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_call = function(dataname) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">84</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (isFALSE(private$is_any_filtered())) {</pre>
+                      <pre class="language-r">#' @return `NULL`, invisibly.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">85</td>
-                    <td class="coverage">1<em>x</em></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">86</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">
+                  <tr class="never">
                     <td class="num">87</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (missing(dataname)) dataname &lt;- private$get_dataname()</pre>
+                      <pre class="language-r">#' # use non-exported function from teal.slice</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">88</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      filter_call &lt;- if (isTRUE(private$get_keep_na())) {</pre>
+                      <pre class="language-r">#' toggle_icon &lt;- getFromNamespace("toggle_icon", "teal.slice")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">89</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        call("is.na", private$get_varname_prefixed(dataname))</pre>
+                      <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">      } else {</pre>
+                      <pre class="language-r">#' library(shiny)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">91</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        substitute(!is.na(varname), list(varname = private$get_varname_prefixed(dataname)))</pre>
+                      <pre class="language-r">#' library(shinyjs)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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">93</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">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ),</pre>
+                      <pre class="language-r">#'   useShinyjs(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   actionButton("hide_content", label = "hide", icon = icon("xmark")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # private members ----</pre>
+                      <pre class="language-r">#'   actionButton("show_content", label = "show", icon = icon("check")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  private = list(</pre>
+                      <pre class="language-r">#'   actionButton("toggle_content", label = "toggle", icon = icon("angle-down")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    cache_state = function() {</pre>
+                      <pre class="language-r">#'   tags$br(),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">99</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$cache &lt;- private$get_state()</pre>
+                      <pre class="language-r">#'   tags$div(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">100</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      self$set_state(</pre>
+                      <pre class="language-r">#'     id = "content",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">101</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        list(</pre>
+                      <pre class="language-r">#'     verbatimTextOutput("printout")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">102</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          keep_na = NULL</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">105</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">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set_choices = function(choices) {</pre>
+                      <pre class="language-r">#'   observeEvent(input$hide_content,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">107</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$teal_slice$choices &lt;- choices</pre>
+                      <pre class="language-r">#'     {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">108</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible(NULL)</pre>
+                      <pre class="language-r">#'       hide("content")</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">#'       toggle_icon("toggle_content", c("fa-angle-down", "fa-angle-right"), one_way = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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="never">
                     <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     ignoreInit = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Reports whether the current state filters out any values.(?)</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @return `logical(1)`</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">    #</pre>
+                      <pre class="language-r">#'   observeEvent(input$show_content,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    is_any_filtered = function() {</pre>
+                      <pre class="language-r">#'     {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">116</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (private$is_choice_limited) {</pre>
+                      <pre class="language-r">#'       show("content")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">117</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        TRUE</pre>
+                      <pre class="language-r">#'       toggle_icon("toggle_content", c("fa-angle-right", "fa-angle-down"), one_way = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">118</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">119</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        !isTRUE(private$get_keep_na())</pre>
+                      <pre class="language-r">#'     ignoreInit = TRUE</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="never">
                     <td class="num">121</td>
                     <td class="coverage"></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="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   observeEvent(input$toggle_content,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">123</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">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # UI Module for `EmptyFilterState`.</pre>
+                      <pre class="language-r">#'       toggle("content")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # This UI element contains a checkbox input to filter or keep missing values.</pre>
+                      <pre class="language-r">#'       toggle_icon("toggle_content", c("fa-angle-right", "fa-angle-down"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @param id (`character(1)`) `shiny` module instance id.</pre>
+                      <pre class="language-r">#'     },</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>
+                      <pre class="language-r">#'     ignoreInit = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_inputs = function(id) {</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">129</td>
-                    <td class="coverage">!</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="missed">
+                  <tr class="never">
                     <td class="num">130</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      isolate({</pre>
+                      <pre class="language-r">#'   output$printout &lt;- renderPrint({</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">131</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">#'     head(faithful, 10)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">132</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          tags$span("Variable contains missing values only"),</pre>
+                      <pre class="language-r">#'   })</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">133</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          private$keep_na_ui(ns("keep_na"))</pre>
+                      <pre class="language-r">#' }</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">#' if (interactive()) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">135</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">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">
                     <td class="num">137</td>
                     <td class="coverage"></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="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @description</pre>
+                      <pre class="language-r">#' @name toggle_button</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Controls state of the `keep_na` checkbox input.</pre>
+                      <pre class="language-r">#' @rdname toggle_button</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">140</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">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @param id (`character(1)`) `shiny` module instance id.</pre>
+                      <pre class="language-r">toggle_icon &lt;- function(input_id, icons, one_way = FALSE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">142</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #</pre>
+                      <pre class="language-r">  checkmate::assert_string(input_id)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">143</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # @return `NULL`.</pre>
+                      <pre class="language-r">  checkmate::assert_character(icons, len = 2L)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">144</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #</pre>
+                      <pre class="language-r">  checkmate::assert_flag(one_way)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server_inputs = function(id) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">146</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      moduleServer(</pre>
+                      <pre class="language-r">  expr &lt;-</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">147</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = id,</pre>
+                      <pre class="language-r">    if (one_way) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">148</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        function(input, output, session) {</pre>
+                      <pre class="language-r">      sprintf(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">149</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          private$keep_na_srv("keep_na")</pre>
+                      <pre class="language-r">        "$('#%s i').removeClass('%s').addClass('%s');",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">150</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">        input_id, icons[1], icons[2]</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -64732,160 +64536,377 @@ <h2>teal.slice coverage - 65.89%</h2>
                     <td class="num">152</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="missed">
                     <td class="num">153</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      sprintf("$('#%s i').toggleClass('%s');", input_id, paste(icons, collapse = " "))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    server_inputs_fixed = function(id) {</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"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">156</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  shinyjs::runjs(expr)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">157</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">158</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  invisible(NULL)</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"></pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">161</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @rdname toggle_button</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">162</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">163</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">toggle_title &lt;- function(input_id, titles, one_way = FALSE) {</pre>
+                    </td>
+                  </tr>
+                  <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">  checkmate::assert_string(input_id)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">165</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_character(titles, len = 2L)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">166</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_flag(one_way)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">167</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">168</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  expr &lt;-</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">169</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    if (one_way) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">170</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      sprintf(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">171</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        "$('a#%s').attr('title', '%s');",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">172</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        input_id, titles[2]</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="never">
+                    <td class="num">174</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">154</td>
+                    <td class="num">175</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      moduleServer(</pre>
+                      <pre class="language-r">      sprintf(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">155</td>
+                    <td class="num">176</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = id,</pre>
+                      <pre class="language-r">        paste0(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">156</td>
+                    <td class="num">177</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        function(input, output, session) {</pre>
+                      <pre class="language-r">          "var button_id = 'a#%1$s';",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">157</td>
+                    <td class="num">178</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          output$selection &lt;- renderUI({</pre>
+                      <pre class="language-r">          "var curr = $(button_id).attr('title');",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">158</td>
+                    <td class="num">179</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            tags$span("Variable contains missing values only")</pre>
+                      <pre class="language-r">          "if (curr == '%2$s') { $(button_id).attr('title', '%3$s');",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">180</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          "} else { $(button_id).attr('title', '%2$s');",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</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">182</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">160</td>
+                    <td class="num">183</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          NULL</pre>
+                      <pre class="language-r">        input_id, titles[1], titles[2]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</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">162</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">186</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">187</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  shinyjs::runjs(expr)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">188</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">189</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  invisible(NULL)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">190</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">}</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">191</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">192</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @inherit teal.data::topological_sort description details params title</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">193</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">163</td>
+                    <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#' # use non-exported function from teal.slice</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' topological_sort &lt;- getFromNamespace("topological_sort", "teal.slice")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">196</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">166</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Server module to display filter summary</pre>
+                      <pre class="language-r">#' topological_sort(list(A = c(), B = c("A"), C = c("B"), D = c("A")))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Doesn't render anything</pre>
+                      <pre class="language-r">#' topological_sort(list(D = c("A"), A = c(), B = c("A"), C = c("B")))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <td class="num">199</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    content_summary = function(id) {</pre>
+                      <pre class="language-r">#' topological_sort(list(D = c("A"), B = c("A"), C = c("B"), A = c()))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">169</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">      tags$span("All empty")</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">topological_sort &lt;- function(graph) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">171</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">202</td>
+                    <td class="coverage">66<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  utils::getFromNamespace("topological_sort", ns = "teal.data")(graph)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</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>
                 </tbody>
               </table>
             </div>
-            <div id="R/variable_types.R" class="hidden">
+            <div id="R/FilterStates-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">#' Get classes of selected columns from dataset</pre>
+                      <pre class="language-r">#' Initialize `FilterStates` object</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -64899,217 +64920,217 @@ <h2>teal.slice coverage - 65.89%</h2>
                     <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param data (`data.frame` or `DataFrame` or `matrix`) Object in which to determine variable types.</pre>
+                      <pre class="language-r">#' @param data (`data.frame` or `MultiAssayExperiment` or `SummarizedExperiment` or `matrix`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param columns (`character`) Vector of columns in `data` for which to get types.</pre>
+                      <pre class="language-r">#'   object to subset.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Set to `NULL` to get types of all columns.</pre>
+                      <pre class="language-r">#' @param data_reactive (`function(sid)`)</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">#'   should return an object of the same type as `data` or `NULL`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Character vector of classes of `columns` from provided `data`.</pre>
+                      <pre class="language-r">#'   This function is needed for the `FilterState` `shiny` module to update counts if filtered data changes.</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">#'   If function returns `NULL` then filtered counts are not shown.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'   Function has to have `sid` argument being a character which is related to `sid` argument in the `get_call` method.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # use non-exported function from teal.slice</pre>
+                      <pre class="language-r">#' @param dataname (`character(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' variable_types &lt;- getFromNamespace("variable_types", "teal.slice")</pre>
+                      <pre class="language-r">#'   name of the data used in the subset expression,</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">#'   passed to the function argument attached to this `FilterStates`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' variable_types(</pre>
+                      <pre class="language-r">#' @param datalabel (`character(1)`) optional</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data.frame(</pre>
+                      <pre class="language-r">#'   text label.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     x = 1:3, y = factor(c("a", "b", "a")), z = c("h1", "h2", "h3"),</pre>
+                      <pre class="language-r">#' @param ... optional,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     stringsAsFactors = FALSE</pre>
+                      <pre class="language-r">#'   additional arguments for specific classes: keys.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "x"</pre>
+                      <pre class="language-r">#' @return Object of class `FilterStates`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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">20</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">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' variable_types(</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data.frame(</pre>
+                      <pre class="language-r">#' # use non-exported function from teal.slice</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     x = 1:3, y = factor(c("a", "b", "a")), z = c("h1", "h2", "h3"),</pre>
+                      <pre class="language-r">#' init_filter_states &lt;- getFromNamespace("init_filter_states", "teal.slice")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     stringsAsFactors = FALSE</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">#' df &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   c("x", "z")</pre>
+                      <pre class="language-r">#'   character = letters,</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">#'   numeric = seq_along(letters),</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">#'   date = seq(Sys.Date(), length.out = length(letters), by = "1 day"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' variable_types(</pre>
+                      <pre class="language-r">#'   datetime = seq(Sys.time(), length.out = length(letters), by = "33.33 hours")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data.frame(</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">#'     x = 1:3, y = factor(c("a", "b", "a")), z = c("h1", "h2", "h3"),</pre>
+                      <pre class="language-r">#' rf &lt;- init_filter_states(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     stringsAsFactors = FALSE</pre>
+                      <pre class="language-r">#'   data = df,</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">#'   dataname = "DF"</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -65130,1459 +65151,1481 @@ <h2>teal.slice coverage - 65.89%</h2>
                     <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' library(shiny)</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">#' ui &lt;- fluidPage(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">variable_types &lt;- function(data, columns = NULL) {</pre>
+                      <pre class="language-r">#'   actionButton("clear", tags$span(icon("xmark"), "Remove all filters")),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">39</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(data, c("data.frame", "DataFrame", "matrix"))</pre>
+                      <pre class="language-r">#'   rf$ui_add(id = "add"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">40</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(columns, any.missing = FALSE, null.ok = TRUE)</pre>
+                      <pre class="language-r">#'   rf$ui_active("states"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">41</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(columns, colnames(data))</pre>
+                      <pre class="language-r">#'   verbatimTextOutput("expr"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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="covered">
+                  <tr class="never">
                     <td class="num">43</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.matrix(data)) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">44</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    type &lt;- typeof(data)</pre>
+                      <pre class="language-r">#' server &lt;- function(input, output, session) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">45</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (type == "double") type &lt;- "numeric"</pre>
+                      <pre class="language-r">#'   rf$srv_add(id = "add")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">46</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    types &lt;-</pre>
+                      <pre class="language-r">#'   rf$srv_active(id = "states")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">47</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (is.null(columns)) {</pre>
+                      <pre class="language-r">#'   output$expr &lt;- renderText({</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">48</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        stats::setNames(rep_len(type, ncol(data)), nm = colnames(data))</pre>
+                      <pre class="language-r">#'     deparse1(rf$get_call(), collapse = "\n")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">49</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">
+                  <tr class="never">
                     <td class="num">50</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        stats::setNames(rep_len(type, length(columns)), nm = columns)</pre>
+                      <pre class="language-r">#'   observeEvent(input$clear, rf$clear_filter_states())</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">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">52</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">53</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    types &lt;- vapply(data, function(x) class(x)[1L], character(1L))</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">54</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!is.null(columns)) types &lt;- types[columns]</pre>
+                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # alternative after R 4.4.0: `types &lt;- types[columns %||% TRUE]`</pre>
+                      <pre class="language-r">#' }</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="covered">
-                    <td class="num">57</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  types</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>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/filter_panel_api.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Managing `FilteredData` states</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <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">3</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
+                      <pre class="language-r">init_filter_states &lt;- function(data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                               data_reactive = reactive(NULL),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Set, get and remove filter states of `FilteredData` object.</pre>
+                      <pre class="language-r">                               dataname,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                               datalabel = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name filter_state_api</pre>
+                      <pre class="language-r">                               ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">64</td>
+                    <td class="coverage">229<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  UseMethod("init_filter_states")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param datasets (`FilteredData`)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">66</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</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">67</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">12</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   see [`FilteredData`] for details</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">init_filter_states.data.frame &lt;- function(data, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param filter (`teal_slices`)</pre>
+                      <pre class="language-r">                                          data_reactive = function(sid = "") NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   specify filters in place on app start-up</pre>
+                      <pre class="language-r">                                          dataname,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                          datalabel = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param force (`logical(1)`)</pre>
+                      <pre class="language-r">                                          keys = character(0),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   flag specifying whether to include anchored filter states.</pre>
+                      <pre class="language-r">                                          ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">75</td>
+                    <td class="coverage">100<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  DFFilterStates$new(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">76</td>
+                    <td class="coverage">100<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">    data = data,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">77</td>
+                    <td class="coverage">100<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `set_*`, `remove_*` and `clear_filter_state` return `NULL` invisibly</pre>
+                      <pre class="language-r">    data_reactive = data_reactive,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">78</td>
+                    <td class="coverage">100<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - `get_filter_state` returns a named `teal_slices` object</pre>
+                      <pre class="language-r">    dataname = dataname,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">79</td>
+                    <td class="coverage">100<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'    containing a `teal_slice` for every existing `FilterState`</pre>
+                      <pre class="language-r">    datalabel = datalabel,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">80</td>
+                    <td class="coverage">100<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    keys = keys</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [`teal_slice`]</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</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">27</td>
+                    <td class="num">83</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">28</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' datasets &lt;- init_filtered_data(list(iris = iris, mtcars = mtcars))</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' fs &lt;- teal_slices(</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   teal_slice(dataname = "iris", varname = "Species", selected = c("setosa", "versicolor")),</pre>
+                      <pre class="language-r">init_filter_states.matrix &lt;- function(data, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   teal_slice(dataname = "iris", varname = "Sepal.Length", selected = c(5.1, 6.4)),</pre>
+                      <pre class="language-r">                                      data_reactive = function(sid = "") NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   teal_slice(dataname = "mtcars", varname = "gear", selected = c(4, 5)),</pre>
+                      <pre class="language-r">                                      dataname,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   teal_slice(dataname = "mtcars", varname = "carb", selected = c(4, 10))</pre>
+                      <pre class="language-r">                                      datalabel = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">90</td>
                     <td class="coverage"></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="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">91</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  MatrixFilterStates$new(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">92</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # set initial filter state</pre>
+                      <pre class="language-r">    data = data,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">93</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' set_filter_state(datasets, filter = fs)</pre>
+                      <pre class="language-r">    data_reactive = data_reactive,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">94</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    dataname = dataname,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">39</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">95</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # get filter state</pre>
+                      <pre class="language-r">    datalabel = datalabel</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' get_filter_state(datasets)</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # modify filter state</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' set_filter_state(</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   datasets,</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   teal_slices(</pre>
+                      <pre class="language-r">init_filter_states.MultiAssayExperiment &lt;- function(data, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     teal_slice(dataname = "iris", varname = "Species", selected = "setosa", keep_na = TRUE)</pre>
+                      <pre class="language-r">                                                    data_reactive = function(sid = "") NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">                                                    dataname,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">                                                    datalabel = "subjects",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                                    keys = character(0),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # remove specific filters</pre>
+                      <pre class="language-r">                                                    ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">51</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">107</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' remove_filter_state(</pre>
+                      <pre class="language-r">  if (!requireNamespace("MultiAssayExperiment", quietly = TRUE)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">52</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">#'   datasets,</pre>
+                      <pre class="language-r">    stop("Cannot load MultiAssayExperiment - please install the package or restart your session.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   teal_slices(</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">54</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">110</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     teal_slice(dataname = "iris", varname = "Species"),</pre>
+                      <pre class="language-r">  MAEFilterStates$new(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">55</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">111</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     teal_slice(dataname = "mtcars", varname = "gear"),</pre>
+                      <pre class="language-r">    data = data,</pre>
                     </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">56</td>
-                    <td class="coverage"></td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">112</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     teal_slice(dataname = "mtcars", varname = "carb")</pre>
+                      <pre class="language-r">    data_reactive = data_reactive,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">57</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">113</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">    dataname = dataname,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">58</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">114</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">    datalabel = datalabel,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">59</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">115</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    keys = keys</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # remove all states</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' clear_filter_states(datasets)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</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">63</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' \donttest{</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (requireNamespace("MultiAssayExperiment", quietly = TRUE)) {</pre>
+                      <pre class="language-r">init_filter_states.SummarizedExperiment &lt;- function(data, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   # Requires MultiAssayExperiment from Bioconductor</pre>
+                      <pre class="language-r">                                                    data_reactive = function(sid = "") NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data(miniACC, package = "MultiAssayExperiment")</pre>
+                      <pre class="language-r">                                                    dataname,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                                    datalabel = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   datasets &lt;- init_filtered_data(list(mae = miniACC))</pre>
+                      <pre class="language-r">                                                    ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">70</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">126</td>
+                    <td class="coverage">85<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   fs &lt;- teal_slices(</pre>
+                      <pre class="language-r">  if (!requireNamespace("SummarizedExperiment", quietly = TRUE)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">71</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">#'     teal_slice(</pre>
+                      <pre class="language-r">    stop("Cannot load SummarizedExperiment - please install the package or restart your session.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       dataname = "mae", varname = "years_to_birth", selected = c(30, 50),</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">129</td>
+                    <td class="coverage">85<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       keep_na = TRUE, keep_inf = FALSE</pre>
+                      <pre class="language-r">  SEFilterStates$new(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">74</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">130</td>
+                    <td class="coverage">85<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">75</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">131</td>
+                    <td class="coverage">85<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     teal_slice(</pre>
+                      <pre class="language-r">    data_reactive = data_reactive,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">76</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">132</td>
+                    <td class="coverage">85<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       dataname = "mae", varname = "vital_status", selected = "1",</pre>
+                      <pre class="language-r">    dataname = dataname,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">77</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">133</td>
+                    <td class="coverage">85<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       keep_na = FALSE</pre>
+                      <pre class="language-r">    datalabel = datalabel</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</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">79</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     teal_slice(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       dataname = "mae", varname = "gender", selected = "female",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       keep_na = TRUE</pre>
+                      <pre class="language-r">#' Gets supported filterable variable names</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</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">83</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     teal_slice(</pre>
+                      <pre class="language-r">#' Gets filterable variable names from a given object. The names match variables</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       dataname = "mae", varname = "ARRAY_TYPE", selected = "",</pre>
+                      <pre class="language-r">#' of classes in an vector `teal.slice:::.filterable_class`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       keep_na = TRUE, experiment = "RPPAArray", arg = "subset"</pre>
+                      <pre class="language-r">#' @param data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">#'   the `R` object containing elements which class can be checked through `vapply` or `apply`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#' @return `character` vector of variable names.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">144</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">89</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   # set initial filter state</pre>
+                      <pre class="language-r">#' # use non-exported function from teal.slice</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   set_filter_state(datasets, filter = fs)</pre>
+                      <pre class="language-r">#' get_supported_filter_varnames &lt;- getFromNamespace("get_supported_filter_varnames", "teal.slice")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   # get filter state</pre>
+                      <pre class="language-r">#' df &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   get_filter_state(datasets)</pre>
+                      <pre class="language-r">#'   a = letters[1:3],</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   b = 1:3,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   # modify filter state</pre>
+                      <pre class="language-r">#'   c = Sys.Date() + 1:3,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   set_filter_state(</pre>
+                      <pre class="language-r">#'   d = Sys.time() + 1:3,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     datasets,</pre>
+                      <pre class="language-r">#'   z = complex(3)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     teal_slices(</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       teal_slice(dataname = "mae", varname = "years_to_birth", selected = c(40, 60))</pre>
+                      <pre class="language-r">#' get_supported_filter_varnames(df)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">156</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">101</td>
+                    <td class="num">157</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">102</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">get_supported_filter_varnames &lt;- function(data) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">103</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">159</td>
+                    <td class="coverage">227<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   # remove specific filters</pre>
+                      <pre class="language-r">  UseMethod("get_supported_filter_varnames")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   remove_filter_state(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     datasets,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     teal_slices(</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       teal_slice(dataname = "mae", varname = "years_to_birth"),</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       teal_slice(dataname = "mae", varname = "vital_status")</pre>
+                      <pre class="language-r">get_supported_filter_varnames.default &lt;- function(data) { # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">109</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">165</td>
+                    <td class="coverage">198<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">  is_expected_class &lt;- vapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">110</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">166</td>
+                    <td class="coverage">198<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">    X = data,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">111</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">167</td>
+                    <td class="coverage">198<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    FUN = function(x) any(class(x) %in% .filterable_class),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">112</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">168</td>
+                    <td class="coverage">198<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   # remove all states</pre>
+                      <pre class="language-r">    FUN.VALUE = logical(1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   clear_filter_states(datasets)</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">114</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">170</td>
+                    <td class="coverage">198<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">  names(is_expected_class[is_expected_class])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</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">116</td>
+                    <td class="num">172</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">117</td>
+                    <td class="num">173</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">118</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname filter_state_api</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">get_supported_filter_varnames.matrix &lt;- function(data) { # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">set_filter_state &lt;- function(datasets, filter) {</pre>
+                      <pre class="language-r">  # all columns are the same type in matrix</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">121</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">177</td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(datasets, c("FilteredData", "FilterPanelAPI"))</pre>
+                      <pre class="language-r">  is_expected_class &lt;- class(data[, 1]) %in% .filterable_class</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">122</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">178</td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(filter, "teal_slices")</pre>
+                      <pre class="language-r">  if (is_expected_class &amp;&amp; !is.null(colnames(data))) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">123</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">179</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  datasets$set_filter_state(filter)</pre>
+                      <pre class="language-r">    colnames(data)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">180</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">124</td>
+                    <td class="num">181</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  invisible(NULL)</pre>
+                      <pre class="language-r">    character(0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</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">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname filter_state_api</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_filter_state &lt;- function(datasets) {</pre>
+                      <pre class="language-r">get_supported_filter_varnames.MultiAssayExperiment &lt;- function(data) { # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">130</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">188</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(datasets, c("FilteredData", "FilterPanelAPI"))</pre>
+                      <pre class="language-r">  data &lt;- SummarizedExperiment::colData(data)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">131</td>
-                    <td class="coverage">4<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">  if (isRunning()) {</pre>
+                      <pre class="language-r">  # all columns are the same type in matrix</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">132</td>
+                    <td class="num">190</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    datasets$get_filter_state()</pre>
+                      <pre class="language-r">  is_expected_class &lt;- class(data[, 1]) %in% .filterable_class</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">191</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (is_expected_class &amp;&amp; !is.null(names(data))) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">192</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    names(data)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">134</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">194</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    isolate(datasets$get_filter_state())</pre>
+                      <pre class="language-r">    character(0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname filter_state_api</pre>
+                      <pre class="language-r">#' Returns a `choices_labeled` object</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">199</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">140</td>
+                    <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">remove_filter_state &lt;- function(datasets, filter) {</pre>
-                    </td>
-                  </tr>
-                  <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">  checkmate::assert_multi_class(datasets, c("FilteredData", "FilterPanelAPI"))</pre>
-                    </td>
-                  </tr>
-                  <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">  checkmate::assert_class(filter, "teal_slices")</pre>
+                      <pre class="language-r">#' @param data (`data.frame` or `DFrame` or `list`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   where labels can be taken from in case when `varlabels` is not specified.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">144</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">202</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  datasets$remove_filter_state(filter)</pre>
+                      <pre class="language-r">#'   `data` must be specified if `varlabels` is not specified.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">145</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">203</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  invisible(NULL)</pre>
+                      <pre class="language-r">#' @param choices (`character`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">204</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'  the vector of chosen variables</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">205</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param varlabels (`character`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @rdname filter_state_api</pre>
+                      <pre class="language-r">#'  the labels of variables in data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @param keys (`character`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">clear_filter_states &lt;- function(datasets, force = FALSE) {</pre>
+                      <pre class="language-r">#'  the names of the key columns in data</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">209</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(datasets, c("FilteredData", "FilterPanelAPI"))</pre>
+                      <pre class="language-r">#' @return `character(0)` if choices are empty; a `choices_labeled` object otherwise</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">210</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  datasets$clear_filter_states(force = force)</pre>
+                      <pre class="language-r">#' @keywords internal</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">211</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  invisible(NULL)</pre>
+                      <pre class="language-r">data_choices_labeled &lt;- function(data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">                                 choices,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                 varlabels = teal.data::col_labels(data, fill = TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Gets filter expression for multiple `datanames` taking into account its order.</pre>
+                      <pre class="language-r">                                 keys = character(0)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">157</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">215</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  if (length(choices) == 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">158</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">216</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">    return(character(0))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</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">160</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">218</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' To be used in `Show R Code` button.</pre>
+                      <pre class="language-r">  choice_types &lt;- variable_types(data = data, columns = choices)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">161</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">219</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  choice_types[keys] &lt;- "primary_key"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param datasets (`FilteredData`)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">163</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">221</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param datanames (`character`) vector of dataset names</pre>
+                      <pre class="language-r">  choices_labeled(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">222</td>
+                    <td class="coverage">9<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    choices = choices,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">223</td>
+                    <td class="coverage">9<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    labels = unname(varlabels[choices]),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">224</td>
+                    <td class="coverage">9<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    types = choice_types[choices]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</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">165</td>
+                    <td class="num">226</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A character string containing all subset expressions.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">227</td>
                     <td class="coverage"></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">228</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <td class="num">229</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">169</td>
+                    <td class="num">230</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_filter_expr &lt;- function(datasets, datanames = datasets$datanames()) {</pre>
+                      <pre class="language-r">get_varlabels &lt;- function(data) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">170</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">231</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(datanames, min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">  if (!is.array(data)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">232</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  stopifnot(</pre>
+                      <pre class="language-r">    vapply(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">172</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">233</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    is(datasets, "FilteredData"),</pre>
+                      <pre class="language-r">      colnames(data),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">173</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">234</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    all(datanames %in% datasets$datanames())</pre>
+                      <pre class="language-r">      FUN = function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">174</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">235</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">        label &lt;- attr(data[[x]], "label")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">175</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">236</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        if (is.null(label)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">176</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">237</td>
+                    <td class="coverage">40<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  paste(</pre>
+                      <pre class="language-r">          x</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">238</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    unlist(lapply(</pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">178</td>
+                    <td class="num">239</td>
                     <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      datanames,</pre>
+                      <pre class="language-r">          label</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">179</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">240</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      function(dataname) {</pre>
+                      <pre class="language-r">        }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">241</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      },</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">180</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">242</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        datasets$get_call(dataname)</pre>
+                      <pre class="language-r">      FUN.VALUE = character(1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">243</td>
                     <td class="coverage"></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">244</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">183</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">245</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    collapse = "\n"</pre>
+                      <pre class="language-r">    character(0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</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">185</td>
+                    <td class="num">247</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -66591,1685 +66634,1613 @@ <h2>teal.slice coverage - 65.89%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/calls_combine_by.R" class="hidden">
+            <div id="R/FilterStatesMAE.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">#' Compose predicates</pre>
+                      <pre class="language-r"># MAEFilterStates ------</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">#' Combines calls with a logical operator.</pre>
+                      <pre class="language-r">#' @name MAEFilterStates</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">#' @docType class</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 is used to combine logical predicates produced by `FilterState` objects</pre>
+                      <pre class="language-r">#' @title `FilterStates` subclass for `MultiAssayExperiment`s</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' to build a complete subset expression.</pre>
+                      <pre class="language-r">#' @description Handles filter states in a `MultiAssayExperiment`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</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">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param calls (`list`)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   containing calls (or symbols) to be combined by `operator`</pre>
+                      <pre class="language-r">MAEFilterStates &lt;- R6::R6Class( # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param operator (`character(1)`)</pre>
+                      <pre class="language-r">  classname = "MAEFilterStates",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   infix operator to use in predicate composition, _e.g._ `"&amp;"`</pre>
+                      <pre class="language-r">  inherit = FilterStates,</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">  # public methods ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">  public = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' A `call` where elements of `calls` are composed with `operator` or `NULL` if `calls` is an empty list.</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' Initialize `MAEFilterStates` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</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">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # use non-exported function from teal.slice</pre>
+                      <pre class="language-r">    #' @param data (`MultiAssayExperiment`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' calls_combine_by &lt;- getFromNamespace("calls_combine_by", "teal.slice")</pre>
+                      <pre class="language-r">    #'   the `R` object which `MultiAssayExperiment::subsetByColData` function is applied on.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' @param data_reactive (`function(sid)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' calls &lt;- list(</pre>
+                      <pre class="language-r">    #'   should return a `MultiAssayExperiment` object or `NULL`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   quote(SEX == "F"), # subsetting on factor</pre>
+                      <pre class="language-r">    #'   This object is needed for the `FilterState` counts being updated</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   quote(AGE &gt;= 20 &amp; AGE &lt;= 50), # subsetting on range</pre>
+                      <pre class="language-r">    #'   on a change in filters. If function returns `NULL` then filtered counts are not shown.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   quote(!SURV) # subsetting on logical</pre>
+                      <pre class="language-r">    #'   Function has to have `sid` argument being a character.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">    #' @param dataname (`character(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' calls_combine_by(calls, "&amp;")</pre>
+                      <pre class="language-r">    #'   name of the data used in the subset expression.</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">    #'   Passed to the function argument attached to this `FilterStates`.</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">    #' @param datalabel (`character(1)`) optional</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">    #'   text label.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">calls_combine_by &lt;- function(calls, operator) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">30</td>
-                    <td class="coverage">47<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(calls)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">31</td>
-                    <td class="coverage">45<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (length(calls) &gt; 0L) checkmate::assert_list(calls, types = c("call", "name"))</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">32</td>
-                    <td class="coverage">46<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(operator)</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>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">34</td>
-                    <td class="coverage">44<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  Reduce(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">35</td>
-                    <td class="coverage">44<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    x = calls,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">36</td>
-                    <td class="coverage">44<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    f = function(x, y) call(operator, x, y)</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>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">38</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
-                    </td>
-                  </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/FilterStatesDF.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"># DFFilterStates ------</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>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @name DFFilterStates</pre>
+                      <pre class="language-r">    #' @param varlabels (`character`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @docType class</pre>
+                      <pre class="language-r">    #'   labels of the variables used in this object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' @param keys (`character`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @title `FilterStates` subclass for data frames</pre>
+                      <pre class="language-r">    #'   key column names.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</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">8</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description Handles filter states in a `data.frame`.</pre>
+                      <pre class="language-r">    initialize = function(data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                          data_reactive = function(sid = "") NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">                          dataname,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # use non-exported function from teal.slice</pre>
+                      <pre class="language-r">                          datalabel = "subjects",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' include_css_files &lt;- getFromNamespace("include_css_files", "teal.slice")</pre>
+                      <pre class="language-r">                          keys = character(0)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">39</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' include_js_files &lt;- getFromNamespace("include_js_files", "teal.slice")</pre>
+                      <pre class="language-r">      if (!requireNamespace("MultiAssayExperiment", quietly = TRUE)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">40</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' init_filter_states &lt;- getFromNamespace("init_filter_states", "teal.slice")</pre>
+                      <pre class="language-r">        stop("Cannot load MultiAssayExperiment - please install the package or restart your session.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">41</td>
                     <td class="coverage"></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">42</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(shiny)</pre>
+                      <pre class="language-r">      checkmate::assert_function(data_reactive, args = "sid")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">43</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(shinyjs)</pre>
+                      <pre class="language-r">      checkmate::assert_class(data, "MultiAssayExperiment")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</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">19</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">45</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # create data frame to filter</pre>
+                      <pre class="language-r">      data &lt;- SummarizedExperiment::colData(data)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">46</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data_df &lt;- data.frame(</pre>
+                      <pre class="language-r">      data_reactive &lt;- function(sid = "") SummarizedExperiment::colData(data_reactive(sid = sid))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">47</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   NUM1 = 1:100,</pre>
+                      <pre class="language-r">      super$initialize(data, data_reactive, dataname, datalabel)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">48</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   NUM2 = round(runif(100, min = 20, max = 23)),</pre>
+                      <pre class="language-r">      private$keys &lt;- keys</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">49</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   CHAR1 = sample(LETTERS[1:6], size = 100, replace = TRUE),</pre>
+                      <pre class="language-r">      private$set_filterable_varnames(include_varnames = colnames(data))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   CHAR2 = sample(c("M", "F"), size = 100, replace = TRUE),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">51</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   DATE = seq(as.Date("2020-01-01"), by = 1, length.out = 100),</pre>
+                      <pre class="language-r">      invisible(self)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   DATETIME = as.POSIXct(seq(as.Date("2020-01-01"), by = 1, length.out = 100))</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</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">28</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data_na &lt;- data.frame(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   NUM1 = NA,</pre>
+                      <pre class="language-r">  # private fields ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   NUM2 = NA,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   CHAR1 = NA,</pre>
+                      <pre class="language-r">  private = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   CHAR2 = NA,</pre>
+                      <pre class="language-r">    extract_type = "list",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   DATE = NA,</pre>
+                      <pre class="language-r">    fun = quote(MultiAssayExperiment::subsetByColData)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   DATETIME = NA</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</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>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/variable_types.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data_df &lt;- rbind(data_df, data_na)</pre>
+                      <pre class="language-r">#' Get classes of selected columns from dataset</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</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">38</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # initiate `FilterStates` object</pre>
+                      <pre class="language-r">#' @param data (`data.frame` or `DataFrame` or `matrix`) Object in which to determine variable types.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' filter_states_df &lt;- init_filter_states(</pre>
+                      <pre class="language-r">#' @param columns (`character`) Vector of columns in `data` for which to get types.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = data_df,</pre>
+                      <pre class="language-r">#'   Set to `NULL` to get types of all columns.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   dataname = "dataset",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   datalabel = ("label")</pre>
+                      <pre class="language-r">#' @return Character vector of classes of `columns` from provided `data`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</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">44</td>
+                    <td class="num">9</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">45</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
+                      <pre class="language-r">#' # use non-exported function from teal.slice</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   useShinyjs(),</pre>
+                      <pre class="language-r">#' variable_types &lt;- getFromNamespace("variable_types", "teal.slice")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   include_css_files(pattern = "filter-panel"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   include_js_files(pattern = "count-bar-labels"),</pre>
+                      <pre class="language-r">#' variable_types(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   column(4, tags$div(</pre>
+                      <pre class="language-r">#'   data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tags$h4("Active filters"),</pre>
+                      <pre class="language-r">#'     x = 1:3, y = factor(c("a", "b", "a")), z = c("h1", "h2", "h3"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     filter_states_df$ui_active("fsdf")</pre>
+                      <pre class="language-r">#'     stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</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">53</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   column(4, tags$div(</pre>
+                      <pre class="language-r">#'   "x"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tags$h4("Manual filter control"),</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     filter_states_df$ui_add("add_filters"), tags$br(),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tags$h4("Condition (i.e. call)"), # display the subset expression generated by this FilterStates</pre>
+                      <pre class="language-r">#' variable_types(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     textOutput("call_df"), tags$br(),</pre>
+                      <pre class="language-r">#'   data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tags$h4("Formatted state"), # display human readable filter state</pre>
+                      <pre class="language-r">#'     x = 1:3, y = factor(c("a", "b", "a")), z = c("h1", "h2", "h3"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     textOutput("formatted_df"), tags$br()</pre>
+                      <pre class="language-r">#'     stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">25</td>
                     <td class="coverage"></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">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   column(4, tags$div(</pre>
+                      <pre class="language-r">#'   c("x", "z")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tags$h4("Programmatic filter control"),</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     actionButton("button1_df", "set NUM1 &lt; 30", width = "100%"), tags$br(),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     actionButton("button2_df", "set NUM2 %in% c(20, 21)", width = "100%"), tags$br(),</pre>
+                      <pre class="language-r">#' variable_types(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     actionButton("button3_df", "set CHAR1 %in% c(\"B\", \"C\", \"D\")", width = "100%"), tags$br(),</pre>
+                      <pre class="language-r">#'   data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     actionButton("button4_df", "set CHAR2 == \"F\"", width = "100%"), tags$br(),</pre>
+                      <pre class="language-r">#'     x = 1:3, y = factor(c("a", "b", "a")), z = c("h1", "h2", "h3"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     actionButton("button5_df", "set DATE &lt;= 2020-02-02", width = "100%"), tags$br(),</pre>
+                      <pre class="language-r">#'     stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     actionButton("button6_df", "set DATETIME &lt;= 2020-02-02", width = "100%"), tags$br(),</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tags$hr(),</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     actionButton("button7_df", "remove NUM1", width = "100%"), tags$br(),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     actionButton("button8_df", "remove NUM2", width = "100%"), tags$br(),</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     actionButton("button9_df", "remove CHAR1", width = "100%"), tags$br(),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     actionButton("button10_df", "remove CHAR2", width = "100%"), tags$br(),</pre>
+                      <pre class="language-r">variable_types &lt;- function(data, columns = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">74</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">39</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     actionButton("button11_df", "remove DATE", width = "100%"), tags$br(),</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(data, c("data.frame", "DataFrame", "matrix"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">75</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">#'     actionButton("button12_df", "remove DATETIME", width = "100%"), tags$br(),</pre>
+                      <pre class="language-r">  checkmate::assert_character(columns, any.missing = FALSE, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">76</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">#'     tags$hr(),</pre>
+                      <pre class="language-r">  checkmate::assert_subset(columns, colnames(data))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     actionButton("button0_df", "clear all filters", width = "100%"), tags$br()</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">78</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">43</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ))</pre>
+                      <pre class="language-r">  if (is.matrix(data)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">79</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">44</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">    type &lt;- typeof(data)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">80</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">45</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    if (type == "double") type &lt;- "numeric"</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">81</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">46</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">    types &lt;-</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">82</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">47</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter_states_df$srv_add("add_filters")</pre>
+                      <pre class="language-r">      if (is.null(columns)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">83</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">48</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter_states_df$srv_active("fsdf")</pre>
+                      <pre class="language-r">        stats::setNames(rep_len(type, ncol(data)), nm = colnames(data))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">49</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">85</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">#'   output$call_df &lt;- renderPrint(filter_states_df$get_call())</pre>
+                      <pre class="language-r">        stats::setNames(rep_len(type, length(columns)), nm = columns)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   output$formatted_df &lt;- renderText(filter_states_df$format())</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">52</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">88</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">53</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   observeEvent(input$button1_df, {</pre>
+                      <pre class="language-r">    types &lt;- vapply(data, function(x) class(x)[1L], character(1L))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">89</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">54</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     filter_state &lt;- teal_slices(teal_slice("dataset", "NUM1", selected = c(0, 30)))</pre>
+                      <pre class="language-r">    if (!is.null(columns)) types &lt;- types[columns]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     filter_states_df$set_filter_state(state = filter_state)</pre>
+                      <pre class="language-r">    # alternative after R 4.4.0: `types &lt;- types[columns %||% TRUE]`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">56</td>
                     <td class="coverage"></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="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">57</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   observeEvent(input$button2_df, {</pre>
+                      <pre class="language-r">  types</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     filter_state &lt;- teal_slices(teal_slice("dataset", "NUM2", selected = c(20, 21)))</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">94</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     filter_states_df$set_filter_state(state = filter_state)</pre>
+                      <pre class="language-r">#' Test whether variable name can be used within `Show R Code`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</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">96</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   observeEvent(input$button3_df, {</pre>
+                      <pre class="language-r">#' Variable names containing spaces are problematic and must be wrapped in backticks.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     filter_state &lt;- teal_slices(teal_slice("dataset", "CHAR1", selected = c("B", "C", "D")))</pre>
+                      <pre class="language-r">#' Also, they should not start with a number as `R` may silently make it valid by changing it.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     filter_states_df$set_filter_state(state = filter_state)</pre>
+                      <pre class="language-r">#' Therefore, we only allow alphanumeric characters with underscores.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</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 first character of the `name` must be an alphabetic character and can be followed by alphanumeric characters.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   observeEvent(input$button4_df, {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     filter_state &lt;- teal_slices(teal_slice("dataset", "CHAR2", selected = c("F")))</pre>
+                      <pre class="language-r">#' @md</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     filter_states_df$set_filter_state(state = filter_state)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</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 name (`character`) vector of names to check</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   observeEvent(input$button5_df, {</pre>
+                      <pre class="language-r">#' @return Returns `NULL` or raises error.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     filter_state &lt;- teal_slices(</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       teal_slice("dataset", "DATE", selected = c("2020-01-01", "2020-02-02"))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">check_simple_name &lt;- function(name) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">108</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">15</td>
+                    <td class="coverage">273<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     filter_states_df$set_filter_state(state = filter_state)</pre>
+                      <pre class="language-r">  checkmate::assert_character(name, min.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">109</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">16</td>
+                    <td class="coverage">271<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   })</pre>
+                      <pre class="language-r">  if (!grepl("^[[:alpha:]][a-zA-Z0-9_]*$", name, perl = TRUE)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">110</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">17</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   observeEvent(input$button6_df, {</pre>
+                      <pre class="language-r">    stop(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">111</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">18</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     filter_state &lt;- teal_slices(</pre>
+                      <pre class="language-r">      "name '",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">112</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">19</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       teal_slice("dataset", "DATETIME", selected = as.POSIXct(c("2020-01-01", "2020-02-02")))</pre>
+                      <pre class="language-r">      name,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">113</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">20</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">      "' must only contain alphanumeric characters (with underscores)",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">114</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">21</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     filter_states_df$set_filter_state(state = filter_state)</pre>
+                      <pre class="language-r">      " and the first character must be an alphabetic character"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">22</td>
                     <td class="coverage"></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="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   observeEvent(input$button7_df, {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     filter_state &lt;- teal_slices(teal_slice("dataset", "NUM1"))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     filter_states_df$remove_filter_state(filter_state)</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">120</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">121</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   observeEvent(input$button8_df, {</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">122</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     filter_state &lt;- teal_slices(teal_slice("dataset", "NUM2"))</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">123</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     filter_states_df$remove_filter_state(filter_state)</pre>
+                      <pre class="language-r">#' as needed. Thus, we do not export this method.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <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">125</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   observeEvent(input$button9_df, {</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">126</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     filter_state &lt;- teal_slices(teal_slice("dataset", "CHAR1"))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     filter_states_df$remove_filter_state(filter_state)</pre>
+                      <pre class="language-r">#' @return HTML code that includes `JS` files</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">35</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">129</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   observeEvent(input$button10_df, {</pre>
+                      <pre class="language-r">include_js_files &lt;- function(pattern) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">130</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">37</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     filter_state &lt;- teal_slices(teal_slice("dataset", "CHAR2"))</pre>
+                      <pre class="language-r">  checkmate::assert_character(pattern, min.len = 1, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">131</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">38</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     filter_states_df$remove_filter_state(filter_state)</pre>
+                      <pre class="language-r">  js_files &lt;- list.files(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">132</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">39</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    system.file("js", package = "teal.slice", mustWork = TRUE),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">40</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    pattern = pattern,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">41</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   })</pre>
+                      <pre class="language-r">    full.names = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   observeEvent(input$button11_df, {</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">134</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">43</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     filter_state &lt;- teal_slices(</pre>
+                      <pre class="language-r">  singleton(lapply(js_files, includeScript))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       teal_slice("dataset", "DATE")</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</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">137</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     filter_states_df$remove_filter_state(filter_state)</pre>
+                      <pre class="language-r">#' Build concatenating call</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</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">139</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   observeEvent(input$button12_df, {</pre>
+                      <pre class="language-r">#' This function takes a vector of values and returns a `c` call. If the vector</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     filter_state &lt;- teal_slices(</pre>
+                      <pre class="language-r">#' has only one element, the element is returned directly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       teal_slice("dataset", "DATETIME", selected = as.POSIXct(c("2020-01-01", "2020-02-02")))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">#' @param choices A vector of values.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     filter_states_df$remove_filter_state(filter_state)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   })</pre>
+                      <pre class="language-r">#' @return A `c` call.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</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">146</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   observeEvent(input$button0_df, filter_states_df$clear_filter_states())</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#' # use non-exported function from teal.slice</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' make_c_call &lt;- getFromNamespace("make_c_call", "teal.slice")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (interactive()) {</pre>
+                      <pre class="language-r">#' make_c_call(1:3)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
+                      <pre class="language-r">#' make_c_call(1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</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">152</td>
+                    <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">153</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">make_c_call &lt;- function(choices) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">154</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">63</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">DFFilterStates &lt;- R6::R6Class( # nolint</pre>
+                      <pre class="language-r">  if (length(choices) &gt; 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">155</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">64</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  classname = "DFFilterStates",</pre>
+                      <pre class="language-r">    do.call("call", append(list("c"), choices))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  inherit = FilterStates,</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">157</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">66</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    choices</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # public methods ----</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  public = list(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/calls_combine_by.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">    #' @description</pre>
+                      <pre class="language-r">#' Compose predicates</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Initializes `DFFilterStates` object by setting `dataname`</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'  and initializing `state_list` (`shiny::reactiveVal`).</pre>
+                      <pre class="language-r">#' Combines calls with a logical operator.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' This class contains a single `state_list` with no specified name,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' which means that when calling the subset function associated with this class</pre>
+                      <pre class="language-r">#' This function is used to combine logical predicates produced by `FilterState` objects</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' (`dplyr::filter`), a list of conditions is passed to unnamed arguments (`...`).</pre>
+                      <pre class="language-r">#' to build a complete subset expression.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">7</td>
                     <td class="coverage"></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">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param data (`data.frame`)</pre>
+                      <pre class="language-r">#' @param calls (`list`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   the `R` object which `dplyr::filter` function will be applied on.</pre>
+                      <pre class="language-r">#'   containing calls (or symbols) to be combined by `operator`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param data_reactive (`function(sid)`)</pre>
+                      <pre class="language-r">#' @param operator (`character(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   should return a `data.frame` object or `NULL`.</pre>
+                      <pre class="language-r">#'   infix operator to use in predicate composition, _e.g._ `"&amp;"`</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">    #'   This object is needed for the `FilterState` counts being updated on a change in filters.</pre>
+                      <pre class="language-r">#'</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">    #'   If function returns `NULL` then filtered counts are not shown.</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   Function has to have `sid` argument being a character.</pre>
+                      <pre class="language-r">#' A `call` where elements of `calls` are composed with `operator` or `NULL` if `calls` is an empty list.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param dataname (`character`)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   name of the data used in the *subset expression*.</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   Passed to the function argument attached to this `FilterStates`.</pre>
+                      <pre class="language-r">#' # use non-exported function from teal.slice</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param datalabel (`character(1)`) optional</pre>
+                      <pre class="language-r">#' calls_combine_by &lt;- getFromNamespace("calls_combine_by", "teal.slice")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   text label.</pre>
+                      <pre class="language-r">#'</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">    #' @param keys (`character`)</pre>
+                      <pre class="language-r">#' calls &lt;- list(</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">    #'   key column names.</pre>
+                      <pre class="language-r">#'   quote(SEX == "F"), # subsetting on factor</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">#'   quote(AGE &gt;= 20 &amp; AGE &lt;= 50), # subsetting on range</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">    initialize = function(data,</pre>
+                      <pre class="language-r">#'   quote(!SURV) # subsetting on logical</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">                          data_reactive = function(sid = "") NULL,</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          dataname,</pre>
+                      <pre class="language-r">#' calls_combine_by(calls, "&amp;")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          datalabel = NULL,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          keys = character(0)) {</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">187</td>
-                    <td class="coverage">103<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_function(data_reactive, args = "sid")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">188</td>
-                    <td class="coverage">103<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_data_frame(data)</pre>
+                      <pre class="language-r">calls_combine_by &lt;- function(calls, operator) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">189</td>
-                    <td class="coverage">103<em>x</em></td>
+                    <td class="num">30</td>
+                    <td class="coverage">47<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      super$initialize(data, data_reactive, dataname, datalabel)</pre>
+                      <pre class="language-r">  checkmate::assert_list(calls)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">190</td>
-                    <td class="coverage">103<em>x</em></td>
+                    <td class="num">31</td>
+                    <td class="coverage">45<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      private$keys &lt;- keys</pre>
+                      <pre class="language-r">  if (length(calls) &gt; 0L) checkmate::assert_list(calls, types = c("call", "name"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">191</td>
-                    <td class="coverage">103<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      private$set_filterable_varnames(include_varnames = colnames(private$data))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">192</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">193</td>
-                    <td class="coverage"></td>
+                    <td class="num">32</td>
+                    <td class="coverage">46<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ),</pre>
+                      <pre class="language-r">  checkmate::assert_string(operator)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">194</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">195</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">34</td>
+                    <td class="coverage">44<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # private members ----</pre>
+                      <pre class="language-r">  Reduce(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">196</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">35</td>
+                    <td class="coverage">44<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  private = list(</pre>
+                      <pre class="language-r">    x = calls,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">197</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">36</td>
+                    <td class="coverage">44<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    fun = quote(dplyr::filter)</pre>
+                      <pre class="language-r">    f = function(x, y) call(operator, x, y)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</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">199</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>
                 </tbody>
               </table>
             </div>
-            <div id="R/FilteredDatasetDefault.R" class="hidden">
+            <div id="R/FilterStatesMatrix.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"># DefaultFilteredDataset ----</pre>
+                      <pre class="language-r"># MatrixFilterStates ------</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -68283,7 +68254,7 @@ <h2>teal.slice coverage - 65.89%</h2>
                     <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name DefaultFilteredDataset</pre>
+                      <pre class="language-r">#' @name MatrixFilterStates</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -68297,21 +68268,21 @@ <h2>teal.slice coverage - 65.89%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @title `DefaultFilteredDataset` `R6` class</pre>
+                      <pre class="language-r">#' @title `FilterStates` subclass for matrices</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">#' @description Handles filter states in a `matrix`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description Stores any object as inert entity. Filtering is not supported.</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -68325,147 +68296,147 @@ <h2>teal.slice coverage - 65.89%</h2>
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">MatrixFilterStates &lt;- R6::R6Class( # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # use non-exported function from teal.slice</pre>
+                      <pre class="language-r">  classname = "MatrixFilterStates",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' DefaultFilteredDataset &lt;- getFromNamespace("DefaultFilteredDataset", "teal.slice")</pre>
+                      <pre class="language-r">  inherit = FilterStates,</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"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(shiny)</pre>
+                      <pre class="language-r">  # public methods ----</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">  public = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ds &lt;- DefaultFilteredDataset$new(letters, "letters")</pre>
+                      <pre class="language-r">    #' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' isolate(ds$get_filter_state())</pre>
+                      <pre class="language-r">    #' Initialize `MatrixFilterStates` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' isolate(ds$get_call())</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">    #' @param data (`matrix`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">    #'   the `R` object which `subset` function is applied on.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #' @param data_reactive (`function(sid)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">DefaultFilteredDataset &lt;- R6::R6Class( # nolint</pre>
+                      <pre class="language-r">    #'   should return a `matrix` object or `NULL`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  classname = "DefaultFilteredDataset",</pre>
+                      <pre class="language-r">    #'   This object is needed for the `FilterState` counts being updated on a change in filters.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  inherit = FilteredDataset,</pre>
+                      <pre class="language-r">    #'   If function returns `NULL` then filtered counts are not shown.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #'   Function has to have `sid` argument being a character.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # public methods ----</pre>
+                      <pre class="language-r">    #' @param dataname (`character(1)`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  public = list(</pre>
+                      <pre class="language-r">    #'   name of the data used in the subset expression.</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">    #'   Passed to the function argument attached to this `FilterStates`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">    #' @param datalabel (`character(1)`) optional</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Initializes this `DefaultFilteredDataset` object.</pre>
+                      <pre class="language-r">    #'   text label. Should be a name of experiment.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -68479,1565 +68450,1615 @@ <h2>teal.slice coverage - 65.89%</h2>
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param dataset</pre>
+                      <pre class="language-r">    initialize = function(data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'  any type of object; will not be filtered.</pre>
+                      <pre class="language-r">                          data_reactive = function(sid = "") NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param dataname (`character(1)`)</pre>
+                      <pre class="language-r">                          dataname,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'  syntactically valid name given to the dataset.</pre>
+                      <pre class="language-r">                          datalabel = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">35</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param label (`character(1)`)</pre>
+                      <pre class="language-r">      checkmate::assert_matrix(data)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">36</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   label to describe the dataset.</pre>
+                      <pre class="language-r">      super$initialize(data, data_reactive, dataname, datalabel)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">37</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">      private$set_filterable_varnames(include_varnames = colnames(private$data))</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 Object of class `DefaultFilteredDataset`, invisibly.</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">  ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    initialize = function(dataset, dataname, label = character(0)) {</pre>
+                      <pre class="language-r">  private = list(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">41</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      super$initialize(dataset = dataset, dataname = dataname, label = label)</pre>
+                      <pre class="language-r">    extract_type = "matrix"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <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">43</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/include_css_js.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</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">45</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">3</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>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">4</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>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">5</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' as needed. Thus, we do not export this method.</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>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">7</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @param pattern (`character`) pattern of files to be included</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>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">9</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @return HTML code that includes `CSS` files</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">10</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">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Returns a formatted string representing this `DefaultFilteredDataset` object.</pre>
+                      <pre class="language-r">include_css_files &lt;- function(pattern = "*") {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">12</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  css_files &lt;- list.files(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">13</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    system.file("css", package = "teal.slice", mustWork = TRUE),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">14</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    pattern = pattern, full.names = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</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">47</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">16</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param show_all (`logical(1)`) for method consistency, ignored.</pre>
+                      <pre class="language-r">  singleton(tags$head(lapply(css_files, includeCSS)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param trim_lines (`logical(1)`) flag specifying whether to trim lines if class names are too long.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/FilterStatesDF.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r"># DFFilterStates ------</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return The formatted string.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#' @name DFFilterStates</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    format = function(show_all, trim_lines = FALSE) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">53</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      class_string &lt;- toString(class(private$dataset))</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">54</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      if (trim_lines) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">55</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        trim_position &lt;- 37L</pre>
+                      <pre class="language-r">#' @docType class</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">56</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">        class_string &lt;- strtrim(class_string, trim_position)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">57</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">        substr(class_string, 35L, 37L) &lt;- "..."</pre>
+                      <pre class="language-r">#' @title `FilterStates` subclass for data frames</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">7</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">59</td>
-                    <td class="coverage">4<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">      sprintf(" - unfiltered dataset:\t\"%s\":   %s", private$dataname, class_string)</pre>
+                      <pre class="language-r">#' @description Handles filter states in a `data.frame`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</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">61</td>
+                    <td class="num">10</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">62</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param sid (`character(1)`) for method consistency, ignored.</pre>
+                      <pre class="language-r">#' # use non-exported function from teal.slice</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `NULL`, invisibly.</pre>
+                      <pre class="language-r">#' include_css_files &lt;- getFromNamespace("include_css_files", "teal.slice")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_call = function(sid) {</pre>
+                      <pre class="language-r">#' include_js_files &lt;- getFromNamespace("include_js_files", "teal.slice")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">65</td>
-                    <td class="coverage">1<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">      invisible(NULL)</pre>
+                      <pre class="language-r">#' init_filter_states &lt;- getFromNamespace("init_filter_states", "teal.slice")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</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">67</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `NULL`, invisibly.</pre>
+                      <pre class="language-r">#' library(shiny)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_filter_state = function() {</pre>
+                      <pre class="language-r">#' library(shinyjs)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">69</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">      invisible(NULL)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#' # create data frame to filter</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param state (`teal_slices`) for method consistency, ignored.</pre>
+                      <pre class="language-r">#' data_df &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `NULL`, invisibly.</pre>
+                      <pre class="language-r">#'   NUM1 = 1:100,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    set_filter_state = function(state) {</pre>
+                      <pre class="language-r">#'   NUM2 = round(runif(100, min = 20, max = 23)),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">74</td>
-                    <td class="coverage">3<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">      if (length(state) != 0L) {</pre>
+                      <pre class="language-r">#'   CHAR1 = sample(LETTERS[1:6], size = 100, replace = TRUE),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">75</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">        warning("DefaultFilterState cannot set state")</pre>
+                      <pre class="language-r">#'   CHAR2 = sample(c("M", "F"), size = 100, replace = TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'   DATE = seq(as.Date("2020-01-01"), by = 1, length.out = 100),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">77</td>
-                    <td class="coverage">3<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">      invisible(NULL)</pre>
+                      <pre class="language-r">#'   DATETIME = as.POSIXct(seq(as.Date("2020-01-01"), by = 1, length.out = 100))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</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">79</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param force (`logical(1)`) for method consistency, ignored.</pre>
+                      <pre class="language-r">#' data_na &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return `NULL`, invisibly.</pre>
+                      <pre class="language-r">#'   NUM1 = NA,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    clear_filter_states = function(force) {</pre>
+                      <pre class="language-r">#'   NUM2 = NA,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">82</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">      invisible(NULL)</pre>
+                      <pre class="language-r">#'   CHAR1 = NA,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#'   CHAR2 = NA,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   DATE = NA,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">#'   DATETIME = NA</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Creates row for filter overview in the form of \cr</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' `dataname` - unsupported data class</pre>
+                      <pre class="language-r">#' data_df &lt;- rbind(data_df, data_na)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return A `data.frame`.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    get_filter_overview = function() {</pre>
+                      <pre class="language-r">#' # initiate `FilterStates` object</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">90</td>
-                    <td class="coverage">1<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">      data.frame(dataname = private$dataname, obs = NA, obs_filtered = NA)</pre>
+                      <pre class="language-r">#' filter_states_df &lt;- init_filter_states(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#'   data = data_df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   dataname = "dataset",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # shiny modules ----</pre>
+                      <pre class="language-r">#'   datalabel = ("label")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</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">95</td>
+                    <td class="num">44</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">96</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Overwrites parent method.</pre>
+                      <pre class="language-r">#' ui &lt;- fluidPage(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @details</pre>
+                      <pre class="language-r">#'   useShinyjs(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Blank UI module that would list active filter states for this dataset.</pre>
+                      <pre class="language-r">#'   include_css_files(pattern = "filter-panel"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param id (`character(1)`)</pre>
+                      <pre class="language-r">#'   include_js_files(pattern = "count-bar-labels"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
+                      <pre class="language-r">#'   column(4, tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return An empty `div`.</pre>
+                      <pre class="language-r">#'     tags$h4("Active filters"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_active = function(id) {</pre>
+                      <pre class="language-r">#'     filter_states_df$ui_active("fsdf")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">103</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">52</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="missed">
-                    <td class="num">104</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">53</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tags$div()</pre>
+                      <pre class="language-r">#'   column(4, tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#'     tags$h4("Manual filter control"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     filter_states_df$ui_add("add_filters"), tags$br(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">#'     tags$h4("Condition (i.e. call)"), # display the subset expression generated by this FilterStates</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Overwrites parent method.</pre>
+                      <pre class="language-r">#'     textOutput("call_df"), tags$br(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @details</pre>
+                      <pre class="language-r">#'     tags$h4("Formatted state"), # display human readable filter state</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Blank UI module that would list active filter states for this dataset.</pre>
+                      <pre class="language-r">#'     textOutput("formatted_df"), tags$br()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">60</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">112</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   `shiny` module instance id.</pre>
+                      <pre class="language-r">#'   column(4, tags$div(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @return An empty `div`.</pre>
+                      <pre class="language-r">#'     tags$h4("Programmatic filter control"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ui_add = function(id) {</pre>
+                      <pre class="language-r">#'     actionButton("button1_df", "set NUM1 &lt; 30", width = "100%"), tags$br(),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">115</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">      ns &lt;- NS(id)</pre>
+                      <pre class="language-r">#'     actionButton("button2_df", "set NUM2 %in% c(20, 21)", width = "100%"), tags$br(),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">116</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">      tags$div()</pre>
+                      <pre class="language-r">#'     actionButton("button3_df", "set CHAR1 %in% c(\"B\", \"C\", \"D\")", width = "100%"), tags$br(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'     actionButton("button4_df", "set CHAR2 == \"F\"", width = "100%"), tags$br(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ),</pre>
+                      <pre class="language-r">#'     actionButton("button5_df", "set DATE &lt;= 2020-02-02", width = "100%"), tags$br(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  private = list(</pre>
+                      <pre class="language-r">#'     actionButton("button6_df", "set DATETIME &lt;= 2020-02-02", width = "100%"), tags$br(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # private methods ----</pre>
+                      <pre class="language-r">#'     tags$hr(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # private fields ----</pre>
+                      <pre class="language-r">#'     actionButton("button7_df", "remove NUM1", width = "100%"), tags$br(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'     actionButton("button8_df", "remove NUM2", width = "100%"), tags$br(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">#'     actionButton("button9_df", "remove CHAR1", width = "100%"), tags$br(),</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">73</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">#'     actionButton("button10_df", "remove CHAR2", width = "100%"), tags$br(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     actionButton("button11_df", "remove DATE", width = "100%"), tags$br(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">75</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">#'     actionButton("button12_df", "remove DATETIME", width = "100%"), tags$br(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">76</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">#'     tags$hr(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">77</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">#'     actionButton("button0_df", "clear all filters", width = "100%"), tags$br()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</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">7</td>
+                    <td class="num">79</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">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">80</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">81</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">#' server &lt;- function(input, output, session) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'   filter_states_df$srv_add("add_filters")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">include_css_files &lt;- function(pattern = "*") {</pre>
+                      <pre class="language-r">#'   filter_states_df$srv_active("fsdf")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">12</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">84</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  css_files &lt;- list.files(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">13</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">    system.file("css", package = "teal.slice", mustWork = TRUE),</pre>
+                      <pre class="language-r">#'   output$call_df &lt;- renderPrint(filter_states_df$get_call())</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">14</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">    pattern = pattern, full.names = TRUE</pre>
+                      <pre class="language-r">#'   output$formatted_df &lt;- renderText(filter_states_df$format())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</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="missed">
-                    <td class="num">16</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">  singleton(tags$head(lapply(css_files, includeCSS)))</pre>
+                      <pre class="language-r">#'   observeEvent(input$button1_df, {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'     filter_state &lt;- teal_slices(teal_slice("dataset", "NUM1", selected = c(0, 30)))</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/FilterStatesMatrix.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># MatrixFilterStates ------</pre>
+                      <pre class="language-r">#'     filter_states_df$set_filter_state(state = filter_state)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">91</td>
                     <td class="coverage"></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">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name MatrixFilterStates</pre>
+                      <pre class="language-r">#'   observeEvent(input$button2_df, {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @docType class</pre>
+                      <pre class="language-r">#'     filter_state &lt;- teal_slices(teal_slice("dataset", "NUM2", selected = c(20, 21)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @title `FilterStates` subclass for matrices</pre>
+                      <pre class="language-r">#'     filter_states_df$set_filter_state(state = filter_state)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description Handles filter states in a `matrix`.</pre>
+                      <pre class="language-r">#'   })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'   observeEvent(input$button3_df, {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     filter_state &lt;- teal_slices(teal_slice("dataset", "CHAR1", selected = c("B", "C", "D")))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">MatrixFilterStates &lt;- R6::R6Class( # nolint</pre>
+                      <pre class="language-r">#'     filter_states_df$set_filter_state(state = filter_state)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  classname = "MatrixFilterStates",</pre>
+                      <pre class="language-r">#'   })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  inherit = FilterStates,</pre>
+                      <pre class="language-r">#'   observeEvent(input$button4_df, {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     filter_state &lt;- teal_slices(teal_slice("dataset", "CHAR2", selected = c("F")))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # public methods ----</pre>
+                      <pre class="language-r">#'     filter_states_df$set_filter_state(state = filter_state)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  public = list(</pre>
+                      <pre class="language-r">#'   })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @description</pre>
+                      <pre class="language-r">#'   observeEvent(input$button5_df, {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' Initialize `MatrixFilterStates` object.</pre>
+                      <pre class="language-r">#'     filter_state &lt;- teal_slices(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#'       teal_slice("dataset", "DATE", selected = c("2020-01-01", "2020-02-02"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param data (`matrix`)</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   the `R` object which `subset` function is applied on.</pre>
+                      <pre class="language-r">#'     filter_states_df$set_filter_state(state = filter_state)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param data_reactive (`function(sid)`)</pre>
+                      <pre class="language-r">#'   })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   should return a `matrix` object or `NULL`.</pre>
+                      <pre class="language-r">#'   observeEvent(input$button6_df, {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   This object is needed for the `FilterState` counts being updated on a change in filters.</pre>
+                      <pre class="language-r">#'     filter_state &lt;- teal_slices(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   If function returns `NULL` then filtered counts are not shown.</pre>
+                      <pre class="language-r">#'       teal_slice("dataset", "DATETIME", selected = as.POSIXct(c("2020-01-01", "2020-02-02")))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   Function has to have `sid` argument being a character.</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param dataname (`character(1)`)</pre>
+                      <pre class="language-r">#'     filter_states_df$set_filter_state(state = filter_state)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   name of the data used in the subset expression.</pre>
+                      <pre class="language-r">#'   })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   Passed to the function argument attached to this `FilterStates`.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #' @param datalabel (`character(1)`) optional</pre>
+                      <pre class="language-r">#'   observeEvent(input$button7_df, {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'   text label. Should be a name of experiment.</pre>
+                      <pre class="language-r">#'     filter_state &lt;- teal_slices(teal_slice("dataset", "NUM1"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    #'</pre>
+                      <pre class="language-r">#'     filter_states_df$remove_filter_state(filter_state)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    initialize = function(data,</pre>
+                      <pre class="language-r">#'   })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          data_reactive = function(sid = "") NULL,</pre>
+                      <pre class="language-r">#'   observeEvent(input$button8_df, {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          dataname,</pre>
+                      <pre class="language-r">#'     filter_state &lt;- teal_slices(teal_slice("dataset", "NUM2"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          datalabel = NULL) {</pre>
+                      <pre class="language-r">#'     filter_states_df$remove_filter_state(filter_state)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">35</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">124</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_matrix(data)</pre>
+                      <pre class="language-r">#'   })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">36</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">125</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      super$initialize(data, data_reactive, dataname, datalabel)</pre>
+                      <pre class="language-r">#'   observeEvent(input$button9_df, {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">37</td>
-                    <td class="coverage">25<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">      private$set_filterable_varnames(include_varnames = colnames(private$data))</pre>
+                      <pre class="language-r">#'     filter_state &lt;- teal_slices(teal_slice("dataset", "CHAR1"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'     filter_states_df$remove_filter_state(filter_state)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">128</td>
                     <td class="coverage"></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">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  private = list(</pre>
+                      <pre class="language-r">#'   observeEvent(input$button10_df, {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extract_type = "matrix"</pre>
+                      <pre class="language-r">#'     filter_state &lt;- teal_slices(teal_slice("dataset", "CHAR2"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'     filter_states_df$remove_filter_state(filter_state)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</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>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/utils.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Test whether variable name can be used within `Show R Code`</pre>
+                      <pre class="language-r">#'   observeEvent(input$button11_df, {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     filter_state &lt;- teal_slices(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Variable names containing spaces are problematic and must be wrapped in backticks.</pre>
+                      <pre class="language-r">#'       teal_slice("dataset", "DATE")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Also, they should not start with a number as `R` may silently make it valid by changing it.</pre>
+                      <pre class="language-r">#'     )</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">#' Therefore, we only allow alphanumeric characters with underscores.</pre>
+                      <pre class="language-r">#'     filter_states_df$remove_filter_state(filter_state)</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">#' The first character of the `name` must be an alphabetic character and can be followed by alphanumeric characters.</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">#'</pre>
+                      <pre class="language-r">#'   observeEvent(input$button12_df, {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @md</pre>
+                      <pre class="language-r">#'     filter_state &lt;- teal_slices(</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">#'</pre>
+                      <pre class="language-r">#'       teal_slice("dataset", "DATETIME", selected = as.POSIXct(c("2020-01-01", "2020-02-02")))</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">#' @param name (`character`) vector of names to check</pre>
+                      <pre class="language-r">#'     )</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">#' @return Returns `NULL` or raises error.</pre>
+                      <pre class="language-r">#'     filter_states_df$remove_filter_state(filter_state)</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">#' @keywords internal</pre>
+                      <pre class="language-r">#'   })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">check_simple_name &lt;- function(name) {</pre>
+                      <pre class="language-r">#'   observeEvent(input$button0_df, filter_states_df$clear_filter_states())</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">15</td>
-                    <td class="coverage">273<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">  checkmate::assert_character(name, min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">16</td>
-                    <td class="coverage">271<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">148</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!grepl("^[[:alpha:]][a-zA-Z0-9_]*$", name, perl = TRUE)) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">17</td>
-                    <td class="coverage">5<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">    stop(</pre>
+                      <pre class="language-r">#' if (interactive()) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">18</td>
-                    <td class="coverage">5<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">      "name '",</pre>
+                      <pre class="language-r">#'   shinyApp(ui, server)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">19</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">151</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      name,</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">20</td>
-                    <td class="coverage">5<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">      "' must only contain alphanumeric characters (with underscores)",</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">21</td>
-                    <td class="coverage">5<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">      " and the first character must be an alphabetic character"</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">    )</pre>
+                      <pre class="language-r">DFFilterStates &lt;- R6::R6Class( # nolint</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">  }</pre>
+                      <pre class="language-r">  classname = "DFFilterStates",</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">  inherit = FilterStates,</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"></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">#' Include `JS` files from `/inst/js/` package directory to application header</pre>
+                      <pre class="language-r">  # public methods ----</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">#'</pre>
+                      <pre class="language-r">  public = list(</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">#' `system.file` should not be used to access files in other packages, it does</pre>
+                      <pre class="language-r">    #' @description</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">#' not work with `devtools`. Therefore, we redefine this method in each package</pre>
+                      <pre class="language-r">    #' Initializes `DFFilterStates` object by setting `dataname`</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">#' as needed. Thus, we do not export this method.</pre>
+                      <pre class="language-r">    #'  and initializing `state_list` (`shiny::reactiveVal`).</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">#'</pre>
+                      <pre class="language-r">    #' This class contains a single `state_list` with no specified name,</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">#' @param pattern (`character`) pattern of files to be included, passed to `system.file`</pre>
+                      <pre class="language-r">    #' which means that when calling the subset function associated with this class</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">#'</pre>
+                      <pre class="language-r">    #' (`dplyr::filter`), a list of conditions is passed to unnamed arguments (`...`).</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">#' @return HTML code that includes `JS` files</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">#' @keywords internal</pre>
+                      <pre class="language-r">    #' @param data (`data.frame`)</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">include_js_files &lt;- function(pattern) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">37</td>
-                    <td class="coverage">12<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(pattern, min.len = 1, null.ok = TRUE)</pre>
+                      <pre class="language-r">    #'   the `R` object which `dplyr::filter` function will be applied on.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">38</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">169</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  js_files &lt;- list.files(</pre>
+                      <pre class="language-r">    #' @param data_reactive (`function(sid)`)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">39</td>
-                    <td class="coverage">12<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">    system.file("js", package = "teal.slice", mustWork = TRUE),</pre>
+                      <pre class="language-r">    #'   should return a `data.frame` object or `NULL`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">40</td>
-                    <td class="coverage">12<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">    pattern = pattern,</pre>
+                      <pre class="language-r">    #'   This object is needed for the `FilterState` counts being updated on a change in filters.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">41</td>
-                    <td class="coverage">12<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">    full.names = TRUE</pre>
+                      <pre class="language-r">    #'   If function returns `NULL` then filtered counts are not shown.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    #'   Function has to have `sid` argument being a character.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">43</td>
-                    <td class="coverage">12<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">  singleton(lapply(js_files, includeScript))</pre>
+                      <pre class="language-r">    #' @param dataname (`character`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    #'   name of the data used in the *subset expression*.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    #'   Passed to the function argument attached to this `FilterStates`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Build concatenating call</pre>
+                      <pre class="language-r">    #' @param datalabel (`character(1)`) optional</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    #'   text label.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function takes a vector of values and returns a `c` call. If the vector</pre>
+                      <pre class="language-r">    #' @param keys (`character`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' has only one element, the element is returned directly.</pre>
+                      <pre class="language-r">    #'   key column names.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</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">51</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param choices A vector of values.</pre>
+                      <pre class="language-r">    initialize = function(data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                          data_reactive = function(sid = "") NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `c` call.</pre>
+                      <pre class="language-r">                          dataname,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                          datalabel = NULL,</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">#' @examples</pre>
+                      <pre class="language-r">                          keys = character(0)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">56</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">187</td>
+                    <td class="coverage">103<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # use non-exported function from teal.slice</pre>
+                      <pre class="language-r">      checkmate::assert_function(data_reactive, args = "sid")</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">103<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' make_c_call &lt;- getFromNamespace("make_c_call", "teal.slice")</pre>
+                      <pre class="language-r">      checkmate::assert_data_frame(data)</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">103<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' make_c_call(1:3)</pre>
+                      <pre class="language-r">      super$initialize(data, data_reactive, dataname, datalabel)</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">103<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' make_c_call(1)</pre>
+                      <pre class="language-r">      private$keys &lt;- keys</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">60</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">191</td>
+                    <td class="coverage">103<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      private$set_filterable_varnames(include_varnames = colnames(private$data))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">192</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">62</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">make_c_call &lt;- function(choices) {</pre>
+                      <pre class="language-r">  ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">63</td>
-                    <td class="coverage">55<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">  if (length(choices) &gt; 1) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">64</td>
-                    <td class="coverage">27<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">    do.call("call", append(list("c"), choices))</pre>
+                      <pre class="language-r">  # private members ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">  private = list(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">66</td>
-                    <td class="coverage">28<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">    choices</pre>
+                      <pre class="language-r">    fun = quote(dplyr::filter)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</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">68</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>
                 </tbody>