Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
- Loading branch information
Showing
83 changed files
with
5,787 additions
and
5,316 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,70 @@ | ||
| #' @name FilterState | ||
| #' @docType class | ||
| #' | ||
| #' | ||
| #' @title FilterState Abstract Class | ||
| #' | ||
| #' @description Abstract class to encapsulate filter states | ||
| #' | ||
| #' @details | ||
| #' This abstract class to encapsulate [InteractiveFilterState] | ||
| #' @keywords internal | ||
| FilterState <- R6::R6Class( # nolint | ||
| "FilterState", | ||
|
|
||
| # public methods ---- | ||
| public = list( | ||
| #' @description | ||
| #' Initialize a `FilterState` object | ||
| #' @param x (`vector`)\cr | ||
| #' values of the variable used in filter | ||
| #' @param varname (`character`)\cr | ||
| #' name of the variable | ||
| #' @param varlabel (`character(1)`)\cr | ||
| #' label of the variable (optional). | ||
| #' @param dataname (`character(1)`)\cr | ||
| #' name of dataset where `x` is taken from. | ||
| #' @param extract_type (`character(0)`, `character(1)`)\cr | ||
| #' whether condition calls should be prefixed by dataname. Possible values: | ||
| #' \itemize{ | ||
| #' \item{`character(0)` (default)}{ `varname` in the condition call will not be prefixed} | ||
| #' \item{`"list"`}{ `varname` in the condition call will be returned as `<dataname>$<varname>`} | ||
| #' \item{`"matrix"`}{ `varname` in the condition call will be returned as `<dataname>[, <varname>]`} | ||
| #' } | ||
| #' | ||
| #' @return self invisibly | ||
| #' | ||
| initialize = function(x, | ||
| varname, | ||
| varlabel = character(0), | ||
| dataname = NULL, | ||
| extract_type = character(0)) { | ||
| checkmate::assert_string(varname) | ||
| checkmate::assert_character(varlabel, max.len = 1, any.missing = FALSE) | ||
| checkmate::assert_string(dataname, null.ok = TRUE) | ||
|
|
||
| private$dataname <- dataname | ||
| private$varname <- varname | ||
| private$varlabel <- if (identical(varlabel, as.character(varname))) { | ||
| # to not display duplicated label | ||
| character(0) | ||
| } else { | ||
| varlabel | ||
| } | ||
| invisible(self) | ||
| }, | ||
|
|
||
| #' @description | ||
| #' Returns reproducible condition call | ||
| #' | ||
| get_call = function() { | ||
| NULL | ||
| } | ||
| ), | ||
| # private members ---- | ||
| private = list( | ||
| dataname = character(0), | ||
| varname = character(0), | ||
| varlabel = character(0) | ||
| ) | ||
| ) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Oops, something went wrong.