.onLoad <- function(libname, pkgname) { # nolint

  # adapted from https://github.com/r-lib/devtools/blob/master/R/zzz.R

  # Set up the teal logger instance

}

### GLOBAL VARIABLES ###

.filterable_class <- c("logical", "integer", "numeric", "factor", "character", "Date", "POSIXct", "POSIXlt")

### END GLOBAL VARIABLES ###

### ENSURE CHECK PASSES

# This function is necessary for check to properly process code dependencies within R6 classes.

# If `package` is listed in `Imports` in `DESCRIPTION`,

# (1) check goes through `NAMESPACE` looking for any `importFrom(package,<foo>)` statements

# or an `import(package)` statement. If none are found,

# (2) check looks for `package::*` calls in the code. If none are found again,

# (3) check throws a NOTE;

# #  Namespaces in Imports field not imported from:

# #    'package'

# #  All declared Imports should be used.

# This note is banned by our CI.

# When package::* statements are made within an R6 class, they are not registered.

# This function provides single references to the imported namespaces for check to notice.

.rectify_dependencies_check <- function() {

}

### END ENSURE CHECK PASSES

# FilterState ------

#' @name FilterState

#' @docType class

#'

#' @title `FilterState` abstract class

#'

#' @description Abstract class to encapsulate single filter state.

#'

#' @details

#' This class is responsible for managing a single filter item within a `FilteredData` object

#' and outputs a condition call (logical predicate) for subsetting one variable.

#' Filter states depend on the variable type:

#' (`logical`, `integer`, `numeric`, `character`, `factor`, `Date`, `POSIXct`, `POSIXlt`)

#' and `FilterState` subclasses exist that correspond to those types.

#' - `logical`: `class = LogicalFilterState`

#' - `integer`: `class = RangeFilterState`

#' - `numeric`: `class = RangeFilterState`

#' - `character`: `class = ChoicesFilterState`

#' - `factor`: `class = ChoicesFilterState`

#' - `Date`: `class = DateFilterState`

#' - `POSIXct`, `POSIXlt`: `class = DatetimeFilterState`

#' - all `NA` entries: `class: FilterState`, cannot be filtered

#' - default: `FilterState`, cannot be filtered

#'

#' Each variable's filter state is an `R6` object keeps the variable that is filtered,

#' a `teal_slice` object that describes the filter state, as well as a `shiny` module (UI and server)

#' that allows the user to alter the filter state.

#' Changes to the filter state that cause some observations to be omitted

#' trigger the `get_call` method and every `R` function call up in the reactive chain.

#'

#' @section Modifying state:

#' Modifying a `FilterState` object is possible in three scenarios:

#' - In an interactive session, by passing an appropriate `teal_slice` to the `set_state` method.

#' - In a running application, by changing appropriate inputs.

#' - In a running application, by using [filter_state_api] which directly uses

#' `set_state` method of the `FilterState` object.

#'

#' @keywords internal

#'

FilterState <- R6::R6Class( # nolint

  "FilterState",

  # public methods ----

  public = list(

    #' @description

    #' Initialize a `FilterState` object.

    #'

    #' @param x (`vector`)

    #'   variable to be filtered.

    #' @param x_reactive (`reactive`)

    #'   returning vector of the same type as `x`. Is used to update

    #'   counts following the change in values of the filtered dataset.

    #'   If it is set to `reactive(NULL)` then counts based on filtered

    #'   dataset are not shown.

    #' @param slice (`teal_slice`)

    #'   specification of this filter state.

    #'   `teal_slice` is stored in the object and `set_state` directly manipulates values within `teal_slice`.

    #'   `get_state` returns `teal_slice` object which can be reused in other places.

    #'   Note that `teal_slice` is a `reactiveValues`, which means it has reference semantics, i.e.

    #'   changes made to an object are automatically reflected in all places that refer to the same `teal_slice`.

    #' @param extract_type (`character`)

    #'   specifying whether condition calls should be prefixed by `dataname`. Possible values:

    #' - `character(0)` (default) `varname` in the condition call will not be prefixed

    #' - `"list"` `varname` in the condition call will be returned as `<dataname>$<varname>`

    #' - `"matrix"` `varname` in the condition call will be returned as `<dataname>[, <varname>]`

    #'

    #' @return Object of class `FilterState`, invisibly.

    #'

    initialize = function(x,

                          x_reactive = reactive(NULL),

                          slice,

                          extract_type = character(0)) {

      }

      # Set data properties.

      # Set derived data properties.

        }

      )

      # Set extract type.

      # Set state properties.

      # Obtain variable label.

      # Display only when different from varname.

        } else {

        }

    },

    #' @description

    #' Returns a formatted string representing this `FilterState` object.

    #'

    #' @param show_all (`logical(1)`) passed to `format.teal_slice`

    #' @param trim_lines (`logical(1)`) passed to `format.teal_slice`

    #'

    #' @return `character(1)` the formatted string

    #'

    format = function(show_all = FALSE, trim_lines = TRUE) {

      )

    },

    #' @description

    #' Prints this `FilterState` object.

    #'

    #' @param ... additional arguments

    #'

    print = function(...) {

    },

    #' @description

    #' Sets mutable parameters of the filter state.

    #' - `fixed` state is prevented from changing state

    #' - `anchored` state is prevented from removing state

    #'

    #' @param state (`teal_slice`)

    #'

    #' @return `self` invisibly

    #'

    set_state = function(state) {

      } else {

          }

          }

          }

          )

        })

      }

    },

    #' @description

    #' Returns a complete description of the filter state.

    #'

    #' @return A `teal_slice` object.

    #'

    get_state = function() {

    },

    #' @description

    #' Returns reproducible condition call for current selection relevant

    #' for selected variable type.

    #' Method is using internal reactive values which makes it reactive

    #' and must be executed in reactive or isolated context.

    #'

    get_call = function() {

    },

    #' @description

    #' `shiny` module server.

    #'

    #' @param id (`character(1)`)

    #'   `shiny` module instance id.

    #'

    #' @param remove_callback (`function`)

    #'   callback to handle removal of this `FilterState` object from `state_list`

    #'

    #' @return Reactive expression signaling that remove button has been clicked.

    #'

    server = function(id, remove_callback) {

          } else {

          }

            }

          )

            }

          )

            }

          )

          # Buttons for rewind/reset are disabled upon change in history to prevent double-clicking.

          # Re-enabling occurs after 100 ms, after they are potentially hidden when no history is present.

                }

              )

                }

              )

            }

          )

          )

              }

            }

          )

        }

      )

    },

    #' @description

    #' `shiny` UI module.

    #'  The UI for this class contains simple message stating that it is not supported.

    #' @param id (`character(1)`)

    #'  `shiny` module instance id.

    #' @param parent_id (`character(1)`) id of the `FilterStates` card container

    ui = function(id, parent_id = "cards") {

      # Filter card consists of header and body, arranged in a single column.

      # Body is hidden and is toggled by clicking on header.

      ## Header consists of title and summary, arranged in a column.

      ### Title consists of conditional icon, varname, conditional varlabel, and controls, arranged in a row.

      ### Summary consists of value and controls, arranged in a row.

            },

              # Suppress toggling body when clicking on this div.

              # This is for bootstrap 3 and 4. Causes page to scroll to top, prevented by setting href on buttons.

              # This is for bootstrap 5.

                )

              },

                )

              },

                )

              }

            )

          ),

        ),

            } else {

            }

          )

        )

      )

    },

    #' @description

    #' Destroy inputs and observers stored in `private$session_bindings`.

    #'

    #'

    #' @return `NULL`, invisibly.

    #'

    finalize = function() {

    }

  ),

  # private members ----

  private = list(

    # set by constructor

    x = NULL, # the filtered variable

    x_reactive = NULL, # reactive containing the filtered variable, used for updating counts and histograms

    teal_slice = NULL, # stores all transferable properties of this filter state

    extract_type = character(0), # used by private$get_varname_prefixed

    na_count = integer(0),

    filtered_na_count = NULL, # reactive containing the count of NA in the filtered dataset

    varlabel = character(0), # taken from variable labels in data; displayed in filter cards

    # other

    is_choice_limited = FALSE, # flag whether number of possible choices was limited when specifying filter

    session_bindings = list(), # stores observers and inputs to destroy afterwards

    state_history = NULL, # reactiveVal holding a list storing states this FilterState has had since instantiation

    # private methods ----

    # setters for state features ----

    # @description

    # Set values that can be selected from.

    set_choices = function(choices) {

    },

    # @description

    # Set selection.

    #

    # @param value (`vector`)

    #   value(s) that come from filter selection; values are set in the

    #   module server after a selection is made in the app interface;

    #   values are stored in `teal_slice$selected` which is reactive;

    #   value types have to be the same as `private$get_choices()`

    #

    # @return `NULL`, invisibly.

    set_selected = function(value) {

        )

      )

      })

    },

    # @description

    # Sets `value` in `private$teal_slice$keep_na`.

    #

    # @param value (`logical(1)`)

    #   corresponding to the state of a checkbox input in the `shiny` interface.

    #

    # @return `NULL`, invisibly.

    #

    set_keep_na = function(value) {

        )

      )

    },

    # @description

    # Sets `value` in `private$teal_slice$keep_inf`.

    #

    # @param value (`logical(1)`)

    #   corresponding to the state of a checkbox input in the `shiny` interface.

    #

    # @return `NULL`, invisibly.

    #

    set_keep_inf = function(value) {

        )

      )

    },

    # getters for state features ----

    # @description

    # Returns dataname.

    # @return `character(1)`

    get_dataname = function() {

    },

    # @description

    # Get variable name.

    # @return `character(1)`

    get_varname = function() {

    },

    # @description

    # Get id of the teal_slice.

    # @return `character(1)`

    get_id = function() {

    },

    # @description

    # Get allowed values from `FilterState`.

    # @return

    # Vector describing the available choices. Return type depends on the `FilterState` subclass.

    get_choices = function() {

    },

    # @description

    # Get selected values from `FilterState`.

    # @return

    # Vector describing the current selection. Return type depends on the `FilterState` subclass.

    get_selected = function() {

    },

    # @description

    # Returns current `keep_na` selection.

    # @return `logical(1)`

    get_keep_na = function() {

    },

    # @description

    # Returns current `keep_inf` selection.

    # @return (`logical(1)`)

    get_keep_inf = function() {

    },

    # Check whether this filter is fixed (cannot be changed).

    # @return `logical(1)`

    is_fixed = function() {

    },

    # Check whether this filter is anchored (cannot be removed).

    # @return `logical(1)`

    is_anchored = function() {

    },

    # Check whether this filter is capable of selecting multiple values.

    # @return `logical(1)`

    is_multiple = function() {

    },

    # other ----

    # @description

    # Returns variable label.

    # @return `character(1)`

    get_varlabel = function() {

    },

    # @description

    # Return variable name prefixed by `dataname` to be evaluated as extracted object, for example `data$var`

    # @return Call that extracts the variable from the dataset.

    get_varname_prefixed = function(dataname) {

        } else {

        }

    },

    # @description

    # Adds `is.na(varname)` moiety to the existing condition call, according to `keep_na` status.

    # @param filter_call `call` raw filter call, as defined by selection

    # @param varname `character(1)` name of a variable

    # @return `call`

    add_keep_na_call = function(filter_call, varname) {

      # No need to deal with NAs.

      }

      }

    },

    # Converts values to the type fitting this `FilterState` and validates the conversion.

    # Raises error if casting does not execute successfully.

    #

    # @param values vector of values

    #

    # @return vector converted to appropriate class

    cast_and_validate = function(values) {

    },

    # Checks length of selection.

    check_length = function(values) {

    },

    # Filters out erroneous values from vector.

    #

    # @param values vector of values

    #

    # @return vector in which values that cannot be set in this FilterState have been dropped

    remove_out_of_bounds_values = function(values) {

    },

    # Checks if the selection is valid in terms of class and length.

    # It should not return anything but raise an error if selection

    # has a wrong class or is outside of possible choices

    validate_selection = function(value) {

    },

    # @description

    # Checks whether the current settings actually cause any values to be omitted.

    # @return logical scalar

    is_any_filtered = function() {

      } else {

      }

    },

    # shiny modules -----

    # @description

    # Server module to display filter summary

    # @param id (`character(1)`) `shiny` module instance id.

    ui_summary = function(id) {

    },

    # @description

    # UI module to display filter summary

    # @param id (`character(1)`) `shiny` module instance id.

    # @return Nothing. Renders the UI.

    server_summary = function(id) {

        }

      )

    },

    # module with inputs

    ui_inputs = function(id) {

    },

    # module with inputs

    server_inputs = function(id) {

    },

    # @description

    # Module displaying inputs in a fixed filter state.

    # There are no input widgets, only selection visualizations.

    # @param id (`character(1)`) `shiny` module instance id.

    ui_inputs_fixed = function(id) {

      )

    },

    # @description

    # Module creating the display of a fixed filter state.

    # @param id (`character(1)`) `shiny` module instance id.

    server_inputs_fixed = function(id) {

    },

    # @description

    # Module UI function displaying input to keep or remove NA in the `FilterState` call.

    # Renders a checkbox input only when variable with which `FilterState` has been created contains NAs.

    # @param id (`character(1)`) `shiny` module instance id.

    keep_na_ui = function(id) {

              )

            ),

          )

          )

        })

      } else {

      }

    },

    # @description

    # Module server function to handle NA values in the `FilterState`.

    # Sets `private$slice$keep_na` according to the selection

    # and updates the relevant UI element if `private$slice$keep_na` has been changed by the api.

    # @param id (`character(1)`) `shiny` module instance id.

    # @return `NULL`, invisibly.

    keep_na_srv = function(id) {

        # 1. renderUI is used here as an observer which triggers only if output is visible

        #  and if the reactive changes - reactive triggers only if the output is visible.

        # 2. We want to trigger change of the labels only if reactive count changes (not underlying data)

          )

        })

        # this observer is needed in the situation when private$keep_inf has been

        # changed directly by the api - then it's needed to rerender UI element

        # to show relevant values

              )

            }

          }

        )

            } else {

            }

          }

        )

      })

    }

  )

)

#' Managing `FilteredData` states

#'

#' @description `r lifecycle::badge("experimental")`

#'

#' Set, get and remove filter states of `FilteredData` object.

#'

#' @name filter_state_api

#'

#' @param datasets (`FilteredData`)

#'   object to store filter state and filtered datasets, shared across modules

#'

#'   see [`FilteredData`] for details

#'

#' @param filter (`teal_slices`)

#'   specify filters in place on app start-up

#'

#' @param force (`logical(1)`)

#'   flag specifying whether to include anchored filter states.

#'

#' @return

#' - `set_*`, `remove_*` and `clear_filter_state` return `NULL` invisibly

#' - `get_filter_state` returns a named `teal_slices` object

#'    containing a `teal_slice` for every existing `FilterState`

#'

#' @seealso [`teal_slice`]

#'

#' @examples

#' datasets <- init_filtered_data(list(iris = iris, mtcars = mtcars))

#' fs <- teal_slices(

#'   teal_slice(dataname = "iris", varname = "Species", selected = c("setosa", "versicolor")),

#'   teal_slice(dataname = "iris", varname = "Sepal.Length", selected = c(5.1, 6.4)),

#'   teal_slice(dataname = "mtcars", varname = "gear", selected = c(4, 5)),

#'   teal_slice(dataname = "mtcars", varname = "carb", selected = c(4, 10))

#' )

#'

#' # set initial filter state

#' set_filter_state(datasets, filter = fs)

#'

#' # get filter state

#' get_filter_state(datasets)

#'

#' # modify filter state

#' set_filter_state(

#'   datasets,

#'   teal_slices(

#'     teal_slice(dataname = "iris", varname = "Species", selected = "setosa", keep_na = TRUE)

#'   )

#' )

#'

#' # remove specific filters

#' remove_filter_state(

#'   datasets,

#'   teal_slices(

#'     teal_slice(dataname = "iris", varname = "Species"),

#'     teal_slice(dataname = "mtcars", varname = "gear"),

#'     teal_slice(dataname = "mtcars", varname = "carb")

#'   )

#' )

#'

#' # remove all states

#' clear_filter_states(datasets)

#'

#' @examples

#' \donttest{

#' if (requireNamespace("MultiAssayExperiment", quietly = TRUE)) {

#'   # Requires MultiAssayExperiment from Bioconductor

#'   data(miniACC, package = "MultiAssayExperiment")

#'

#'   datasets <- init_filtered_data(list(mae = miniACC))

#'   fs <- teal_slices(

#'     teal_slice(

#'       dataname = "mae", varname = "years_to_birth", selected = c(30, 50),

#'       keep_na = TRUE, keep_inf = FALSE

#'     ),

#'     teal_slice(

#'       dataname = "mae", varname = "vital_status", selected = "1",

#'       keep_na = FALSE

#'     ),

#'     teal_slice(

#'       dataname = "mae", varname = "gender", selected = "female",

#'       keep_na = TRUE

#'     ),

#'     teal_slice(

#'       dataname = "mae", varname = "ARRAY_TYPE", selected = "",

#'       keep_na = TRUE, experiment = "RPPAArray", arg = "subset"

#'     )

#'   )

#'

#'   # set initial filter state

#'   set_filter_state(datasets, filter = fs)

#'

#'   # get filter state

#'   get_filter_state(datasets)

#'

#'   # modify filter state

#'   set_filter_state(

#'     datasets,

#'     teal_slices(

#'       teal_slice(dataname = "mae", varname = "years_to_birth", selected = c(40, 60))

#'     )

#'   )

#'

#'   # remove specific filters

#'   remove_filter_state(

#'     datasets,

#'     teal_slices(

#'       teal_slice(dataname = "mae", varname = "years_to_birth"),

#'       teal_slice(dataname = "mae", varname = "vital_status")

#'     )

#'   )

#'

#'   # remove all states

#'   clear_filter_states(datasets)

#' }

#' }

NULL

#' @rdname filter_state_api

#' @export

set_filter_state <- function(datasets, filter) {

}

#' @rdname filter_state_api

#' @export

get_filter_state <- function(datasets) {

  } else {

  }

}

#' @rdname filter_state_api

#' @export

remove_filter_state <- function(datasets, filter) {

}

#' @rdname filter_state_api

#' @export

clear_filter_states <- function(datasets, force = FALSE) {

}

#' Gets filter expression for multiple `datanames` taking into account its order.

#'

#' @description `r lifecycle::badge("stable")`

#'

#' To be used in `Show R Code` button.

#'

#' @param datasets (`FilteredData`)

#' @param datanames (`character`) vector of dataset names

#'

#' @return A character string containing all subset expressions.

#'

#' @export

#'

get_filter_expr <- function(datasets, datanames = datasets$datanames()) {

      }

    )),

  )

}

# MAEFilteredDataset ------

#' @name MAEFilteredDataset

#' @docType class

#' @title `MAEFilteredDataset` `R6` class

#'

#' @examplesIf requireNamespace("MultiAssayExperiment")

#' # use non-exported function from teal.slice

#' MAEFilteredDataset <- getFromNamespace("MAEFilteredDataset", "teal.slice")

#'

#' data(miniACC, package = "MultiAssayExperiment")

#' dataset <- MAEFilteredDataset$new(miniACC, "MAE")

#' fs <- teal_slices(

#'   teal_slice(

#'     dataname = "MAE", varname = "years_to_birth", selected = c(30, 50), keep_na = TRUE

#'   ),

#'   teal_slice(

#'     dataname = "MAE", varname = "vital_status", selected = "1", keep_na = FALSE

#'   ),

#'   teal_slice(

#'     dataname = "MAE", varname = "gender", selected = "female", keep_na = TRUE

#'   ),

#'   teal_slice(

#'     dataname = "MAE", varname = "ARRAY_TYPE", selected = "", keep_na = TRUE

#'   )

#' )

#' dataset$set_filter_state(state = fs)

#'

#' library(shiny)

#' isolate(dataset$get_filter_state())

#'

#' @keywords internal

#'

MAEFilteredDataset <- R6::R6Class( # nolint

  classname = "MAEFilteredDataset",

  inherit = FilteredDataset,

  # public methods ----

  public = list(

    #' @description

    #' Initialize `MAEFilteredDataset` object.

    #'

    #' @param dataset (`MulitiAssayExperiment`)

    #'  single `MulitiAssayExperiment` for which filters are rendered.

    #' @param dataname (`character(1)`)

    #'  syntactically valid name given to the dataset.

    #' @param keys (`character`) optional

    #'   vector of primary key column names.

    #' @param label (`character(1)`)

    #'   label to describe the dataset.

    #'

    #' @return Object of class `MAEFilteredDataset`, invisibly.

    #'

    initialize = function(dataset, dataname, keys = character(0), label = character(0)) {

      }

      # subsetting by subjects means subsetting by colData(MAE)

        ),

      )

      # elements of the list (experiments) are unknown

      # dispatch needed because we can't hardcode methods otherwise:

      #  if (matrix) else if (SummarizedExperiment) else if ...

            ),

          )

        }

      )

    },

    #' @description

    #' Set filter state.

    #'

    #' @param state (`teal_slices`)

    #' @return `NULL`, invisibly.

    #'

    set_filter_state = function(state) {

        })

        # set state on subjects

        # set state on experiments

        # determine target experiments (defined in teal_slices)

          ))

        }

        # set states on state_lists with corresponding experiments

        })

      })

    },

    #' @description

    #' Remove one or more `FilterState` of a `MAEFilteredDataset`.

    #'

    #' @param state (`teal_slices`)

    #'   specifying `FilterState` objects to remove;

    #'   `teal_slice`s may contain only `dataname` and `varname`, other elements are ignored.

    #'

    #' @return `NULL`, invisibly.

    #'

    remove_filter_state = function(state) {

        # remove state on subjects

        # remove state on experiments

        # determine target experiments (defined in teal_slices)

          ))

        }

        # remove states on state_lists with corresponding experiments

        })

      })

    },

    #' @description

    #' UI module to add filter variable for this dataset.

    #' @param id (`character(1)`)

    #'   `shiny` module instance id.

    #'

    #' @return `shiny.tag`

    #'

    ui_add = function(id) {

              )

            }

          )

        )

      )

    },

    #' @description

    #' Creates row for filter overview in the form of \cr

    #' `dataname -- observations (remaining/total) -- subjects (remaining/total)` - MAE

    #' @return A `data.frame`.

    get_filter_overview = function() {

      )

          )

        }

      ))

      }

          )

        }

      ))

    }

  )

)

# RangeFilterState ------

#' @name RangeFilterState

#' @docType class

#'

#' @title `FilterState` object for numeric data

#'

#' @description Manages choosing a numeric range.

#'

#' @examples

#' # use non-exported function from teal.slice

#' include_css_files <- getFromNamespace("include_css_files", "teal.slice")

#' include_js_files <- getFromNamespace("include_js_files", "teal.slice")

#' RangeFilterState <- getFromNamespace("RangeFilterState", "teal.slice")

#'

#' library(shiny)

#'

#' filter_state <- RangeFilterState$new(

#'   x = c(NA, Inf, seq(1:10)),

#'   slice = teal_slice(varname = "x", dataname = "data")

#' )

#' isolate(filter_state$get_call())

#' filter_state$set_state(

#'   teal_slice(

#'     dataname = "data",

#'     varname = "x",

#'     selected = c(3L, 8L),

#'     keep_na = TRUE,

#'     keep_inf = TRUE

#'   )

#' )

#' isolate(filter_state$get_call())

#'

#' # working filter in an app

#' library(shinyjs)

#'

#' data_range <- c(runif(100, 0, 1), NA, Inf)

#' fs <- RangeFilterState$new(

#'   x = data_range,

#'   slice = teal_slice(

#'     dataname = "data",

#'     varname = "x",

#'     selected = c(0.15, 0.93),

#'     keep_na = TRUE,

#'     keep_inf = TRUE

#'   )

#' )

#'

#' ui <- fluidPage(

#'   useShinyjs(),

#'   include_css_files(pattern = "filter-panel"),

#'   include_js_files(pattern = "count-bar-labels"),

#'   column(4, tags$div(

#'     tags$h4("RangeFilterState"),

#'     fs$ui("fs")

#'   )),

#'   column(4, tags$div(

#'     id = "outputs", # div id is needed for toggling the element

#'     tags$h4("Condition (i.e. call)"), # display the condition call generated by this FilterState

#'     textOutput("condition_range"), tags$br(),

#'     tags$h4("Unformatted state"), # display raw filter state

#'     textOutput("unformatted_range"), tags$br(),

#'     tags$h4("Formatted state"), # display human readable filter state

#'     textOutput("formatted_range"), tags$br()

#'   )),

#'   column(4, tags$div(

#'     tags$h4("Programmatic filter control"),

#'     actionButton("button1_range", "set drop NA", width = "100%"), tags$br(),

#'     actionButton("button2_range", "set keep NA", width = "100%"), tags$br(),

#'     actionButton("button3_range", "set drop Inf", width = "100%"), tags$br(),

#'     actionButton("button4_range", "set keep Inf", width = "100%"), tags$br(),

#'     actionButton("button5_range", "set a range", width = "100%"), tags$br(),

#'     actionButton("button6_range", "set full range", width = "100%"), tags$br(),

#'     actionButton("button0_range", "set initial state", width = "100%"), tags$br()

#'   ))

#' )

#'

#' server <- function(input, output, session) {

#'   fs$server("fs")

#'   output$condition_range <- renderPrint(fs$get_call())

#'   output$formatted_range <- renderText(fs$format())

#'   output$unformatted_range <- renderPrint(fs$get_state())

#'   # modify filter state programmatically

#'   observeEvent(

#'     input$button1_range,

#'     fs$set_state(teal_slice(dataname = "data", varname = "x", keep_na = FALSE))

#'   )

#'   observeEvent(

#'     input$button2_range,

#'     fs$set_state(teal_slice(dataname = "data", varname = "x", keep_na = TRUE))

#'   )

#'   observeEvent(

#'     input$button3_range,

#'     fs$set_state(teal_slice(dataname = "data", varname = "x", keep_inf = FALSE))

#'   )

#'   observeEvent(

#'     input$button4_range,

#'     fs$set_state(teal_slice(dataname = "data", varname = "x", keep_inf = TRUE))

#'   )

#'   observeEvent(

#'     input$button5_range,

#'     fs$set_state(

#'       teal_slice(dataname = "data", varname = "x", selected = c(0.2, 0.74))

#'     )

#'   )

#'   observeEvent(

#'     input$button6_range,

#'     fs$set_state(teal_slice(dataname = "data", varname = "x", selected = c(0, 1)))

#'   )

#'   observeEvent(

#'     input$button0_range,

#'     fs$set_state(

#'       teal_slice("data", "variable", selected = c(0.15, 0.93), keep_na = TRUE, keep_inf = TRUE)

#'     )

#'   )

#' }

#'

#' if (interactive()) {

#'   shinyApp(ui, server)

#' }

#' @keywords internal

#'

RangeFilterState <- R6::R6Class( # nolint

  "RangeFilterState",

  inherit = FilterState,

  # public methods ----

  public = list(

    #' @description

    #' Initialize a `FilterState` object for range selection.

    #' @param x (`numeric`)

    #'   variable to be filtered.

    #' @param x_reactive (`reactive`)

    #'   returning vector of the same type as `x`. Is used to update

    #'   counts following the change in values of the filtered dataset.

    #'   If it is set to `reactive(NULL)` then counts based on filtered

    #'   dataset are not shown.

    #' @param slice (`teal_slice`)

    #'   specification of this filter state.

    #'   `teal_slice` is stored in the object and `set_state` directly manipulates values within `teal_slice`.

    #'   `get_state` returns `teal_slice` object which can be reused in other places.

    #'   Note that `teal_slice` is a `reactiveValues`, which means it has reference semantics, i.e.

    #'   changes made to an object are automatically reflected in all places that refer to the same `teal_slice`.

    #' @param extract_type (`character`)

    #'   specifying whether condition calls should be prefixed by `dataname`. Possible values:

    #' - `character(0)` (default) `varname` in the condition call will not be prefixed

    #' - `"list"` `varname` in the condition call will be returned as `<dataname>$<varname>`

    #' - `"matrix"` `varname` in the condition call will be returned as `<dataname>[, <varname>]`

    #'

    #' @return Object of class `RangeFilterState`, invisibly.

    #'

    initialize = function(x,

                          x_reactive = reactive(NULL),

                          extract_type = character(0),

                          slice) {

        )

        )

        )

        ))

            ),

          )

        })

          )

        })