if (FALSE) {
stations <- fc_get_user_stations()
obj <- 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())))
fc_parse_data(obj)
}
if (FALSE) {
stations <- fc_get_user_stations()
fc_parse_stations(stations)
}
Run the code above in your browser using DataLab