fixed escaping of special characters

dreamRs · Feb 25, 2022 · f3d3bdd · f3d3bdd
1 parent 3b80ea6
commit f3d3bdd
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 4 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -6,6 +6,7 @@ export(make_tree)
 export(searchTreeview)
 export(treecheckInput)
 export(treeviewInput)
+importFrom(htmltools,HTML)
 importFrom(htmltools,htmlDependencies)
 importFrom(htmltools,htmlDependency)
 importFrom(htmltools,tags)

diff --git a/R/input-treecheck.R b/R/input-treecheck.R
@@ -7,7 +7,7 @@
 #' @return Server-side: A `character` value or a `list` depending on the `return_value` argument.
 #' @export
 #'
-#' @importFrom htmltools tags validateCssUnit htmlDependencies
+#' @importFrom htmltools tags validateCssUnit htmlDependencies HTML
 #' @importFrom shiny icon restoreInput
 #' @importFrom jsonlite toJSON
 #'
@@ -55,7 +55,7 @@ treecheckInput <- function(inputId,
       `data-return` = return_value,
       tags$script(
         type = "application/json", `data-for` = inputId,
-        jsonlite::toJSON(options, auto_unbox = TRUE, json_verbatim = TRUE)
+        HTML(jsonlite::toJSON(options, auto_unbox = TRUE, json_verbatim = TRUE))
       )
     ),
     html_dependency_treeview(),

diff --git a/R/input-treeview.R b/R/input-treeview.R
@@ -20,7 +20,7 @@
 #' @return Server-side: A \code{character} value or a \code{list} depending on the \code{return_value} argument.
 #' @export
 #'
-#' @importFrom htmltools tags validateCssUnit
+#' @importFrom htmltools tags validateCssUnit HTML
 #' @importFrom jsonlite toJSON
 #' @importFrom shiny restoreInput
 #'
@@ -63,7 +63,7 @@ treeviewInput <- function(inputId,
       `data-return` = return_value,
       tags$script(
         type = "application/json", `data-for` = inputId,
-        jsonlite::toJSON(options, auto_unbox = TRUE, json_verbatim = TRUE)
+        HTML(jsonlite::toJSON(options, auto_unbox = TRUE, json_verbatim = TRUE))
       )
     ),
     html_dependency_treeview()