add force = TRUE for jsonlite::toJSON conversion primarily to han…

…dle `shiny.tag` as prop #67
react-R · Dec 2, 2023 · 313adfc · 313adfc
1 parent bd72b36
commit 313adfc
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/reacttools.R b/R/reacttools.R
@@ -145,10 +145,10 @@ createReactShinyInput <- function(inputId,
     container(id = inputId, class = class),
     htmltools::tags$script(id = sprintf("%s_value", inputId),
                            type = "application/json",
-                           jsonlite::toJSON(value, auto_unbox = TRUE, null = "null")),
+                           jsonlite::toJSON(value, auto_unbox = TRUE, null = "null", force = TRUE)),
     htmltools::tags$script(id = sprintf("%s_configuration", inputId),
                            type = "application/json",
-                           jsonlite::toJSON(configuration, auto_unbox = TRUE, null = "null")),
+                           jsonlite::toJSON(configuration, auto_unbox = TRUE, null = "null", force = TRUE)),
     dependencies
   )
 }