Nothing
require("TSsdmx")
# need a BIS account for this
# bis <- TSconnect("sdmx", dbname="BIS")
# NEED SOME PROPER IDENTIFIERS
#Canada, Australia effective real exchange rate
#z <- TSget("", bis)
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.