R/get_modern_co2.R

In jrpriceUPS/Math160UPS: Suite of Functions for Math 160 Classes at the University of Puget Sound

#' Get Modern CO2
#'
#' Loads modern CO2 data from website (Penny Rowe - Polar Project)
#' @export
get_modern_co2 <- function() {
  # .. Get the modern CO2 data from the NOAA website
  website_co2 <- "ftp://aftp.cmdl.noaa.gov/products/trends/co2/co2_mm_mlo.txt"
  modern_co2 <- try_read_url(website_co2, read_co2_url, modern_co2_backup)
}