correct check_hints() function; close #5

Author: agricolamz

DESCRIPTION

@@ -3,14 +3,16 @@ Type: Package
 Title: Check-Fields and Check-Boxes  for 'rmarkdown'
 Version: 0.0.6
 Depends: R (>= 3.5.0)
-Author: George Moroz
-Maintainer: George Moroz <agricolamz@gmail.com>
+Authors@R: c(person("George", "Moroz",
+             role = c("aut", "cre"),
+             email = "agricolamz@gmail.com",
+             comment = c(ORCID="0000-0003-1990-6083")))
 Description: Creates auto checking check-fields and check-boxes for 'rmarkdown' html. It could be used in class, when teacher share materials and tasks, so student can solve some problems and check themselves. In contrast with the 'learnr' package the 'checkdown' package works without 'shiny'.
 Imports: knitr, markdown
 URL: https://agricolamz.github.io/checkdown/
 BugReports: https://github.com/agricolamz/checkdown/issues
 Suggests: rmarkdown
 License: GPL (>= 2)
 Encoding: UTF-8
-RoxygenNote: 7.1.0
+RoxygenNote: 7.1.1
 VignetteBuilder: knitr

NEWS

@@ -1,3 +1,6 @@
+checkdown 0.0.6 (16.10.2020)
+  - correct the "check_hints" problem.
+
 checkdown 0.0.5 (14.05.2020)
   - if argument "answer" in the "check_question()" function is NULL thene remove check button. Thnaks to @ManuelSpinola for the idea.
   - correct the "insert_images()" function

R/check_hint.R

@@ -21,8 +21,11 @@
 
 check_hint <- function(hint_text,
                        hint_title = "Click here to see/close the hint",
-                       hint_id = sample(1:1e5, 1)){
+                       hint_id = sample(1e5:1, 1)){
   if(knitr::is_html_output()){
+    if(grepl("\\.", hint_id)){
+      hint_id <- gsub("\\.", "_", hint_id)
+    }
     hint_text <- (markdown::markdownToHTML(text = hint_text,
                                            output = NULL,
                                            fragment.only = TRUE))
@@ -33,6 +36,7 @@ check_hint <- function(hint_text,
                                             fragment.only = TRUE))
     hint_title <- gsub("(<.?p>)|(\n)|(\\#)", "", hint_title)
 
+    print(hint_id)
     cat(paste0(c('<p id="hint_',
                  hint_id,
                  '", onclick="return show_hint_',

R/check_hints.R

@@ -31,7 +31,7 @@ check_hints <- function(hint_text,
   if(knitr::is_html_output()){
     hint_title <- paste0(hint_title_prefix, hint_title, hint_title_suffix)
     df <- data.frame(hint_text, hint_title, stringsAsFactors = FALSE)
-    df$hint_id <- sample(2:1e5, nrow(df))
+    df$hint_id <- sample(1:1e5, nrow(df))
 
     df$hint_text <- unlist(lapply(seq_along(df$hint_text), function(i){
       x <- as.character(df$hint_text[i])
@@ -67,28 +67,30 @@ check_hints <- function(hint_text,
                     '"></p>',
                     collapse = "")
 
+    id <- sample(2e+05:1e5, 1)
+
     cat(paste0(c('<p id="hint_',
-                 1,
+                 id,
                  '", onclick="return show_hint_',
-                 1,
+                 id,
                  '()">',
                  list_title,
                  '</p><p id="result_',
-                 1,
+                 id,
                  '"></p>',
                  '<script> function show_hint_',
-                 1,
+                 id,
                  '() {',
                  'var x = document.getElementById("result_',
-                 1,
+                 id,
                  '").innerHTML;',
                  "if(!x){document.getElementById('result_",
-                 1,
+                 id,
                  "').innerHTML = '",
                  hints,
                  "';}",
                  'else {document.getElementById("result_',
-                 1,
+                 id,
                  '").innerHTML = "";}}',
                  paste0(
                  'function show_hint_',