fix: make dropdown work with a singular choice

Fixes: #60
Appsilon · Aug 5, 2024 · 8b6f1a6 · 8b6f1a6
1 parent 4f9dc39
commit 8b6f1a6
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 1 deletion.
diff --git a/R/inputs.R b/R/inputs.R
@@ -129,7 +129,7 @@ build_dropdown_extra_choices <- function(choices) {
   if (length(choices) == 0) {
     choices_js <- ""
   } else {
-    choices_js <- paste0(", choices: ", rjson::toJSON(choices))
+    choices_js <- paste0(", choices: ", rjson::toJSON(as.list(choices)))
   }
 
   return(choices_js)

diff --git a/tests/testthat/test-inputs.R b/tests/testthat/test-inputs.R
@@ -34,6 +34,12 @@ test_that("`dropdown_extra` sets choices to blank when length is 0", {
   expect_equal(choices, "")
 })
 
+test_that("`dropdown_extra` serializes a single value as an array", {
+  choices <- build_dropdown_extra_choices("a")
+
+  expect_equal(choices, ', choices: ["a"]')
+})
+
 test_that("`dropdown_extra` sets choices correctly", {
   choices <- build_dropdown_extra_choices(letters[1:3])