# 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(conn)
rws_disconnect(conn)
# }
Run the code above in your browser using DataLab