Visualize does not complete

Running Visualize(myAhp) leads to a JavaScript abort as shown in the stack trace below. When running inside RStudio the stack trace appears in the Viewer panel. When running from an R shell the stack trace appears in the browser. Running other AHP commands such as Calculate(myAhp), Anaylze(myAhp), AnalyzeTable(myAhp) and tree prints succeed as expected.

However, on the same model, running g <- GetGraph(myAhp) yields a class from which the DOT notation representation can be copied and pasted to GraphViz for successful drawing. Consequently, the issue may not be associated with AHP itself but rather with the dependent JS libraries.

Stack trace:

abort(0) at jsStackTrace@http://localhost:18175/session/viewhtml6fea52a704ac/lib/viz-0.3/viz.js:5:22072
stackTrace@http://localhost:18175/session/viewhtml6fea52a704ac/lib/viz-0.3/viz.js:5:22258
abort@http://localhost:18175/session/viewhtml6fea52a704ac/lib/viz-0.3/viz.js:28:10656
nullFunc_iii@http://localhost:18175/session/viewhtml6fea52a704ac/lib/viz-0.3/viz.js:5:662065
a8@http://localhost:18175/session/viewhtml6fea52a704ac/lib/viz-0.3/viz.js:21:31634
iC@http://localhost:18175/session/viewhtml6fea52a704ac/lib/viz-0.3/viz.js:9:83383
aD@http://localhost:18175/session/viewhtml6fea52a704ac/lib/viz-0.3/viz.js:9:102098
uF@http://localhost:18175/session/viewhtml6fea52a704ac/lib/viz-0.3/viz.js:9:173805
pG@http://localhost:18175/session/viewhtml6fea52a704ac/lib/viz-0.3/viz.js:9:204484
xc@http://localhost:18175/session/viewhtml6fea52a704ac/lib/viz-0.3/viz.js:11:740
http://localhost:18175/session/viewhtml6fea52a704ac/lib/viz-0.3/viz.js:28:403
ccallFunc@http://localhost:18175/session/viewhtml6fea52a704ac/lib/viz-0.3/viz.js:5:8402
http://localhost:18175/session/viewhtml6fea52a704ac/lib/viz-0.3/viz.js:47:42
renderValue@http://localhost:18175/session/viewhtml6fea52a704ac/lib/grViz-binding-0.8.4/grViz.js:38:27
http://localhost:18175/session/viewhtml6fea52a704ac/lib/htmlwidgets-0.8/htmlwidgets.js:625:30
forEach@[native code]
forEach@http://localhost:18175/session/viewhtml6fea52a704ac/lib/htmlwidgets-0.8/htmlwidgets.js:55:21
http://localhost:18175/session/viewhtml6fea52a704ac/lib/htmlwidgets-0.8/htmlwidgets.js:551:14
forEach@[native code]
forEach@http://localhost:18175/session/viewhtml6fea52a704ac/lib/htmlwidgets-0.8/htmlwidgets.js:55:21
staticRender@http://localhost:18175/session/viewhtml6fea52a704ac/lib/htmlwidgets-0.8/htmlwidgets.js:549:12
http://localhost:18175/session/viewhtml6fea52a704ac/lib/htmlwidgets-0.8/htmlwidgets.js:638:38

R session info:

R version 3.2.3 (2015-12-10)
Platform: x86_64-apple-darwin13.4.0 (64-bit)
Running under: OS X 10.12.1 (unknown)

locale:
[1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] ahp_0.2.10

loaded via a namespace (and not attached):
 [1] igraph_1.0.1        Rcpp_0.12.8         rstudioapi_0.6      knitr_1.15.1        magrittr_1.5        munsell_0.4.3       colorspace_1.3-1   
 [8] R6_2.2.0            stringr_1.1.0       plyr_1.8.4          tools_3.2.3         visNetwork_1.0.2    influenceR_0.1.0    DiagrammeR_0.8.4   
[15] htmltools_0.3.5     yaml_2.1.14         digest_0.6.10       rprojroot_1.1       htmlwidgets_0.8     evaluate_0.10       rmarkdown_1.2      
[22] stringi_1.1.2       scales_0.4.1        backports_1.0.4     data.tree_0.6.2     jsonlite_1.1        formattable_0.2.0.1

[gluc]

Hmm, that's a tough one. My guess would be that it's a problem in DiagrammeR. I had previously experienced problems with special characters in node names, for instance. If you prepare a reproducible example, I might be able to help, no promises though :-(

The first time I ran this "reproducible" example, the visualization succeeded. Subsequent runs, however, failed. Stopping and restarting R and RStudio did not repair the state. So I post here a small example and model file to learn if others experience the same sort of non-determinism.

library(ahp)
ahpName <- "model.txt" # text suffix for issue posting
if (! file.exists(ahpName)) {
  stop(paste("Cannot find AHP file",ahpName))
}

myAhp <- Load(ahpName)

# calculate
Calculate(myAhp)

# visualize -- fails
Visualize(myAhp)

# analyze -- succeeds


Analyze(myAhp)
AnalyzeTable(myAhp)

model.txt