# ------------------------------------------------------------------------
#
# Title : Physical flows
# By : VP
# Date : 2018-03-01
#
# ------------------------------------------------------------------------
# Packages ----------------------------------------------------------------
library( rte.data )
# API key -----------------------------------------------------------------
# set_key(
# api = "physical_flow",
# key = "BASE64_KEY=="
# )
# Physical flows ----------------------------------------------------------
# commercial balance for France on electricity market
balance <- get_physical_flows(start_date = "2018-02-01", end_date = "2018-03-15")
str(balance)
autoplot(balance)
autoplot(balance, interactive = TRUE)
# Exchange by countries
autoplot(balance, by_country = TRUE)
autoplot(balance, by_country = TRUE, interactive = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.