## Not run:
# # create a netWorkSpace
# ws = netWorkSpace('nws example')
#
# # create a variable in the local R workspace that is linked to
# # a netWorkSpace variable
# nwsVariable(ws, 'x', 'single')
#
# x <- 0
# x <- 999 # overwrites the 0
# x <- 3.14159 # overwrites the 999
# x # returns 3.14159
# x # returns 3.14159
# x # returns 3.14159
#
# # create a 'fifo' mode variable
# nwsVariable(ws, 'message', 'fifo')
#
# message <- 1
# message <- 2
# message <- 3
# message # returns 1
# message # returns 2
# message # returns 3
# ## End(Not run)
Run the code above in your browser using DataLab