Merge pull request #334 from ropensci/fix/base-url

Fix #333

Author: cpsievert

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: plotly
 Title: Create Interactive Web Graphics via Plotly's JavaScript Graphing Library
-Version: 2.0.8
+Version: 2.0.9
 Authors@R: c(person("Carson", "Sievert", role = c("aut", "cre"),
     email = "[email protected]"),
     person("Chris", "Parmer", role = c("aut", "cph"),

NEWS

@@ -1,3 +1,7 @@
+2.0.9 -- 10 Dec 2015
+
+Fix #333
+
 2.0.8 -- 10 Dec 2015
 
 Fix a bug with geom_segment (see #321 & #228) 

R/plotly.R

@@ -97,7 +97,8 @@ plot_ly <- function(data = data.frame(), ..., type = "scatter",
     layout = NULL,
     url = NULL,
     width = width,
-    height = height
+    height = height,
+    base_url = get_domain()
   )
 
   if (evaluate) p <- plotly_build(p)

inst/htmlwidgets/plotly.js

@@ -11,6 +11,10 @@ HTMLWidgets.widget({
   },  
 
   renderValue: function(el, x, instance) {
+    // make sure plots don't get created outside the network
+    window.PLOTLYENV = window.PLOTLYENV || {};
+    window.PLOTLYENV.BASE_URL = x.base_url;
+    
     // if no plot exists yet, create one with a particular configuration
     if (!instance.plotly) {
       Plotly.plot(el.id, x.data, x.layout, x.config);