# \donttest{
op <- options(aemo.cache_dir = tempdir())
try({
now <- Sys.time()
# SCADA actual
d <- aemo_dispatch_units(duid = "BW01", start = now - 3600,
end = now)
# Paired: INITIALMW, TOTALCLEARED, SCADAVALUE (ramp research)
d_both <- aemo_dispatch_units(duid = "BW01",
start = now - 3600, end = now,
measure = "both")
})
options(op)
# }
Run the code above in your browser using DataLab