Nothing
## ---- 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))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.