library(flexdashboard)
library("billboarder") # data data("prod_par_filiere") # a bar chart ! billboarder() %>% bb_barchart(data = prod_par_filiere[, c("annee", "prod_hydraulique")], color = "#102246") %>% bb_y_grid(show = TRUE) %>% bb_y_axis(tick = list(format = suffix("TWh")), label = list(text = "production (in terawatt-hours)", position = "outer-top")) %>% bb_legend(show = FALSE) %>% bb_labs(title = "French hydraulic production", caption = "Data source: RTE (https://opendata.rte-france.com)")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.