# 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")Run the code above in your browser using DataLab