R/zzz.R

In ropensci/dataaimsr: AIMS Data Platform API Client

.onLoad  <-  function(libname, pkgname) {
  op  <-  options()
  aims_op  <-  list(
    dataaimsr.base_end_point = "https://api.aims.gov.au/data",
    dataaimsr.weather = "10.25845/5c09bf93f315d",
    dataaimsr.temp_loggers = "10.25845/5b4eb0f9bb848",
    dataaimsr.version = c("10.25845/5c09bf93f315d" = "-v2.0",
                          "10.25845/5b4eb0f9bb848" = "-v2.0")
  )
  toset <- !(names(aims_op) %in% names(op))
  if (any(toset)) {
    options(aims_op[toset])
  }
  invisible()
}