Nothing
## ---- message=FALSE, eval=FALSE-----------------------------------------------
# library(GetBCBData)
# library(dplyr)
# library(ggplot2)
#
# my.countries <- c('Germany', 'Canada', 'USA',
# 'France', 'Italy', 'Japan')
#
# my.ids <- c(3785:3790)
#
# names(my.ids) <- paste0('Unemp. rate - ', my.countries)
#
# df.bcb <- gbcbd_get_series(id = my.ids ,
# first.date = '2000-01-01',
# last.date = Sys.Date(),
# format.data = 'long',
# use.memoise = TRUE,
# cache.path = tempdir(), # use tempdir for cache folder
# do.parallel = FALSE)
#
# glimpse(df.bcb)
#
# p <- ggplot(df.bcb, aes(x = ref.date, y = value) ) +
# geom_line() +
# labs(title = 'Unemploymnent Rates Around the World',
# subtitle = paste0(min(df.bcb$ref.date), ' to ', max(df.bcb$ref.date)),
# x = '', y = 'Percentage*100') + facet_wrap(~series.name)
#
#
# print(p)
#
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.