update R style in colorway example

Author: michaelbabyn

_posts/r/style/2018-10-03-colorway.Rmd

@@ -43,11 +43,11 @@ packageVersion('plotly')
 ```{r, results = 'hide'}
 library(plotly)
 
-x = seq(-1, 3, length=50)
-ones = rep(1, 50)
-a_list = seq(1, 3, length=7)
-b_list = seq(2, 14, length=7)
-df = data.frame(cbind(x, (outer((x*x), a_list) + outer(ones, b_list))))
+x <- seq(-1, 3, length=50)
+ones <- rep(1, 50)
+a_list <- seq(1, 3, length=7)
+b_list <- seq(2, 14, length=7)
+df <- data.frame(cbind(x, (outer((x*x), a_list) + outer(ones, b_list))))
 
 p <- plot_ly(df, x = ~x, y = ~V2, type = 'scatter', mode = 'lines') %>%
   add_trace(y = ~V3) %>%

_posts/r/style/2018-10-03-colorway.md

@@ -45,11 +45,11 @@ packageVersion('plotly')
 ```r
 library(plotly)
 
-x = seq(-1, 3, length=50)
-ones = rep(1, 50)
-a_list = seq(1, 3, length=7)
-b_list = seq(2, 14, length=7)
-df = data.frame(cbind(x, (outer((x*x), a_list) + outer(ones, b_list))))
+x <- seq(-1, 3, length=50)
+ones <- rep(1, 50)
+a_list <- seq(1, 3, length=7)
+b_list <- seq(2, 14, length=7)
+df <- data.frame(cbind(x, (outer((x*x), a_list) + outer(ones, b_list))))
 
 p <- plot_ly(df, x = ~x, y = ~V2, type = 'scatter', mode = 'lines') %>%
   add_trace(y = ~V3) %>%