Generate NA's filter selection GUI input — keep_na

When used within filter's GUI input method, the component is responsible for updating `keep_na` filter parameter.

Use `.update_keep_na_input` inside filter's GUI update method to update the output based on the filter state.

Usage

.keep_na_input(input_id, filter, cohort)

.update_keep_na_input(session, input_id, filter, cohort)

Arguments

input_id: Id of the keep na input.
filter: Filter object.
cohort: Cohort object.
session: Shiny session object.

Value

Nested list of `shiny.tag` objects storing html structure of the input, or no value in case of usage 'update' method.

Examples

library(magrittr)
library(cohortBuilder)

librarian_source <- set_source(as.tblist(librarian))
coh <- cohort(
  librarian_source,
  filter(
    "range", id = "copies", name = "Copies", dataset = "books",
    variable = "copies", range = c(5, 12)
  )
) %>% run()
.keep_na_input("keep_na", coh$get_filter("1", "copies"), coh)
#> <div class="form-group shiny-input-container cb_na_input">
#>   <div class="checkbox">
#>     <label>
#>       <input id="keep_na-keep_na" type="checkbox" checked="checked"/>
#>       <span>Keep missing values (0)</span>
#>     </label>
#>   </div>
#> </div>