diff --git a/_posts/r/basic/2017-05-19-sankey.Rmd b/_posts/r/basic/2017-05-19-sankey.Rmd
index 008f3a9b8645..6a1a7ab7d1e7 100644
--- a/_posts/r/basic/2017-05-19-sankey.Rmd
+++ b/_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)
     ),
diff --git a/_posts/r/basic/2017-05-19-sankey.md b/_posts/r/basic/2017-05-19-sankey.md
index ea167a806e89..fccc9e7610a5 100644
--- a/_posts/r/basic/2017-05-19-sankey.md
+++ b/_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