R/get_copcs.R

In dKvale/mnrisks2011: MNRISKS

#' get_copcs
#'
#' MNRISKS pollutants / COPCs (chemicals of potential concern) and parameters 
#' @param year The MNRISKS results year. Default value is 2014.
#' @keywords copc pollutant mnrisks
#' @export
#' @examples
#' # COPC parameters for 2014
#' copcs <- get_copcs(year = 2014)
#' 
# 

get_copcs <- function(year = 2014) {
 
  # Load COPC data frame
  e <- new.env()
  
  copc <- get(data(list = paste0("copc_", year), envir = e), envir = e)
  
  return(copc)
  
}

get_copc <- get_copcs