no error if showLog() is called multiple times; fixes #105

daattali · Dec 15, 2016 · e9c7e88 · e9c7e88
1 parent 3de2b75
commit e9c7e88
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 1 deletion.
diff --git a/R/showLog.R b/R/showLog.R
@@ -34,6 +34,11 @@
 showLog <- function() {
   session <- getSession()
 
+  if (!is.null(attr(session, "shinyjs_showLog"))) {
+    return()
+  }
+  attr(session, "shinyjs_showLog") <- TRUE
+
   # Capture the console.log function and overwrite it to send the message to R
   shiny::insertUI("head", "beforeEnd", {
     shiny::singleton(shiny::tags$head(shiny::tags$script(

diff --git a/R/useShinyjs.R b/R/useShinyjs.R
@@ -47,7 +47,7 @@ useShinyjs <- function(rmd = FALSE, debug = FALSE, html = FALSE,
   stopifnot(html == TRUE || html == FALSE)
 
   if (!missing(showLog)) {
-    warning("'showLog' has been deprecated. You do not need to call it anymore.",
+    warning("'useShinyjs(showLog = TRUE)' has been deprecated. You do not need to call it anymore.",
             call. = FALSE)
   }