# \donttest{
op <- options(aemo.cache_dir = tempdir())
try({
now <- Sys.time()
g <- aemo_gas(market = "sttm", hub = "sydney",
start = now - 7 * 86400, end = now)
head(g)
})
options(op)
# }
Run the code above in your browser using DataLab