Description Usage Arguments Details Value See Also Examples
Query daily records for one month
1 | query_daily_month(form_query, end_date)
|
form_query |
a list with url, query and input like daily_month |
end_date |
the end date for the 1-month query in Date format |
Requ<c3><aa>te sur un mois de relev<c3><a9>s quotidiens
a list
1 2 3 4 5 6 7 8 9 10 | connect_enedis(secretfile = "~/.secret_enedis_json")
this_month_data <- query_daily_month(end_date = Sys.Date())
disconnect_enedis()
kWh <- this_month_data$graphe$data$valeur
day1 <- as.Date(this_month_data$graphe$periode$dateDebut,
format="%d/%m/%Y")
Horodate <- seq(from = day1, length.out = length(kWh), by="day")
plot(Horodate, kWh, type="b", pch=16,
main = paste("Daily records since ", day1),
xlab = "Date", ylab = "power consumption (kWh)")
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.