Update checkbox.R

Minor modification to multiple_checkbox(), such that the "inline" option now works

Author: amanigaultw

R/checkbox.R

@@ -142,10 +142,12 @@ multiple_checkbox <- function(input_id, label, choices, choices_value = choices,
   }))
 
   shiny::div(
-    id = input_id, class = paste(position, "fields ss-checkbox-input"),
-    tags$label(`for` = input_id, label),
-    choices_html,
-    ...
+    class = "ui form", id = input_id , 
+    shiny::div(class = paste(position, "fields ss-checkbox-input"),
+               tags$label(`for` = input_id, label),
+               choices_html,
+               ...
+    )
   )
 }