and: coerce choices vector to character

loosolab · Apr 23, 2018 · 8643bdb · 8643bdb
1 parent 9f20a94
commit 8643bdb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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],