diff --git a/coverage-report/index.html b/coverage-report/index.html index ea2ddfb54..16f0c8b6e 100644 --- a/coverage-report/index.html +++ b/coverage-report/index.html @@ -107,8 +107,8 @@
private$teal_slice
.finalize_session_bindings(self, private)
invisible(NULL)
private$state_list_empty(force = TRUE)
isolate(private$state_list(NULL))
checkmate::assert_character(state_id)
logger::log_debug("{ class(self)[1] } removing a filter, state_id: { toString(state_id) }")
isolate({
current_state_ids <- vapply(private$state_list(), function(x) x$get_state()$id, character(1))
to_remove <- state_id %in% current_state_ids
if (any(to_remove)) {
new_state_list <- Filter(
function(state) {
if (state$get_state()$id %in% state_id) {
if (state$get_state()$anchored && !force) {
state$finalize()
FALSE
private$state_list()
private$state_list(new_state_list)
invisible(NULL)
isolate({
logger::log_debug(
"{ class(self)[1] }$state_list_empty removing all non-anchored filters for dataname: { private$dataname }"
state_list <- private$state_list()
if (length(state_list)) {
state_ids <- vapply(state_list, function(x) x$get_state()$id, character(1))
private$state_list_remove(state_ids, force)
invisible(NULL)
!is.null(getDefaultReactiveDomain()) &&
!getDefaultReactiveDomain()$isEnded()
lapply(private$session_bindings, function(x) x$destroy())
invisible(NULL)
id_new <- gsub(pattern_escape, "_", id)+
id_new <- gsub(pattern_escape, "_", id, perl = TRUE)
private$teal_slice
.finalize_session_bindings(self, private)
invisible(NULL)