if (FALSE) {
## Download daily hourly PM10 data (particulate matter 10 micrometers or
## less in diameter) from March 2016
df_pm10 <- get_station_month_data("HORARIOS", "PM10", 2016, 3)
head(df_pm10)
## Download daily hourly O3 data from October 2017
df_o3 <- get_station_month_data("HORARIOS", "O3", 2018, 1)
## Convert to local Mexico City time
df_o3$mxc_time <- format(as.POSIXct(paste0(df_o3$date,
" ",
df_o3$hour, ":00"),
tz = "Etc/GMT+6"),
tz = "America/Mexico_City")
head(df_o3)
}
Run the code above in your browser using DataLab