# \donttest{
op <- options(aemo.cache_dir = tempdir())
try({
now <- Sys.time()
# Daily bid summary (price bands)
b <- aemo_bids(duid = "BW01",
start = now - 86400, end = now)
# Joined: price bands + per-interval volumes
bj <- aemo_bids(duid = "BW01", start = now - 86400, end = now,
resolution = "joined")
})
options(op)
# }
Run the code above in your browser using DataLab