From 8643bdb4a0c96f66a3e502c5c80e72e4ccb431b3 Mon Sep 17 00:00:00 2001
From: Schultheis <hschult@kerckhoff.mpg.de>
Date: Mon, 23 Apr 2018 08:53:47 +0200
Subject: [PATCH] and: coerce choices vector to character

---
 R/and.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/and.R b/R/and.R
index 492f551..f37bcf2 100644
--- a/R/and.R
+++ b/R/and.R
@@ -237,7 +237,7 @@ and <- function(input, output, session, data, show.elements = NULL, element.grou
         shiny::callModule(
           module = orTextual,
           id = openssl::sha1(names(data.r())[x]),
-          choices = data.r()[[x]],
+          choices = as.character(data.r()[[x]]),
           label = parameter()$column.labels[x],
           delimiter = parameter()$delimiter[x],
           multiple = parameter()$multiple[x],