fix shortString is NA or NULL logic

schloerke · schloerke · commit 93d3b78ac14e · 2019-03-01T15:22:40.000-05:00
diff --git a/R/graph.R b/R/graph.R
@@ -512,7 +512,7 @@ MessageLogger = R6Class(
       self$reactCache[[reactObj$reactId]] <- reactObj
     },
     shortenString = function(txt, n = 250) {
-      if (is.na(txt) || is.null(txt)) {
+      if (is.null(txt) || isTRUE(is.na(txt))) {
         return("")
       }
       if (nchar(txt) > n) {

Original file line number	Diff line number	Diff line change
`@@ -512,7 +512,7 @@ MessageLogger = R6Class(`
`512`	`512`	`self$reactCache[[reactObj$reactId]] <- reactObj`
`513`	`513`	`},`
`514`	`514`	`shortenString = function(txt, n = 250) {`
`515`		`- if (is.na(txt) \|\| is.null(txt)) {`
	`515`	`+ if (is.null(txt) \|\| isTRUE(is.na(txt))) {`
`516`	`516`	`return("")`
`517`	`517`	`}`
`518`	`518`	`if (nchar(txt) > n) {`