diff --git a/R/shiny-ui-config.R b/R/shiny-ui-config.R index cc626524c440da361b7270fc86057482461253a6..570573dc41619004b3c1e02fb68bf68f02ac6186 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