# \donttest{
op <- options(aemo.cache_dir = tempdir())
try({
s <- aemo_settlement(table = "cashflow",
start = "2024-06-01",
end = "2024-06-02")
head(s)
})
options(op)
# }
Run the code above in your browser using DataLab