add plot title to subplot

cpsievert · cpsievert · commit d8f2f7a16839 · 2016-04-01T10:03:53.000+11:00
diff --git a/R/ggplotly.R b/R/ggplotly.R
@@ -41,11 +41,13 @@ ggplotly.ggmatrix <- function(p = ggplot2::last_plot(), width = NULL,
   plotList <- list()
   for (i in seq_len(p$nrow)) {
     for (j in seq_len(p$ncol)) {
-      plotList <- c(plotList, list(pm[i, j]))
+      plotList <- c(plotList, list(p[i, j]))
     }
   }
   # TODO: how to show x/y titles? Should these be arguments in subplot?
-  do.call(subplot, c(plotList, list(nrows = p$nrow)))
+  l <- get_plot(do.call(subplot, c(plotList, list(nrows = p$nrow))))
+  l$layout$title <- p$title
+  hash_plot(p$data, l)
 }
   
 #' @export

Original file line number	Diff line number	Diff line change
`@@ -41,11 +41,13 @@ ggplotly.ggmatrix <- function(p = ggplot2::last_plot(), width = NULL,`
`41`	`41`	`plotList <- list()`
`42`	`42`	`for (i in seq_len(p$nrow)) {`
`43`	`43`	`for (j in seq_len(p$ncol)) {`
`44`		`- plotList <- c(plotList, list(pm[i, j]))`
	`44`	`+ plotList <- c(plotList, list(p[i, j]))`
`45`	`45`	`}`
`46`	`46`	`}`
`47`	`47`	`# TODO: how to show x/y titles? Should these be arguments in subplot?`
`48`		`- do.call(subplot, c(plotList, list(nrows = p$nrow)))`
	`48`	`+ l <- get_plot(do.call(subplot, c(plotList, list(nrows = p$nrow))))`
	`49`	`+ l$layout$title <- p$title`
	`50`	`+ hash_plot(p$data, l)`
`49`	`51`	`}`
`50`	`52`
`51`	`53`	`#' @export`