# \donttest{
op <- options(aemo.cache_dir = tempdir())
try({
files <- aemo_nemweb_ls("/Reports/Current/DispatchIS_Reports/")
if (nrow(files) > 0) {
f <- aemo_nemweb_download(files$url[1])
file.exists(f)
}
})
options(op)
# }
Run the code above in your browser using DataLab