#' @keywords WRCC
#' @export
#' @title Load Processed WRCC Monitoring Data
#' @param year desired year (integer or character representing YYYY)
#' @param baseUrl base URL for WRCC meta and data files
#' @return A \emph{ws_monitor} object with WRCC data.
#' @description Please use \code{\link{wrcc_loadAnnual}} instead of this
#' function. It will soon be deprecated.
wrcc_load <- function(year=2017,
baseUrl='https://haze.airfire.org/monitoring/WRCC/RData/') {
# TODO: .Deprecate() this function at some point
# # Create filepath
# filepath <- paste0(year,"/wrcc_PM2.5_",year,".RData")
#
# # Define a 'connection' object so we can be sure to close it no matter what happens
# conn <- url(paste0(baseUrl,filepath))
# result <- try( suppressWarnings(ws_monitor <- get(load(conn))),
# silent=TRUE )
# close(conn)
#
# if ( "try-error" %in% class(result) ) {
# stop(paste0("No WRCC data available for ",year), call.=FALSE)
# }
ws_monitor <- wrcc_loadAnnual(year)
return(ws_monitor)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.