# \donttest{
op <- options(aemo.cache_dir = tempdir())
try({
# Forced outages during a recent high-price period in SA
o <- aemo_outages(
start = "2024-03-01",
end = "2024-03-02",
outage_type = "FORCED"
)
head(o)
})
options(op)
# }
Run the code above in your browser using DataLab