Dash for R v0.7.1 (#221)

Author: rpkyle

CHANGELOG.md

@@ -2,6 +2,11 @@
 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
+- Fixes a minor bug in debug mode that prevented display of user-defined error messages when induced by invoking the `stop` function. [#220](https://github.com/plotly/dashR/pull/220).
+- URLs for unpkg.com for dash-renderer were outdated, and now fetch v1.6.0 also; `dash-renderer` v1.5.1 has been removed from `inst/lib`.
+
 ## [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/internal.R

@@ -37,7 +37,7 @@
                                                class = "html_dependency"),
                         `dash-renderer-dev` = structure(list(name = "dash-renderer",
                                                          version = "1.6.0",
-                                                         src = list(href = "https://unpkg.com/dash-renderer@1.5.1",
+                                                         src = list(href = "https://unpkg.com/dash-renderer@1.6.0",
                                                                     file = "lib/[email protected]"),
                                                          meta = NULL,
                                                          script = "dash-renderer/dash_renderer.dev.js",
@@ -49,7 +49,7 @@
                                                     class = "html_dependency"),
                         `dash-renderer-map-dev` = structure(list(name = "dash-renderer",
                                                          version = "1.6.0",
-                                                         src = list(href = "https://unpkg.com/dash-renderer@1.5.1",
+                                                         src = list(href = "https://unpkg.com/dash-renderer@1.6.0",
                                                                     file = "lib/[email protected]"),
                                                          meta = NULL,
                                                          script = "dash-renderer/dash_renderer.dev.js.map",
@@ -61,7 +61,7 @@
                                                     class = "html_dependency"),
                         `dash-renderer-prod` = structure(list(name = "dash-renderer",
                                                          version = "1.6.0",
-                                                         src = list(href = "https://unpkg.com/dash-renderer@1.5.1",
+                                                         src = list(href = "https://unpkg.com/dash-renderer@1.6.0",
                                                                     file = "lib/[email protected]"),
                                                          meta = NULL,
                                                          script = "dash-renderer/dash_renderer.min.js",
@@ -73,7 +73,7 @@
                                                     class = "html_dependency"),
                         `dash-renderer-map-prod` = structure(list(name = "dash-renderer",
                                                          version = "1.6.0",
-                                                         src = list(href = "https://unpkg.com/dash-renderer@1.5.1",
+                                                         src = list(href = "https://unpkg.com/dash-renderer@1.6.0",
                                                                     file = "lib/[email protected]"),
                                                          meta = NULL,
                                                          script = "dash-renderer/dash_renderer.min.js.map",

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)
           }