commit 133b627a19525ee5c531a7319683817f23b9f770
author Marc Kupietz <kupietz@ids-mannheim.de> Fri Feb 18 16:38:39 2022 +0100
committer Marc Kupietz <kupietz@ids-mannheim.de> Fri Feb 18 16:38:39 2022 +0100
tree 536438333e54d2078a257ae0dd6badd00fd6c56b
parent 9bb500836cfcc849852a17ca30b40480781c21c6

shiny demo: fix query split

Change-Id: I519db8f6201e3c71ca71d609d349c09b83d75165

inst/shiny-apps/frequency_curves/server.R

diff --git a/inst/shiny-apps/frequency_curves/server.R b/inst/shiny-apps/frequency_curves/server.R
index a2e1477..de740bf 100644
--- a/inst/shiny-apps/frequency_curves/server.R
+++ b/inst/shiny-apps/frequency_curves/server.R
@@ -56,7 +56,7 @@
 generateHighchart <- function(wordParam, from=2005, to=2020) {
   years <<- c(from:to)
   if (wordParam != "") {
-    query <<- str_split(wordParam, " *, *", simplify = TRUE)
+    query <<- strsplit(wordParam, " *, *")
     withProgress(message = 'Berechnung läuft: ', value = 0, {
       hc <- plotHighchart(query, vc , years)
     })