if (FALSE) {
## There was an ozone pollution emergency on May 15, 2017
df_o3 <- get_station_imeca("O3", "2017-05-15", show_messages = FALSE)
## 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[order(-df_o3$value), ])
}
Run the code above in your browser using DataLab