## Not run:
# # example 1
# nwss <- nwsServer()
# ws <- nwsOpenWs(nwss, "nws example")
# # do some works
# # ...
# nwsDeleteWs(nwss, "nws example")
#
# # example 2 illustrates accessing a server object
# # from the netWorkSpace class object
# ws <- netWorkSpace("nws example 2")
# # do some works
# # ...
# nwsDeleteWs(ws@server, "nws example 2")
# ## End(Not run)
Run the code above in your browser using DataLab