attempt to namespace plot source

Author: cpsievert

R/plotly.R

@@ -118,6 +118,11 @@ plot_ly <- function(data = data.frame(), ..., type = NULL, group,
   id <- new_id()
   # avoid weird naming clashes
   plotlyVisDat <- data
+  # automatically namespace source
+  session <- shiny::getDefaultReactiveDomain()
+  if (!is.null(session)) {
+    source <- session$ns(source)
+  }
   p <- list(
     visdat = setNames(list(function() plotlyVisDat), id),
     cur_data = id,

R/shiny.R

@@ -53,6 +53,8 @@ event_data <- function(event = c("plotly_hover", "plotly_click", "plotly_selecte
     stop("No reactive domain detected. This function can only be called \n",
          "from within a reactive shiny context.")
   }
-  val <- session$input[[sprintf(".clientValue-%s-%s", event[1], source)]]
+  src <- sprintf(".clientValue-%s-%s", event[1], session$ns(source))
+  print(src)
+  val <- session$input[[src]]
   if (is.null(val)) val else jsonlite::fromJSON(val)
 }

inst/htmlwidgets/plotly.js

@@ -62,10 +62,8 @@ HTMLWidgets.widget({
           attachKey("key");
           return obj; 
         });
-        Shiny.onInputChange(
-          ".clientValue-" + eventType + "-" + x.source, 
-          JSON.stringify(d)
-        );
+        var src = ".clientValue-" + eventType + "-" + x.source;
+        Shiny.onInputChange(src, JSON.stringify(d));
       };
     };