send love to @elenlefoll for the patience; close #11

Author: agricolamz

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: checkdown
 Type: Package
 Title: Check-Fields and Check-Boxes  for 'rmarkdown'
-Version: 0.0.12
+Version: 0.0.13
 Depends: R (>= 3.5.0)
 Authors@R: c(person("George", "Moroz",
              role = c("aut", "cre"),
@@ -18,5 +18,5 @@ BugReports: https://github.com/agricolamz/checkdown/issues
 Suggests: rmarkdown, knitr
 License: GPL (>= 2)
 Encoding: UTF-8
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.3
 VignetteBuilder: knitr

NEWS

@@ -1,3 +1,6 @@
+checkdown 0.0.13 (27.09.2025)
+- fix the issue with the alignment issue with longer answer options #11, thx to @elenlefoll
+
 checkdown 0.0.12 (27.10.2023)
 - fast fix after the `insert_score()` problem (thanks to Ulyana Astafyeva and Dasha Gurevich for bringing it up)
 

R/check_question.R

@@ -123,22 +123,22 @@ check_question <- function(answer,
 
     UI_part <- lapply(seq_along(options), function(i){
       htmltools::tagList(
-        htmltools::tags$input(type = type,
-                              name = glue::glue("answer_{q_id}"),
-                              id = glue::glue("answer_{q_id}_{i}"),
-                              value = ifelse(inherits(options[i], "list"), i, options[i])),
-        htmltools::tags$label(options[i]),
+        htmltools::tags$label(htmltools::tags$input(type = type,
+                                                    name = glue::glue("answer_{q_id}"),
+                                                    id = glue::glue("answer_{q_id}_{i}"),
+                                                    value = ifelse(inherits(options[i], "list"), i, options[i])),
+                              options[i]),
         if(alignment == "vertical"){htmltools::tags$br()})
     })
 
   } else if(type == "checkbox" & !is.null(options)){
 
     UI_part <- lapply(seq_along(options), function(i){
       htmltools::tagList(
-        htmltools::tags$input(type = type,
-                              id = glue::glue("answer_{q_id}_{i}"),
-                              value = ifelse(inherits(options[i], "list"), i, options[i])),
-        htmltools::tags$label(options[i]),
+        htmltools::tags$label(htmltools::tags$input(type = type,
+                                                    id = glue::glue("answer_{q_id}_{i}"),
+                                                    value = ifelse(inherits(options[i], "list"), i, options[i])),
+                              options[i]),
         if(alignment == "vertical"){htmltools::tags$br()})
     })
   } else if(type == "in_order" & is.null(options)){