Nothing
## ----p0, eval = FALSE---------------------------------------------------------
# searchCBRT(c("production", "labor", "labour"))
# searchCBRT(c("production", "labor", "labour"), field = "series")
# searchCBRT(c("production", "labor", "labour"), tags = TRUE)
## ----p1, eval = FALSE---------------------------------------------------------
# allCBRTCategories <- getAllCategoriesInfo()
# allCBRTGroups <- getAllGroupsInfo()
# allCBRTSeries <- getAllSeriesInfo()
## ----p2, eval = FALSE---------------------------------------------------------
# showGroupInfo("bie_apifon")
## ----p3, eval = FALSE---------------------------------------------------------
# showSeriesNames("bie_apifon")
## ----p4, eval = FALSE---------------------------------------------------------
# mySeries <- getDataSeries("TP.D1TOP")
# mySeries <- getDataSeries(c("TP.D1TOP", "TP.D2HAZ", "TP.D4TCMB"))
# mySeries <- getDataSeries(c("TP.D1TOP", "TP.D2HAZ", "TP.D4TCMB"), startDate="01-01-2010")
## ----p5, eval = FALSE---------------------------------------------------------
# myData <- getDataGroup("bie_dbafod")
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.