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 @@

teal.slice coverage - 69.75%

-
- +
+
@@ -1384,7 +1384,7 @@

teal.slice coverage - 69.75%

182 - 733x + 753x
      private$teal_slice
@@ -2847,14 +2847,14 @@

teal.slice coverage - 69.75%

391 - 403x + 408x
      .finalize_session_bindings(self, private)
392 - 403x + 408x
      invisible(NULL)
@@ -25673,14 +25673,14 @@

teal.slice coverage - 69.75%

72 - 12x + 36x
          private$state_list_empty(force = TRUE)
73 - 12x + 36x
          isolate(private$state_list(NULL))
@@ -29768,14 +29768,14 @@

teal.slice coverage - 69.75%

657 - 34x + 38x
      checkmate::assert_character(state_id)
658 - 34x + 38x
      logger::log_debug("{ class(self)[1] } removing a filter, state_id: { toString(state_id) }")
@@ -29789,56 +29789,56 @@

teal.slice coverage - 69.75%

660 - 34x + 38x
      isolate({
661 - 34x + 38x
        current_state_ids <- vapply(private$state_list(), function(x) x$get_state()$id, character(1))
662 - 34x + 38x
        to_remove <- state_id %in% current_state_ids
663 - 34x + 38x
        if (any(to_remove)) {
664 - 33x + 37x
          new_state_list <- Filter(
665 - 33x + 37x
            function(state) {
666 - 72x + 78x
              if (state$get_state()$id %in% state_id) {
667 - 58x + 64x
                if (state$get_state()$anchored && !force) {
@@ -29859,14 +29859,14 @@

teal.slice coverage - 69.75%

670 - 51x + 57x
                  state$finalize()
671 - 51x + 57x
                  FALSE
@@ -29908,7 +29908,7 @@

teal.slice coverage - 69.75%

677 - 33x + 37x
            private$state_list()
@@ -29922,7 +29922,7 @@

teal.slice coverage - 69.75%

679 - 33x + 37x
          private$state_list(new_state_list)
@@ -29964,7 +29964,7 @@

teal.slice coverage - 69.75%

685 - 34x + 38x
      invisible(NULL)
@@ -30034,21 +30034,21 @@

teal.slice coverage - 69.75%

695 - 37x + 61x
      isolate({
696 - 37x + 61x
        logger::log_debug(
697 - 37x + 61x
          "{ class(self)[1] }$state_list_empty removing all non-anchored filters for dataname: { private$dataname }"
@@ -30069,28 +30069,28 @@

teal.slice coverage - 69.75%

700 - 37x + 61x
        state_list <- private$state_list()
701 - 37x + 61x
        if (length(state_list)) {
702 - 17x + 21x
          state_ids <- vapply(state_list, function(x) x$get_state()$id, character(1))
703 - 17x + 21x
          private$state_list_remove(state_ids, force)
@@ -30118,7 +30118,7 @@

teal.slice coverage - 69.75%

707 - 37x + 61x
      invisible(NULL)
@@ -40543,14 +40543,14 @@

teal.slice coverage - 69.75%

58 - 1292x + 1298x
    !is.null(getDefaultReactiveDomain()) &&
59 - 1292x + 1298x
      !getDefaultReactiveDomain()$isEnded()
@@ -40564,7 +40564,7 @@

teal.slice coverage - 69.75%

61 - 33x + 97x
    lapply(private$session_bindings, function(x) x$destroy())
@@ -40578,7 +40578,7 @@

teal.slice coverage - 69.75%

63 - 1292x + 1298x
  invisible(NULL)
@@ -40748,7 +40748,7 @@

teal.slice coverage - 69.75%

87 392x -
  id_new <- gsub(pattern_escape, "_", id)
+
  id_new <- gsub(pattern_escape, "_", id, perl = TRUE)
@@ -64654,7 +64654,7 @@

teal.slice coverage - 69.75%

112 - 26x + 30x
      private$teal_slice
@@ -64913,14 +64913,14 @@

teal.slice coverage - 69.75%

149 - 14x + 15x
      .finalize_session_bindings(self, private)
150 - 14x + 15x
      invisible(NULL)