commit 5d70ffe543c5828dd06e31f900fdd678a722d3db
author Marc Kupietz <kupietz@ids-mannheim.de> Thu Mar 12 11:16:43 2020 +0100
committer Marc Kupietz <kupietz@ids-mannheim.de> Thu Mar 12 11:23:05 2020 +0100
tree bffd4759adb6557d1fd1c143e7e077ab8701ee7d
parent a6a425758aefc01b22999f718296084230a69995

highcharter-helper: improve handling of single query terms

Change-Id: I057f88c5bdf100cc1464b7a2c211db7a41e228c5

R/highcharter-helper.R

diff --git a/R/highcharter-helper.R b/R/highcharter-helper.R
index 76ebdc7..ad2168c 100644
--- a/R/highcharter-helper.R
+++ b/R/highcharter-helper.R
@@ -49,9 +49,11 @@
                                               queryStringToLabel(vc, excludePubDate = TRUE )))
       }
     } else {
-      title <- base::unique(df$query)
-      if(length(base::unique(queryStringToLabel(df$vc, excludePubDate = TRUE ))) > 1) {
+      if (length(base::unique(queryStringToLabel(df$vc, excludePubDate = TRUE ))) > 1) {
+        title <- base::unique(df$query)
         df <- df %>% mutate(condition = queryStringToLabel(vc, excludePubDate = TRUE ))
+      } else {
+        df <- df %>% mutate(condition = query)
       }
     }
   }