if (FALSE) {
fc_get_user()
}
if (FALSE) {
stations <- fc_get_user_stations()
stations
}
if (FALSE) {
stations <- fc_get_user_stations()
fc_get_station(stations[[1]]$station_name)
}
if (FALSE) {
stations <- fc_get_user_stations()
fc_get_data(stations[[1]]$station_name)
}
if (FALSE) {
stations <- fc_get_user_stations()
fc_get_data_range(
station_id = stations[[1]]$station_name,
data_group = "raw",
from = as.integer(as.POSIXct(Sys.time() - 60*60*24)),
to = as.integer(as.POSIXct(Sys.time())))
}
Run the code above in your browser using DataLab