From a281f97c76d747186385a4741aac08c3e9b6569a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Todor=20Kondi=C4=87?= <todor.kondic@uni.lu>
Date: Thu, 7 May 2020 12:34:16 +0200
Subject: [PATCH] get_tags_from_txt: Fix problem with isolation
* R/shiny-ui-config.R(get_tags_from_txt): Isolating input$tagsInp
prevents fireworks.
---
R/shiny-ui-config.R | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/R/shiny-ui-config.R b/R/shiny-ui-config.R
index cc62652..570573d 100644
--- a/R/shiny-ui-config.R
+++ b/R/shiny-ui-config.R
@@ -132,7 +132,7 @@ react_conf_f <- function(input,output,session,rv,rf) {
rf$get_tags_from_txt <- react_f({
## Tags in the text box.
input$updTagsB
- if (isTruthy(input$tagsInp)) txt2tags(input$tagsInp) else TAG_DEF
+ isol(if (isTruthy(input$tagsInp)) unique(txt2tags(input$tagsInp)) else TAG_DEF)
})
rf
--
GitLab