Merge pull request #1063 from plotly/sanky_r_bug2

change c( to list( in examples to fix bug

Author: michaelbabyn

_posts/r/basic/2017-05-19-sankey.Rmd

@@ -86,7 +86,7 @@ library(plotly)
 
 p <- plot_ly(
     type = "sankey",
-    domain = c(
+    domain = list(
       x =  c(0,1),
       y =  c(0,1)
     ),
@@ -117,7 +117,7 @@ json_data <- fromJSON(paste(readLines(json_file), collapse=""))
 
 p <- plot_ly(
     type = "sankey",
-    domain = c(
+    domain = list(
       x =  c(0,1),
       y =  c(0,1)
     ),
@@ -158,7 +158,7 @@ json_data <- fromJSON(paste(readLines(json_file), collapse=""))
 
 p <- plot_ly(
     type = "sankey",
-    domain = c(
+    domain = list(
       x =  c(0,1),
       y =  c(0,1)
     ),
@@ -214,7 +214,7 @@ json_data <- fromJSON(paste(readLines(json_file), collapse=""))
 
 p <- plot_ly(
     type = "sankey",
-    domain = c(
+    domain = list(
       x =  c(0,1),
       y =  c(0,1)
     ),

_posts/r/basic/2017-05-19-sankey.md

@@ -34,7 +34,7 @@ packageVersion('plotly')
 ```
 
 ```
-## [1] '4.7.1.9000'
+## [1] '4.8.0'
 ```
 
 ### Basic Sankey Diagram
@@ -77,7 +77,7 @@ chart_link = api_create(p, filename="sankey-basic-example")
 chart_link
 ```
 
-<iframe src="https://plot.ly/~RPlotBot/5280.embed" width="800" height="600" id="igraph" scrolling="no" seamless="seamless" frameBorder="0"> </iframe>
+<iframe src="https://plot.ly/~RPlotBot/5404.embed" width="800" height="600" id="igraph" scrolling="no" seamless="seamless" frameBorder="0"> </iframe>
 
 ### Create Canvas
 
@@ -87,7 +87,7 @@ library(plotly)
 
 p <- plot_ly(
     type = "sankey",
-    domain = c(
+    domain = list(
       x =  c(0,1),
       y =  c(0,1)
     ),
@@ -118,7 +118,7 @@ json_data <- fromJSON(paste(readLines(json_file), collapse=""))
 
 p <- plot_ly(
     type = "sankey",
-    domain = c(
+    domain = list(
       x =  c(0,1),
       y =  c(0,1)
     ),
@@ -159,7 +159,7 @@ json_data <- fromJSON(paste(readLines(json_file), collapse=""))
 
 p <- plot_ly(
     type = "sankey",
-    domain = c(
+    domain = list(
       x =  c(0,1),
       y =  c(0,1)
     ),
@@ -200,7 +200,7 @@ chart_link = api_create(p, filename="sankey-basic")
 chart_link
 ```
 
-<iframe src="https://plot.ly/~RPlotBot/4631.embed" width="800" height="600" id="igraph" scrolling="no" seamless="seamless" frameBorder="0"> </iframe>
+<iframe src="https://plot.ly/~RPlotBot/5406.embed" width="800" height="600" id="igraph" scrolling="no" seamless="seamless" frameBorder="0"> </iframe>
 
 ### Style Sankey Diagram 
 
@@ -214,7 +214,7 @@ json_data <- fromJSON(paste(readLines(json_file), collapse=""))
 
 p <- plot_ly(
     type = "sankey",
-    domain = c(
+    domain = list(
       x =  c(0,1),
       y =  c(0,1)
     ),
@@ -258,7 +258,7 @@ chart_link = api_create(p, filename="sankey-dark")
 chart_link
 ```
 
-<iframe src="https://plot.ly/~RPlotBot/4633.embed" width="800" height="600" id="igraph" scrolling="no" seamless="seamless" frameBorder="0"> </iframe>
+<iframe src="https://plot.ly/~RPlotBot/5408.embed" width="800" height="600" id="igraph" scrolling="no" seamless="seamless" frameBorder="0"> </iframe>
 
 ### Reference