Use grep(value=TRUE)

2026-02-09 22:25:59 -05:00 · 2019-05-30 14:38:05 -05:00
parent 0b46c63c31
commit 5cd4588ef2
1 changed files with 3 additions and 1 deletions
--- a/R/reactives.R
+++ b/R/reactives.R
@@ -425,7 +425,9 @@ ReactiveValues <- R6Class(
      }

      dep.keys <- .dependents$keys()
-      dep.keys <- dep.keys[grepl(paste('^\\Q', key, ':', '\\E', '\\d+$', sep=''), dep.keys)]
+      dep.keys <- grep(
+        paste('^\\Q', key, ':', '\\E', '\\d+$', sep=''), dep.keys, value = TRUE
+      )
      lapply(
        .dependents$mget(dep.keys),
        function(ctx) {