# \donttest{
op <- options(aemo.cache_dir = tempdir())
try({
now <- Sys.time()
i <- aemo_interconnector(flow = "V-SA",
start = now - 3600, end = now)
head(i)
})
options(op)
# }
Run the code above in your browser using DataLab