## Not run:
# ws <- netWorkSpace('nws example')
# nwsStore(ws, 'x', 1)
# nwsStore(ws, 'x', 2)
# it <- nwsIFindTry(ws, 'x', NA)
# it() # returns the value 1
# it() # returns the value 2
# it() # returns the value NA
# nwsStore(ws, 'x', 3)
# it() # returns the value 3
# it() # returns the value NA
# ## End(Not run)
Run the code above in your browser using DataLab