module function should always have a session argument

cpsievert · cpsievert · commit dca6b82bd0d0 · 2016-09-06T11:24:40.000-05:00
diff --git a/R/plotly.R b/R/plotly.R
@@ -119,7 +119,6 @@ plot_ly <- function(data = data.frame(), ..., type = NULL,
   id <- new_id()
   # avoid weird naming clashes
   plotlyVisDat <- data
-  
   p <- list(
     visdat = setNames(list(function() plotlyVisDat), id),
     cur_data = id,
diff --git a/inst/examples/plotlyShinyModules/app.R b/inst/examples/plotlyShinyModules/app.R
@@ -12,9 +12,9 @@ reusableUI <- function(id = NULL) {
   )
 }
 
-viz <- function(input, output, scope, src) {
+viz <- function(input, output, session, src) {
   
-  # if you want, you can define multiple sources here
+  # if you want, you can distinguish between events *within* a module
   src2 <- paste0(src, "2")
   
   output$p1 <- renderPlotly({

Original file line number	Diff line number	Diff line change
`@@ -12,9 +12,9 @@ reusableUI <- function(id = NULL) {`
`12`	`12`	`)`
`13`	`13`	`}`
`14`	`14`
`15`		`-viz <- function(input, output, scope, src) {`
	`15`	`+viz <- function(input, output, session, src) {`
`16`	`16`
`17`		`- # if you want, you can define multiple sources here`
	`17`	`+ # if you want, you can distinguish between events within a module`
`18`	`18`	`src2 <- paste0(src, "2")`
`19`	`19`
`20`	`20`	`output$p1 <- renderPlotly({`