explicit namespacing

cpsievert · cpsievert · commit d9662a629af9 · 2019-03-14T11:46:34.000-05:00
diff --git a/R/shiny.R b/R/shiny.R
@@ -65,7 +65,7 @@ prepareWidget <- function(x) {
 }
 
 register_plot_events <- function(p) {
-  session <- getDefaultReactiveDomain()
+  session <- shiny::getDefaultReactiveDomain()
   eventIDs <- paste(p$x$shinyEvents, p$x$source, sep = "-")
   session$userData$plotlyShinyEventIDs <- unique(c(
     session$userData$plotlyShinyEventIDs,

Original file line number	Diff line number	Diff line change
`@@ -65,7 +65,7 @@ prepareWidget <- function(x) {`
`65`	`65`	`}`
`66`	`66`
`67`	`67`	`register_plot_events <- function(p) {`
`68`		`- session <- getDefaultReactiveDomain()`
	`68`	`+ session <- shiny::getDefaultReactiveDomain()`
`69`	`69`	`eventIDs <- paste(p$x$shinyEvents, p$x$source, sep = "-")`
`70`	`70`	`session$userData$plotlyShinyEventIDs <- unique(c(`
`71`	`71`	`session$userData$plotlyShinyEventIDs,`