Get event_data() working with subplots. Fixes #663

cpsievert · cpsievert · commit b506203fb124 · 2016-09-05T15:08:17.000-05:00
diff --git a/R/subplots.R b/R/subplots.R
@@ -236,6 +236,11 @@ subplot <- function(..., nrows = 1, widths = NULL, heights = NULL, margin = 0.02
     layouts <- layouts[which_layout]
   }
   p$layout <- c(p$layout, Reduce(modify_list, layouts))
+  sources <- unique(unlist(lapply(plots, "[[", "source")))
+  if (length(sources) > 1) {
+    stop("Can have multiple source values in a single subplot")
+  }
+  p$source <- sources[1]
   as_widget(p)
 }
 

Original file line number	Diff line number	Diff line change
`@@ -236,6 +236,11 @@ subplot <- function(..., nrows = 1, widths = NULL, heights = NULL, margin = 0.02`
`236`	`236`	`layouts <- layouts[which_layout]`
`237`	`237`	`}`
`238`	`238`	`p$layout <- c(p$layout, Reduce(modify_list, layouts))`
	`239`	`+ sources <- unique(unlist(lapply(plots, "[[", "source")))`
	`240`	`+ if (length(sources) > 1) {`
	`241`	`+ stop("Can have multiple source values in a single subplot")`
	`242`	`+ }`
	`243`	`+ p$source <- sources[1]`
`239`	`244`	`as_widget(p)`
`240`	`245`	`}`
`241`	`246`