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 NARun the code above in your browser using DataLab