fast fix after the insert_score problem (thanks to @falseFlax and Dasha Gurevich for bringing it up)

Author: agricolamz

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: checkdown
 Type: Package
 Title: Check-Fields and Check-Boxes  for 'rmarkdown'
-Version: 0.0.11
+Version: 0.0.12
 Depends: R (>= 3.5.0)
 Authors@R: c(person("George", "Moroz",
              role = c("aut", "cre"),

NEWS

@@ -1,3 +1,6 @@
+checkdown 0.0.12 (27.10.2023)
+- fast fix after the `insert_score()` problem (thanks to @falseflax and Dasha Gurevich for bringing it up)
+
 checkdown 0.0.11 (18.10.2023)
 - add the `insert_score()` function (thanks to @Julieblas for bringing it up)
 

R/check_question.R

@@ -7,7 +7,7 @@
 #' @param type character that defines type of the list. Possible values: \code{text}, \code{select}, \code{radio}, \code{checkbox}, \code{in_order}
 #' @param button_label character value that will be displayed on the button
 #' @param placeholder character that defines a short hint that describes the expected value of an input field. This works with the \code{text} input type only.
-#' @param alignment logical argument for options' alignment: \code{vertical} or \code{horizontal}
+#' @param alignment character argument for options' alignment: \code{vertical} or \code{horizontal}
 #' @param random_answer_order logical argument that denotes whether answers should be shuffled, when the \code{type} value is \code{select}, \code{radio} or \code{checkbox}
 #' @param title character value that will be displayed as a question title. It is possible to put there the question. You can put markdown markup. Since this argument wraps the form contents with \code{fieldset} tags, you can redefine it appearance with CSS.
 #' @param width_of_in_order character with some values for width of the boxes, when the \code{type} value is \code{in_order}. Possible values: "30px", "20\%"

R/zzz.R

@@ -30,10 +30,13 @@
 insert_js_code_for_score_calculation <- function() {
   df <- utils::read.csv(getOption("checkdown.table"), header = TRUE)
   df$rows_id <- seq_along(df$q_id)
-  paste0("function evaluate_final_score(){",
-         paste0("var text, ", paste0("res", df$rows_id, collapse = ", "), ";"),
+  paste0("function evaluate_final_score(){
+         element = document.getElementById('checkdown_final_score');
+         if(element === null){return false;} else {",
+         paste0("var element, text, ", paste0("res", df$rows_id, collapse = ", "), ";"),
          paste0(glue::glue_data(df, "res{rows_id} = document.getElementById('result_{q_id}').innerText == '{right}';"), collapse = " "),
          paste0("text = ", paste0("res", df$rows_id, collapse = " + "), ";"),
-         "document.getElementById('checkdown_final_score').innerHTML = text;
-         return false;}")
+         "element.innerHTML = text;
+         return false;
+         }}")
 }