# NOT RUN {
# Specify the data item(s) to enquire from API
dataitems <- c("Storage Injection, Actual",
"Storage Withdrawal, Actual")
# Invoke the API (requires internet connection at this step)
response <- dataItemExplorer(dataitems,
fromdate = "2020-01-01",
todate="2020-01-31")
# Visualise the results on a chart
library(ggplot2)
ggplot(response,aes(x=ApplicableFor,y=Value,colour=PublicationObjectName)) +
geom_line()
# }
Run the code above in your browser using DataLab