From fb9ece9b4a0a8bce6151795cdf86426e74c05278 Mon Sep 17 00:00:00 2001
From: Patrick Roelli <ethosdemos.info@gmail.com>
Date: Sun, 13 Feb 2022 20:50:04 +0100
Subject: [PATCH] fix: Add multiplechoice support for shinyform.R

---
 R/shinyform.R | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/R/shinyform.R b/R/shinyform.R
index c158727..90e45b2 100644
--- a/R/shinyform.R
+++ b/R/shinyform.R
@@ -215,6 +215,8 @@ formUI <- function(formInfo) {
               input <- numericInput(ns(question$id), NULL, 0)
             } else if (question$type == "checkbox") {
               input <- checkboxInput(ns(question$id), label, FALSE)
+            } else if(question$type == "multiplechoice") {
+              input <- radioButtons(ns(question$id), label = NULL, choices = question$choices)
             }
 
             div(