fall back on empty string for NULL title. fixes #634.

cpsievert · cpsievert · commit 91b6ffd841b3 · 2016-10-03T12:40:06.000-05:00
diff --git a/R/ggplotly.R b/R/ggplotly.R
@@ -79,7 +79,7 @@ ggplotly.ggmatrix <- function(p = ggplot2::last_plot(), width = NULL,
     subplotList <- c(subplotList, list(s))
   }
   s <- layout(subplot(subplotList, nrows = 1), width = width, height = height)
-  if (nchar(p$title) > 0) {
+  if (nchar(p$title %||% "") > 0) {
     s <- layout(s, title = p$title)
   }
   s

Original file line number	Diff line number	Diff line change
`@@ -79,7 +79,7 @@ ggplotly.ggmatrix <- function(p = ggplot2::last_plot(), width = NULL,`
`79`	`79`	`subplotList <- c(subplotList, list(s))`
`80`	`80`	`}`
`81`	`81`	`s <- layout(subplot(subplotList, nrows = 1), width = width, height = height)`
`82`		`- if (nchar(p$title) > 0) {`
	`82`	`+ if (nchar(p$title %\|\|% "") > 0) {`
`83`	`83`	`s <- layout(s, title = p$title)`
`84`	`84`	`}`
`85`	`85`	`s`