take advantage of new globalScope session method

Author: cpsievert

DESCRIPTION

@@ -56,3 +56,5 @@ Suggests:
 LazyData: true
 VignetteBuilder: knitr
 RoxygenNote: 5.0.1
+Remotes:
+  rstudio/shiny#1344

R/plotly.R

@@ -77,7 +77,8 @@
 plot_ly <- function(data = data.frame(), ..., type = NULL, group,
                     color, colors = NULL, alpha = 1, symbol, symbols = NULL, 
                     size, sizes = c(10, 100), linetype, linetypes = NULL,
-                    width = NULL, height = NULL, source = "A") {
+                    width = NULL, height = NULL, source = "A", 
+                    session = shiny::getDefaultReactiveDomain()) {
   if (!is.data.frame(data)) {
     stop("First argument, `data`, must be a data frame.", call. = FALSE)
   }
@@ -119,7 +120,6 @@ plot_ly <- function(data = data.frame(), ..., type = NULL, group,
   # avoid weird naming clashes
   plotlyVisDat <- data
   # automatically namespace source
-  session <- shiny::getDefaultReactiveDomain()
   if (!is.null(session)) {
     source <- session$ns(source)
   }

R/shiny.R

@@ -47,14 +47,13 @@ renderPlotly <- function(expr, env = parent.frame(), quoted = FALSE) {
 #' }
 
 event_data <- function(event = c("plotly_hover", "plotly_click", "plotly_selected", 
-                                 "plotly_relayout"), source = "A") {
-  session <- shiny::getDefaultReactiveDomain()
+                                 "plotly_relayout"), source = "A",
+                       session = shiny::getDefaultReactiveDomain()) {
   if (is.null(session)) {
     stop("No reactive domain detected. This function can only be called \n",
          "from within a reactive shiny context.")
   }
   src <- sprintf(".clientValue-%s-%s", event[1], session$ns(source))
-  print(src)
-  val <- session$input[[src]]
+  val <- session$rootScope()$input[[src]]
   if (is.null(val)) val else jsonlite::fromJSON(val)
 }