# NOT RUN {
conn <- rws_connect()
rws_write(rws_data, exists = FALSE, conn = conn)
rws_write(rws_data[c("date", "ordered")], x_name = "data2",
exists = FALSE, conn = conn)
rws_read(c("rws_data", "data2"), conn = conn)
rws_disconnect(conn)
# }
Run the code above in your browser using DataCamp Workspace