x <- structure(
data.frame(settlementdate = Sys.time(), region = "NSW1", rrp = 80),
aemo_title = "Demo",
aemo_source = "https://nemweb.com.au",
aemo_licence = "AEMO Copyright Permissions Notice",
aemo_retrieved = Sys.time(),
class = c("aemo_tbl", "data.frame")
)
aemo_snapshot(x)
Run the code above in your browser using DataLab