Add labels in collocationAnalysis when called with vectors

Change-Id: I78f4e6a1eeb59302416d38d160b29267666d50b1
diff --git a/R/collocationAnalysis.R b/R/collocationAnalysis.R
index 15daea9..d2ad284 100644
--- a/R/collocationAnalysis.R
+++ b/R/collocationAnalysis.R
@@ -132,7 +132,8 @@
           ...
         )
       }) |>
-        bind_rows()
+        bind_rows() |>
+        mutate(label = queryStringToLabel(vc))
     } else {
       set.seed(seed)
       candidates <- collocatesQuery(