## ----eval=F, cache=F----------------------------------------------------------
# libary(dataone)
# am <- AuthenticationManager()
# getTokenInfo(am)

## ----eval=F-------------------------------------------------------------------
# cn <- CNode("PROD")
# unlist(lapply(listNodes(cn), function(x) x@name))

## ----eval=F-------------------------------------------------------------------
# cn@endpoint

## ----eval=F-------------------------------------------------------------------
# cn <- CNode("STAGING2")
# unlist(lapply(listNodes(cn), function(x) x@name))