# NOT RUN {
# establish `db` as a database connection
library(dplyr)
library(dbplyr)
# }
# NOT RUN {
db_iris <- copy_to(db, iris)
# }
# NOT RUN {
long.iris <- unpivot(db_iris, Variable, Value, Sepal.Length, Sepal.Width, Petal.Length, Petal.Width)
sql_render(long.iris)
# }
Run the code above in your browser using DataLab