Fix debug mode warning output display (#220)

Author: Metin Yazici

CHANGELOG.md

@@ -2,6 +2,10 @@
 All notable changes to `dash` will be documented in this file.
 This project adheres to [Semantic Versioning](http://semver.org/).
 
+## [0.7.1] - 2020-07-30
+### Fixed
+- A minor bug in debug mode that the user-defined error messages weren't displayed as warning messages. [#220](https://github.com/plotly/dashR/pull/220).
+
 ## [0.7.0] - 2020-07-28
 ### Added
 - Dash for R now supports an `update_title` parameter, as in Dash for Python. [#218](https://github.com/plotly/dashR/pull/218)

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: dash
 Title: An Interface to the Dash Ecosystem for Authoring Reactive Web Applications
-Version: 0.7.0
+Version: 0.7.1
 Authors@R: c(person("Chris", "Parmer", role = c("aut"), email = "[email protected]"), person("Ryan Patrick", "Kyle", role = c("aut", "cre"), comment = c(ORCID = "0000-0001-5829-9867"), email = "[email protected]"), person("Carson", "Sievert", role = c("aut"), comment = c(ORCID = "0000-0002-4958-2844")), person("Hammad", "Khan", role = c("aut"), email = "[email protected]"), person(family = "Plotly Technologies", role = "cph")) 
 Description: A framework for building analytical web applications, Dash offers a pleasant and productive development experience. No JavaScript required.
 Depends:

R/utils.R

@@ -747,7 +747,7 @@ stackTraceToHTML <- function(call_stack,
 # stack will be "pruned" of error handling functions
 # for greater readability.
 getStackTrace <- function(expr, debug = FALSE, prune_errors = TRUE) {
-  if(debug) {
+  if (debug) {
     tryCatch(withCallingHandlers(
       expr,
       error = function(e) {
@@ -813,22 +813,18 @@ getStackTrace <- function(expr, debug = FALSE, prune_errors = TRUE) {
               } else if (currentCall[[1]] == "stop") {
                 # handle case where function developer deliberately invokes a stop
                 # condition and halts function execution
-                identical(deparse(errorCall), deparse(currentCall))
-                }
-              else {
+                TRUE
+              } else {
                 FALSE
               }
-
-              }
-              )
-            )
+            }))
             # the position to stop at is one less than the difference
             # between the total number of calls and the index of the
             # call throwing the error
             stopIndex <- length(calls) - indexFromLast + 1
 
             startIndex <- match(TRUE, lapply(functionsAsList, function(fn) fn == "getStackTrace"))
-            functionsAsList <- functionsAsList[startIndex:stopIndex]
+            functionsAsList <- functionsAsList[seq(startIndex, stopIndex)]
             functionsAsList <- removeHandlers(functionsAsList)
           }