x <- data.frame(settlementdate = Sys.time(), region = "NSW1", rrp = 80)
x <- structure(x, 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"))
print(x)
Run the code above in your browser using DataLab